Added apple split archive.org link

This commit is contained in:
Zellyn Hunter 2017-04-21 20:51:13 -04:00
parent 7e153565a3
commit b98edea9a0

View File

@ -1,5 +1,6 @@
;;; Assembly conversion of listings 1 and 2 from ;;; Assembly conversion of listings 1 and 2 from
;;; http://rich12345.tripod.com/aiivideo/softalk.html#list2 ;;; http://rich12345.tripod.com/aiivideo/softalk.html#list2
;;; https://archive.org/stream/softalkv3n02oct1982#page/54/mode/2up
!convtab <apple ii/convtab.bin> !convtab <apple ii/convtab.bin>
!to "apple_split_1.o", plain !to "apple_split_1.o", plain
@ -14,10 +15,10 @@ main:
;;; 100 HOME ;;; 100 HOME
JSR HOME JSR HOME
;;; 200 FOR K = 0 TO 39 ;;; 200 FOR K = 0 TO 39
LDX #39 LDX #39
loop: loop:
;;; 210 POKE 1448 + K, 14 * 16 ;;; 210 POKE 1448 + K, 14 * 16
LDA #$E0 LDA #$E0
STA 0x5a8,X STA 0x5a8,X
@ -37,7 +38,7 @@ loop:
STA V2 STA V2
LDA #25 LDA #25
JSR VLINE JSR VLINE
;;; 250 NEXT K ;;; 250 NEXT K
DEX DEX
BPL loop BPL loop
@ -46,7 +47,7 @@ loop:
;;; 310 PRINT "APPLE II" ;;; 310 PRINT "APPLE II"
LDX #7 LDX #7
msgloop: msgloop:
LDA message,X LDA message,X
STA MSGPOS,X STA MSGPOS,X
DEX DEX
@ -61,20 +62,20 @@ forever:
jmp forever jmp forever
message: !text "APPLE II" message: !text "APPLE II"
sync: sync:
STA $C052 STA $C052
LDA #$E0 LDA #$E0
loop1: loop1:
LDX #$04 LDX #$04
loop2: loop2:
CMP $C051 CMP $C051
BNE loop1 BNE loop1
DEX DEX
BNE loop2 BNE loop2
LDA #$A0 LDA #$A0
loop3: loop3:
LDX #$04 LDX #$04
loop4: loop4:
CMP $C050 CMP $C050
BNE loop3 BNE loop3
DEX DEX