HIRES ETCH.S
FILE INFORMATION
FILENAME(S): HIRES ETCH.S
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-12-01 19:06:54
APPEARS ON: 1 disk(s)
FILE HASH
2a8e75a8784f54d0ed3e5a07016dfec76723794c5d916ad37e395512ea17c59f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE DISK 28 | HIRES ETCH.S | PRG | Icebreaker | 19 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 0D 2A A0 A0 A0 A0 A0 A0 A0 A0 68 69 72 65 |**.*........hire| 00000030: 73 A0 6D 6C A0 65 74 63 68 A0 A0 A0 A0 A0 A0 A0 |s.ml.etch.......| 00000040: A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..*.************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 0D 20 6C 64 61 20 35 33 32 37 32 0D |****. lda 53272.| 00000070: 20 6F 72 61 20 23 38 0D 20 73 74 61 20 35 33 32 | ora #8. sta 532| 00000080: 37 32 0D 20 6C 64 61 20 35 33 32 36 35 0D 20 6F |72. lda 53265. o| 00000090: 72 61 20 23 33 32 0D 20 73 74 61 20 35 33 32 36 |ra #32. sta 5326| 000000A0: 35 0D 20 6A 73 72 20 63 6C 65 61 72 0D 6D 61 69 |5. jsr clear.mai| 000000B0: 6E 20 6A 73 72 20 6A 6F 79 6D 6F 76 65 0D 20 6A |n jsr joymove. j| 000000C0: 73 72 20 63 68 65 63 6B 65 6E 64 0D 20 63 6D 70 |sr checkend. cmp| 000000D0: 20 23 35 31 0D 20 62 6E 65 20 6D 61 69 6E 0D 20 | #51. bne main. | 000000E0: 6C 64 61 20 23 30 0D 20 73 74 61 20 31 39 38 0D |lda #0. sta 198.| 000000F0: 20 6A 6D 70 20 37 37 30 0D 63 6C 65 61 72 20 6C | jmp 770.clear l| 00000100: 64 61 20 23 24 30 30 0D 20 73 74 61 20 24 66 62 |da #$00. sta $fb| 00000110: 0D 20 6C 64 61 20 23 24 32 30 0D 20 73 74 61 20 |. lda #$20. sta | 00000120: 24 66 63 0D 20 6C 64 78 20 23 24 30 30 0D 20 6C |$fc. ldx #$00. l| 00000130: 64 61 20 23 24 30 30 0D 6C 6F 6F 70 20 73 74 61 |da #$00.loop sta| 00000140: 20 28 24 66 62 2C 78 29 0D 20 69 6E 78 0D 20 63 | ($fb,x). inx. c| 00000150: 70 78 20 23 24 30 30 0D 20 62 6E 65 20 6C 6F 6F |px #$00. bne loo| 00000160: 70 0D 20 6C 64 79 20 24 66 63 0D 20 69 6E 79 0D |p. ldy $fc. iny.| 00000170: 20 63 70 79 20 23 24 35 30 0D 20 62 6E 65 20 6C | cpy #$50. bne l| 00000180: 6F 6F 70 0D 20 72 74 73 0D 6A 6F 79 6D 6F 76 65 |oop. rts.joymove| 00000190: 20 6C 64 61 20 70 6C 0D 20 73 74 61 20 24 66 62 | lda pl. sta $fb| 000001A0: 0D 20 6C 64 61 20 70 68 0D 20 73 74 61 20 24 66 |. lda ph. sta $f| 000001B0: 63 0D 20 6C 64 61 20 35 36 33 32 30 20 3B 70 6F |c. lda 56320 ;po| 000001C0: 72 74 A0 32 0D 20 61 6E 64 20 23 31 35 0D 20 73 |rt.2. and #15. s| 000001D0: 74 61 20 74 65 6D 70 0D 20 6C 64 61 20 23 31 35 |ta temp. lda #15| 000001E0: 0D 20 73 65 63 0D 20 73 62 63 20 74 65 6D 70 0D |. sec. sbc temp.| 000001F0: 20 63 6D 70 20 23 31 0D 20 62 6E 65 20 6E 65 78 | cmp #1. bne nex| 00000200: 74 31 0D 20 6A 6D 70 20 75 70 0D 6E 65 78 74 31 |t1. jmp up.next1| 00000210: 20 63 6D 70 20 23 32 0D 20 62 6E 65 20 6E 65 78 | cmp #2. bne nex| 00000220: 74 32 0D 20 6A 6D 70 20 64 6F 77 6E 0D 6E 65 78 |t2. jmp down.nex| 00000230: 74 32 20 63 6D 70 20 23 34 0D 20 62 6E 65 20 6E |t2 cmp #4. bne n| 00000240: 65 78 74 33 0D 20 6A 6D 70 20 6C 65 66 74 0D 6E |ext3. jmp left.n| 00000250: 65 78 74 33 20 63 6D 70 20 23 38 0D 20 62 6E 65 |ext3 cmp #8. bne| 00000260: 20 6E 65 78 74 34 0D 20 6A 6D 70 20 72 69 67 68 | next4. jmp righ| 00000270: 74 0D 6E 65 78 74 34 20 72 74 73 0D 75 70 20 6C |t.next4 rts.up l| 00000280: 64 78 20 68 69 67 68 74 0D 20 63 70 78 20 23 24 |dx hight. cpx #$| 00000290: 30 30 0D 20 62 65 71 20 73 75 62 33 32 30 0D 20 |00. beq sub320. | 000002A0: 6C 64 79 20 24 66 62 0D 20 63 70 79 20 23 24 30 |ldy $fb. cpy #$0| 000002B0: 30 0D 20 62 65 71 20 73 75 62 31 0D 20 64 65 78 |0. beq sub1. dex| 000002C0: 0D 20 64 65 79 0D 20 73 74 78 20 68 69 67 68 74 |. dey. stx hight| 000002D0: 0D 20 73 74 79 20 24 66 62 0D 20 6A 6D 70 20 6E |. sty $fb. jmp n| 000002E0: 65 78 74 34 0D 64 6F 77 6E 20 6C 64 78 20 68 69 |ext4.down ldx hi| 000002F0: 67 68 74 0D 20 6C 64 79 20 24 66 62 0D 20 63 70 |ght. ldy $fb. cp| 00000300: 78 20 23 30 37 0D 20 62 65 71 20 61 64 64 33 32 |x #07. beq add32| 00000310: 30 0D 20 6C 64 79 20 24 66 62 0D 20 63 70 79 20 |0. ldy $fb. cpy | 00000320: 23 32 35 35 0D 20 62 65 71 20 61 64 64 31 0D 20 |#255. beq add1. | 00000330: 69 6E 78 0D 20 69 6E 79 0D 20 73 74 78 20 68 69 |inx. iny. stx hi| 00000340: 67 68 74 0D 20 73 74 79 20 24 66 62 0D 20 6A 6D |ght. sty $fb. jm| 00000350: 70 20 6E 65 78 74 34 0D 6C 65 66 74 20 6C 64 78 |p next4.left ldx| 00000360: 20 6C 65 6E 67 74 68 0D 20 63 6D 70 20 23 37 0D | length. cmp #7.| 00000370: 20 62 65 71 20 73 75 62 38 0D 20 73 74 78 20 6C | beq sub8. stx l| 00000380: 65 6E 67 74 68 0D 20 6A 6D 70 20 6E 65 78 74 34 |ength. jmp next4| 00000390: 0D 72 69 67 68 74 20 6C 64 78 20 6C 65 6E 67 74 |.right ldx lengt| 000003A0: 68 0D 20 63 70 78 20 23 30 0D 20 62 65 71 20 61 |h. cpx #0. beq a| 000003B0: 64 64 38 0D 20 73 74 78 20 6C 65 6E 67 74 68 0D |dd8. stx length.| 000003C0: 20 6A 6D 70 20 6E 65 78 74 34 0D 73 75 62 33 32 | jmp next4.sub32| 000003D0: 30 20 6C 64 78 20 24 66 62 0D 20 6C 64 79 20 24 |0 ldx $fb. ldy $| 000003E0: 66 63 0D 70 61 72 74 32 20 63 70 78 20 23 32 35 |fc.part2 cpx #25| 000003F0: 35 0D 20 62 6E 65 20 6E 65 78 74 36 0D 20 69 6E |5. bne next6. in| 00000400: 79 0D |y. |
..********************************.*
HIRES ML ETCH *.************
********************. LDA 53272. ORA #8.
STA 53272. LDA 53265. ORA #32. STA 5326
5. JSR CLEAR.MAIN JSR JOYMOVE. JSR CHECK
END. CMP #51. BNE MAIN. LDA #0. STA 198.
JMP 770.CLEAR LDA #$00. STA $FB. LDA #$
20. STA $FC. LDX #$00. LDA #$00.LOOP STA
($FB,X). INX. CPX #$00. BNE LOOP. LDY $
FC. INY. CPY #$50. BNE LOOP. RTS.JOYMOVE
LDA PL. STA $FB. LDA PH. STA $FC. LDA 5
6320 ;PORT 2. AND #15. STA TEMP. LDA #15
. SEC. SBC TEMP. CMP #1. BNE NEXT1. JMP
UP.NEXT1 CMP #2. BNE NEXT2. JMP DOWN.NEX
T2 CMP #4. BNE NEXT3. JMP LEFT.NEXT3 CMP
#8. BNE NEXT4. JMP RIGHT.NEXT4 RTS.UP L
DX HIGHT. CPX #$00. BEQ SUB320. LDY $FB.
CPY #$00. BEQ SUB1. DEX. DEY. STX HIGHT
. STY $FB. JMP NEXT4.DOWN LDX HIGHT. LDY
$FB. CPX #07. BEQ ADD320. LDY $FB. CPY
#255. BEQ ADD1. INX. INY. STX HIGHT. STY
$FB. JMP NEXT4.LEFT LDX LENGTH. CMP #7.
BEQ SUB8. STX LENGTH. JMP NEXT4.RIGHT L
DX LENGTH. CPX #0. BEQ ADD8. STX LENGTH.
JMP NEXT4.SUB320 LDX $FB. LDY $FC.PART2
CPX #255. BNE NEXT6. INY.
> CLICK IMAGE PREVIEW FOR FULL MODAL