Just a little program I whipped up for the Vintage Computer Festival Midwest one year. It should produce a fancy scrolling display as I demonstrated in Episode 10 of the series, here.
READY. MONITOR MONITOR PC SR AC XR YR SP ; FB000 00 00 00 00 F9 L"BUSINESSCARD",8 SEARCHING FOR BUSINESSCARD LOADING D $F1300 $F1344 . F1300 A0 04 LDY #$04 . F1302 A2 00 LDX #$00 . F1304 B9 1E 13 LDA $131E,Y . F1307 9D 00 04 STA $0400,X . F130A 9D 00 05 STA $0500,X . F130D 9D 00 06 STA $0600,X . F1310 9D 00 07 STA $0700,X . F1313 88 DEY . F1314 D0 02 BNE $1318 . F1316 A0 04 LDY #$04 . F1318 E8 INX . F1319 D0 E9 BNE $1304 . F131B 4C 23 13 JMP $1323 . F131E 0E 60 02 ASL $0260 . F1321 26 0E ROL $0E . F1323 AE 12 D0 LDX $D012 . F1326 E0 FF CPX #$FF . F1328 D0 F9 BNE $1323 . F132A F0 01 BEQ $132D . F132C EA NOP . F132D 18 CLC . F132E A9 CC LDA #$CC . F1330 8D 16 D0 STA $D016 . F1333 A9 10 LDA #$10 . F1335 69 02 ADC #$02 . F1337 8D 11 D0 STA $D011 . F133A CE 36 13 DEC $1336 . F133D 10 E4 BPL $1323 . F133F A9 07 LDA #$07 . F1341 8D 36 13 STA $1336 . F1344 4C 23 13 JMP $1323 X