a2audit/floatbus/apple_split_1.bas

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
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-13 01:52:46 +00:00			`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`