MEMSCROLL.S
FILE INFORMATION
FILENAME(S): MEMSCROLL.S
FILE TYPE(S): PRG
FILE SIZE: 560b
FIRST SEEN: 2025-12-01 19:06:54
APPEARS ON: 1 disk(s)
FILE HASH
1e8d255fda105f9c661417c7ed3c6a7e3dd8522832f1582fc3a08ed2e1a9b112
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE DISK 28 | MEMSCROLL.S | PRG | Icebreaker | 22 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 0A 73 74 61 72 74 20 6A 73 72 20 24 65 35 34 |..start jsr $e54| 00000010: 34 0D 20 6C 64 79 20 23 30 0D 20 6C 64 61 20 23 |4. ldy #0. lda #| 00000020: 24 30 30 0D 20 73 74 61 20 24 66 62 0D 20 6C 64 |$00. sta $fb. ld| 00000030: 61 20 23 24 66 30 0D 20 73 74 61 20 24 66 63 20 |a #$f0. sta $fc | 00000040: 3B 24 66 30 30 30 0D 6C 6F 6F 70 31 20 6C 64 61 |;$f000.loop1 lda| 00000050: 20 28 24 66 62 29 2C 79 0D 20 73 74 61 20 24 30 | ($fb),y. sta $0| 00000060: 34 30 30 2C 79 0D 20 69 6E 79 0D 20 63 70 79 20 |400,y. iny. cpy | 00000070: 23 34 30 0D 20 62 6E 65 20 6C 6F 6F 70 31 0D 6C |#40. bne loop1.l| 00000080: 6F 6F 70 32 20 6C 64 61 20 24 30 30 63 35 0D 20 |oop2 lda $00c5. | 00000090: 63 6D 70 20 23 36 34 0D 20 62 65 71 20 6C 6F 6F |cmp #64. beq loo| 000000A0: 70 32 0D 20 6A 73 72 20 64 65 6C 61 79 0D 20 63 |p2. jsr delay. c| 000000B0: 6D 70 20 23 34 37 0D 20 62 65 71 20 6C 65 66 74 |mp #47. beq left| 000000C0: 0D 20 63 6D 70 20 23 34 34 0D 20 62 65 71 20 72 |. cmp #44. beq r| 000000D0: 69 67 68 74 0D 20 6A 6D 70 20 6C 6F 6F 70 32 0D |ight. jmp loop2.| 000000E0: 6C 65 66 74 20 64 65 63 20 24 30 30 66 62 0D 20 |left dec $00fb. | 000000F0: 6A 73 72 20 63 6B 6C 65 66 74 0D 20 6C 64 79 20 |jsr ckleft. ldy | 00000100: 23 30 0D 20 6A 6D 70 20 6C 6F 6F 70 31 0D 72 69 |#0. jmp loop1.ri| 00000110: 67 68 74 20 69 6E 63 20 24 30 30 66 62 0D 20 6A |ght inc $00fb. j| 00000120: 73 72 20 63 6B 72 69 74 65 0D 20 6C 64 79 20 23 |sr ckrite. ldy #| 00000130: 30 0D 20 6A 6D 70 20 6C 6F 6F 70 31 0D 63 6B 6C |0. jmp loop1.ckl| 00000140: 65 66 74 20 6C 64 61 20 24 66 62 0D 20 63 6D 70 |eft lda $fb. cmp| 00000150: 20 23 24 30 31 0D 20 62 6E 65 20 65 6E 64 63 6C | #$01. bne endcl| 00000160: 0D 20 6C 64 61 20 23 24 66 66 0D 20 73 74 61 20 |. lda #$ff. sta | 00000170: 24 66 62 0D 20 64 65 63 20 24 66 63 0D 65 6E 64 |$fb. dec $fc.end| 00000180: 63 6C 20 72 74 73 0D 63 6B 72 69 74 65 20 6C 64 |cl rts.ckrite ld| 00000190: 61 20 24 66 62 0D 20 63 6D 70 20 23 24 66 65 0D |a $fb. cmp #$fe.| 000001A0: 20 62 6E 65 20 65 6E 64 63 72 0D 20 6C 64 61 20 | bne endcr. lda | 000001B0: 23 24 30 30 0D 20 73 74 61 20 24 66 62 0D 20 69 |#$00. sta $fb. i| 000001C0: 6E 63 20 24 66 63 0D 65 6E 64 63 72 20 72 74 73 |nc $fc.endcr rts| 000001D0: 0D 64 65 6C 61 79 20 6C 64 78 20 23 30 0D 20 6C |.delay ldx #0. l| 000001E0: 64 79 20 23 30 0D 6C 6F 6F 70 34 20 69 6E 78 0D |dy #0.loop4 inx.| 000001F0: 6C 6F 6F 70 33 20 69 6E 79 0D 20 63 70 79 20 23 |loop3 iny. cpy #| 00000200: 31 30 0D 20 62 6E 65 20 6C 6F 6F 70 33 0D 20 6C |10. bne loop3. l| 00000210: 64 79 20 23 30 0D 20 63 70 78 20 23 32 35 35 0D |dy #0. cpx #255.| 00000220: 20 62 6E 65 20 6C 6F 6F 70 34 0D 20 72 74 73 0D | bne loop4. rts.|
..START JSR $E544. LDY #0. LDA #$00. STA $FB. LDA #$F0. STA $FC ;$F000.LOOP1 LDA ($FB),Y. STA $0400,Y. INY. CPY #40. BNE LOOP1.LOOP2 LDA $00C5. CMP #64. BEQ LOO P2. JSR DELAY. CMP #47. BEQ LEFT. CMP #4 4. BEQ RIGHT. JMP LOOP2.LEFT DEC $00FB. JSR CKLEFT. LDY #0. JMP LOOP1.RIGHT INC $00FB. JSR CKRITE. LDY #0. JMP LOOP1.CKL EFT LDA $FB. CMP #$01. BNE ENDCL. LDA #$ FF. STA $FB. DEC $FC.ENDCL RTS.CKRITE LD A $FB. CMP #$FE. BNE ENDCR. LDA #$00. ST A $FB. INC $FC.ENDCR RTS.DELAY LDX #0. L DY #0.LOOP4 INX.LOOP3 INY. CPY #10. BNE LOOP3. LDY #0. CPX #255. BNE LOOP4. RTS.
> CLICK IMAGE PREVIEW FOR FULL MODAL