a2audit/floatbus/apple_split_1.bas
Zellyn Hunter c1664150da Initial commit: floating bus test
- Translated "Have an Apple Split" routine to assembly.
- Created build script to build autorunning floatbus.dsk disk image.
2016-09-12 21:52:46 -04:00

15 lines
409 B
QBasic

10 H$ = "300:8D 52 C0 A9 E0 A2 04 CD 51 C0 D0 F9 CA D0 F8 A9 A0 A2 04 CD 50 C0 D0 F9 CA D0 F8 8D 51 C0 60 N D9C6G"
20 FOR X = 1 TO LEN(H$): POKE 511 + X, ASC ( MID$ (H$,X,1)) + 128: NEXT
30 POKE 72,0: CALL -144
100 HOME
200 FOR K = 0 TO 39
210 POKE 1448 + K, 14 * 16
220 POKE 2000 + K, 10 * 16
230 COLOR= K + 4
240 VLIN 25,45 AT K
250 NEXT K
300 VTAB 6: HTAB 17
310 PRINT "APPLE II"
400 CALL 768
500 GOTO 400