
Apple II Computer Info
jsr RtnSpcs
print "Press RETURN."
]LUP LDAL KEY ;Else wait for key
BPL ]LUP
XBA
LDAL STROBE
XBA
CMP #$8D
BNE ]LUP
EXIT2 print 8D8D
rep #$30
LDA STACKPNT
TCS
LDA #0 ;No error
RTL ;All done
mx %00
* print some spaces
RtnSpcs rep #$30
lda #$8d ;print a return first
jsr OUTPUT
Spcs ldx #20
:loop phx
lda #$a0
jsr OUTPUT
plx
dex
bne :loop
rts
*===============================
SENDMSG2 REP %00100001
LDA 1,S
INC
STA 1,S
SEP %00110000
LDY #0
LDA (1,S),Y
BEQ :back
JSR OUTPUT
BRA SENDMSG2
:back rep #$30 ;back to full 16 bit
rts
SENDMSG REP %00100001
LDA 1,S
INC
STA 1,S
SEP %00110000
LDY #0
LDA (1,S),Y
BEQ BACK
JSR OUTPUT
BRA SENDMSG
Apple II Computer Technical Information : Apple II Family Hardware Info
ftp://ground.ecn.uiowa.edu/2/apple2/miscinfo/hardware : May 2001 : 529 of 572
Komentarze do niniejszej Instrukcji