mirror of
https://github.com/mist64/msbasic.git
synced 2024-09-29 18:59:05 +00:00
.
This commit is contained in:
Michael Steil
parent
f90216bf04
commit
a22d31d7db
8
applesoft.cfg
Normal file
8
applesoft.cfg
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
MEMORY {
|
||||||
|
BASROM: start = $0800, size = $3F00, fill = no, file = %O;
|
||||||
|
}
|
||||||
|
|
||||||
|
SEGMENTS {
|
||||||
|
BASIC: load = BASROM, type = ro;
|
||||||
|
}
|
||||||
|
|
||||||
160
defines_apple.s
Normal file
160
defines_apple.s
Normal file
@ -0,0 +1,160 @@
|
|||||||
|
Z00 := $0000
|
||||||
|
L0001 := $0001
|
||||||
|
L0002 := $0002
|
||||||
|
GOWARM := $0000
|
||||||
|
GOSTROUT := $0003
|
||||||
|
GOGIVEAYF := $0008
|
||||||
|
|
||||||
|
CHARAC := $000D
|
||||||
|
ENDCHR := $000E
|
||||||
|
EOLPNTR := $000F
|
||||||
|
DIMFLG := $0010
|
||||||
|
VALTYP := $0011
|
||||||
|
DATAFLG := $0013
|
||||||
|
SUBFLG := $0014
|
||||||
|
INPUTFLG := $0015
|
||||||
|
CPRMASK := $0016
|
||||||
|
Z14 := $0017 ; Ctrl+O flag
|
||||||
|
Z15 := $0018
|
||||||
|
Z16 := $0050
|
||||||
|
Z17 := $0051
|
||||||
|
Z18 := $001B
|
||||||
|
LINNUM := $0053
|
||||||
|
TXPSV := $001C
|
||||||
|
INPUTBUFFER := $0200
|
||||||
|
INPUTBUFFERX := $0200
|
||||||
|
TEMPPT := $0063-14
|
||||||
|
LASTPT := $0064-14
|
||||||
|
INDEX := $0061
|
||||||
|
DEST := $0071-14
|
||||||
|
RESULT := $0073-14
|
||||||
|
RESULT_LAST := $0077-14
|
||||||
|
TXTTAB := $0078-14
|
||||||
|
VARTAB := $007A-14
|
||||||
|
ARYTAB := $007C-14
|
||||||
|
STREND := $007E-14
|
||||||
|
FRETOP := $0080-14
|
||||||
|
FRESPC := $0082-14
|
||||||
|
MEMSIZ := $0084-14
|
||||||
|
CURLIN := $0086-14
|
||||||
|
OLDLIN := $0088-14
|
||||||
|
OLDTEXT := $008A-14
|
||||||
|
Z8C := $008C-14
|
||||||
|
DATPTR := $008E-14
|
||||||
|
INPTR := $0090-14
|
||||||
|
VARNAM := $0092-14
|
||||||
|
VARPNT := $0094-14
|
||||||
|
FORPNT := $0096-14
|
||||||
|
LASTOP := $0098-14
|
||||||
|
CPRTYP := $009A-14
|
||||||
|
FNCNAM := $009B-14
|
||||||
|
TEMP3 := $009B-14 ; same
|
||||||
|
DSCPTR := $009D-14
|
||||||
|
|
||||||
|
DSCLEN := $00A0-14
|
||||||
|
JMPADRS := $00A1-14
|
||||||
|
Z52 := $00A2-14
|
||||||
|
LENGTH := $00A2-14
|
||||||
|
ARGEXTENSION := $00A3-14 ; overlap with JMPADRS! (same on c64)
|
||||||
|
TEMP1 := $00A4-14
|
||||||
|
HIGHDS := $00A5-14
|
||||||
|
HIGHTR := $00A7-14
|
||||||
|
TEMP2 := $00A9-14
|
||||||
|
INDX := $00AA-14
|
||||||
|
TMPEXP := $00AA-14 ; same
|
||||||
|
EXPON := $00AB-14
|
||||||
|
LOWTR := $00AC-14 ; $9D also EXPSGN
|
||||||
|
LOWTRX := $00AC-14 ; $9D also EXPSGN
|
||||||
|
EXPSGN := $00AD-14
|
||||||
|
FAC := $00AE-14
|
||||||
|
FAC_LAST := $00B2-14
|
||||||
|
FACSIGN := $00B3-14
|
||||||
|
SERLEN := $00B4-14
|
||||||
|
SHIFTSIGNEXT := $00B5-14
|
||||||
|
ARG := $00B6-14
|
||||||
|
ARG_LAST := $00BA-14
|
||||||
|
ARGSIGN := $00BB-14
|
||||||
|
STRNG1 := $00BC-14 ; TODO: also SGNCPR
|
||||||
|
FACEXTENSION := $00BD-14
|
||||||
|
STRNG2 := $00BE-14
|
||||||
|
CHRGET := $00C0-14
|
||||||
|
CHRGOT := $00C6-14
|
||||||
|
TXTPTR := $00C7-14
|
||||||
|
|
||||||
|
RNDSEED := $00D8-14
|
||||||
|
|
||||||
|
L1800 := $1800
|
||||||
|
L1873 := $1873
|
||||||
|
MONRDKEY := $1E5A
|
||||||
|
MONCOUT := $1EA0
|
||||||
|
|
||||||
|
STACK_TOP := $F8
|
||||||
|
BYTES_PER_FRAME := $12
|
||||||
|
SPACE_FOR_GOSUB := $36
|
||||||
|
TEMPST := $58
|
||||||
|
FOR_STACK1 := $0F
|
||||||
|
FOR_STACK2 := $09
|
||||||
|
NUM_TOKENS := $1D
|
||||||
|
NULL_MAX := $F2 ; probably different in original version; the image I have seems to be modified; see PDF
|
||||||
|
BYTES_PER_ELEMENT := 5
|
||||||
|
BYTES_PER_VARIABLE := 7
|
||||||
|
BYTES_FP := 5
|
||||||
|
MANTISSA_BYTES := BYTES_FP-1
|
||||||
|
MAX_EXPON = 10
|
||||||
|
|
||||||
|
TOKEN_GOTO := $88
|
||||||
|
TOKEN_GOSUB := $8C
|
||||||
|
TOKEN_REM := $8E
|
||||||
|
TOKEN_PRINT := $96
|
||||||
|
TOKEN_TAB := $9C
|
||||||
|
TOKEN_TO := $9D
|
||||||
|
TOKEN_FN := $9E
|
||||||
|
TOKEN_SPC := $9F
|
||||||
|
TOKEN_THEN := $A0
|
||||||
|
TOKEN_NOT := $A1
|
||||||
|
TOKEN_STEP := $A2
|
||||||
|
TOKEN_PLUS := $A3
|
||||||
|
TOKEN_MINUS := $A4
|
||||||
|
TOKEN_GREATER := $AA
|
||||||
|
TOKEN_EQUAL := $AB
|
||||||
|
TOKEN_SGN := $AD
|
||||||
|
TOKEN_LEFTSTR := $C1
|
||||||
|
|
||||||
|
|
||||||
|
RAMSTART3 := $AAAA
|
||||||
|
RAMSTART2 := $AAAA
|
||||||
|
USR := $AAAA
|
||||||
|
SAVE := $AAAA
|
||||||
|
LOAD := $AAAA
|
||||||
|
LFD0C := $AAAA
|
||||||
|
INLIN := $AAAA
|
||||||
|
CLEAR := $AAAA
|
||||||
|
L0BF3 := $AAAA
|
||||||
|
LFEFD := $AAAA
|
||||||
|
LFECD := $AAAA
|
||||||
|
L0D28 := $AAAA
|
||||||
|
L1528 := $AAAA
|
||||||
|
L000A := $000A
|
||||||
|
L123C := $AAAA
|
||||||
|
L2829 := $AAAA
|
||||||
|
QT_WRITTEN_BY := $AAAA
|
||||||
|
L2AAA := $AAAA
|
||||||
|
L2A52 := $AAAA
|
||||||
|
L2AA3 := $AAAA
|
||||||
|
L1008 := $AAAA
|
||||||
|
L2A6D := $AAAA
|
||||||
|
L2A68 := $AAAA
|
||||||
|
LF689 := $AAAA
|
||||||
|
L0008 := $AA
|
||||||
|
LFB40 := $AAAA
|
||||||
|
L0006 := $AA
|
||||||
|
LF828 := $AAAA
|
||||||
|
LF819 := $AAAA
|
||||||
|
LF800 := $AAAA
|
||||||
|
LF864 := $AAAA
|
||||||
|
L1F20 := $AAAA
|
||||||
|
L00A4 := $AA
|
||||||
|
L1751 := $AAAA
|
||||||
|
L2198 := $AAAA
|
||||||
|
L13D7 := $AAAA
|
||||||
|
LFD6A := $AAAA
|
||||||
19
make.sh
19
make.sh
@ -1,6 +1,6 @@
|
|||||||
# 1.0
|
# 1.0
|
||||||
echo cbmbasic1
|
echo cbmbasic1
|
||||||
ca65 -D CBM -D CBM1 -D CBM_KBD -D CONFIG_CBM1_PATCHES msbasic.s -o cbmbasic1.o &&
|
ca65 -D CBM -D CBM1 -D CBM_KBD -D CBM_KBD_APPLE -D CONFIG_CBM1_PATCHES -D CBM1_APPLE -D CBM_APPLE msbasic.s -o cbmbasic1.o &&
|
||||||
ld65 -C cbmbasic1.cfg cbmbasic1.o -o cbmbasic1-new.bin &&
|
ld65 -C cbmbasic1.cfg cbmbasic1.o -o cbmbasic1-new.bin &&
|
||||||
xxd -g 1 cbmbasic1.bin > cbmbasic1.bin.txt
|
xxd -g 1 cbmbasic1.bin > cbmbasic1.bin.txt
|
||||||
xxd -g 1 cbmbasic1-new.bin > cbmbasic1-new.bin.txt
|
xxd -g 1 cbmbasic1-new.bin > cbmbasic1-new.bin.txt
|
||||||
@ -8,15 +8,12 @@ diff -u cbmbasic1.bin.txt cbmbasic1-new.bin.txt | head
|
|||||||
|
|
||||||
# 1.0 ?
|
# 1.0 ?
|
||||||
echo kbdbasic
|
echo kbdbasic
|
||||||
ca65 -D KBD -D OSI_KBD -D CBM_KBD -D CBM2_KBD -D KIM_KBD -D CONFIG_11 msbasic.s -o kbdbasic.o &&
|
ca65 -D KBD -D OSI_KBD -D CBM_KBD -D CBM_KBD_APPLE -D CBM2_KBD -D KIM_KBD -D CONFIG_11 -D CONFIG_11_NOAPPLE -D CBM2_KBD_APPLE -D KIM_KBD_APPLE msbasic.s -o kbdbasic.o &&
|
||||||
ld65 -C kbdbasic.cfg kbdbasic.o -o kbdbasic-new.bin &&
|
ld65 -C kbdbasic.cfg kbdbasic.o -o kbdbasic-new.bin &&
|
||||||
xxd -g 1 kbdbasic.bin > kbdbasic.bin.txt
|
xxd -g 1 kbdbasic.bin > kbdbasic.bin.txt
|
||||||
xxd -g 1 kbdbasic-new.bin > kbdbasic-new.bin.txt
|
xxd -g 1 kbdbasic-new.bin > kbdbasic-new.bin.txt
|
||||||
diff -u kbdbasic.bin.txt kbdbasic-new.bin.txt | head
|
diff -u kbdbasic.bin.txt kbdbasic-new.bin.txt | head
|
||||||
|
|
||||||
da65 --info kbdbasic-temp.txt
|
|
||||||
#opendiff ../cbmbasic2.s cbmbasic2-new.s
|
|
||||||
|
|
||||||
# 1.0 rev 3.2
|
# 1.0 rev 3.2
|
||||||
echo osi
|
echo osi
|
||||||
ca65 -D OSI -D OSI_KBD msbasic.s -o osi.o &&
|
ca65 -D OSI -D OSI_KBD msbasic.s -o osi.o &&
|
||||||
@ -27,7 +24,7 @@ diff -u osi.bin.txt osi-new.bin.txt | head
|
|||||||
|
|
||||||
# 1.1
|
# 1.1
|
||||||
echo kb9
|
echo kb9
|
||||||
ca65 -D KIM -D KIM_KBD -D CONFIG_11 -D CBM2_KIM msbasic.s -o kb9.o &&
|
ca65 -D KIM -D KIM_KBD -D CONFIG_11 -D CONFIG_11_NOAPPLE -D CBM2_KIM -D KIM_KBD_APPLE -D CBM2_KIM_APPLE -D KIM_APPLE msbasic.s -o kb9.o &&
|
||||||
ld65 -C kb9.cfg kb9.o -o kb9-new.bin &&
|
ld65 -C kb9.cfg kb9.o -o kb9-new.bin &&
|
||||||
xxd -g 1 kb9.bin > kb9.bin.txt
|
xxd -g 1 kb9.bin > kb9.bin.txt
|
||||||
xxd -g 1 kb9-new.bin > kb9-new.bin.txt
|
xxd -g 1 kb9-new.bin > kb9-new.bin.txt
|
||||||
@ -35,9 +32,17 @@ diff -u kb9.bin.txt kb9-new.bin.txt | head
|
|||||||
|
|
||||||
# 2
|
# 2
|
||||||
echo cbmbasic2
|
echo cbmbasic2
|
||||||
ca65 -D CBM -D CBM2 -D CONFIG_11 -D CBM_KBD -D CBM2_KBD -D CBM2_KIM msbasic.s -o cbmbasic2.o &&
|
ca65 -D CBM -D CBM2 -D CONFIG_11 -D CONFIG_11_NOAPPLE -D CBM_KBD -D CBM_KBD_APPLE -D CBM2_KBD_APPLE -D CBM2_KBD -D CBM2_KIM -D CBM2_APPLE -D CBM2_KIM_APPLE -D CBM_APPLE msbasic.s -o cbmbasic2.o &&
|
||||||
ld65 -C cbmbasic1.cfg cbmbasic2.o -o cbmbasic2-new.bin &&
|
ld65 -C cbmbasic1.cfg cbmbasic2.o -o cbmbasic2-new.bin &&
|
||||||
xxd -g 1 cbmbasic2.bin > cbmbasic2.bin.txt
|
xxd -g 1 cbmbasic2.bin > cbmbasic2.bin.txt
|
||||||
xxd -g 1 cbmbasic2-new.bin > cbmbasic2-new.bin.txt
|
xxd -g 1 cbmbasic2-new.bin > cbmbasic2-new.bin.txt
|
||||||
diff -u cbmbasic2.bin.txt cbmbasic2-new.bin.txt | head
|
diff -u cbmbasic2.bin.txt cbmbasic2-new.bin.txt | head
|
||||||
|
|
||||||
|
# 1.1
|
||||||
|
echo applesoft
|
||||||
|
ca65 -D APPLE -D CONFIG_11 -D CBM_KBD_APPLE -D CBM2_APPLE -D CBM2_KBD_APPLE -D KIM_KBD_APPLE -D CBM2_KIM_APPLE -D CBM1_APPLE -D CBM_APPLE -D KIM_APPLE msbasic.s -o applesoft.o &&
|
||||||
|
ld65 -C applesoft.cfg applesoft.o -o applesoft-new.bin &&
|
||||||
|
xxd -g 1 applesoft.bin > applesoft.bin.txt
|
||||||
|
xxd -g 1 applesoft-new.bin > applesoft-new.bin.txt
|
||||||
|
#diff -u applesoft.bin.txt applesoft-new.bin.txt | head
|
||||||
|
da65 --info applesoft-temp.txt
|
||||||
|
|||||||
402
msbasic.s
402
msbasic.s
@ -12,6 +12,9 @@
|
|||||||
.ifdef CBM
|
.ifdef CBM
|
||||||
.include "defines_cbm.s"
|
.include "defines_cbm.s"
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
.include "defines_apple.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
.include "macros.s"
|
.include "macros.s"
|
||||||
|
|
||||||
@ -47,7 +50,7 @@ TOKEN_ADDRESS_TABLE:
|
|||||||
.word REM-1
|
.word REM-1
|
||||||
.word STOP-1
|
.word STOP-1
|
||||||
.word ON-1
|
.word ON-1
|
||||||
.ifndef CBM_KBD
|
.ifndef CBM_KBD_APPLE
|
||||||
.word NULL-1
|
.word NULL-1
|
||||||
.endif
|
.endif
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
@ -157,17 +160,25 @@ TOKEN_NAME_TABLE:
|
|||||||
htasc "INPUT"
|
htasc "INPUT"
|
||||||
htasc "DIM"
|
htasc "DIM"
|
||||||
htasc "READ"
|
htasc "READ"
|
||||||
|
.ifdef APPLE
|
||||||
|
htasc "PLT"
|
||||||
|
.else
|
||||||
htasc "LET"
|
htasc "LET"
|
||||||
|
.endif
|
||||||
htasc "GOTO"
|
htasc "GOTO"
|
||||||
htasc "RUN"
|
htasc "RUN"
|
||||||
htasc "IF"
|
htasc "IF"
|
||||||
htasc "RESTORE"
|
htasc "RESTORE"
|
||||||
htasc "GOSUB"
|
htasc "GOSUB"
|
||||||
htasc "RETURN"
|
htasc "RETURN"
|
||||||
|
.ifdef APPLE
|
||||||
|
htasc "TEX"
|
||||||
|
.else
|
||||||
htasc "REM"
|
htasc "REM"
|
||||||
|
.endif
|
||||||
htasc "STOP"
|
htasc "STOP"
|
||||||
htasc "ON"
|
htasc "ON"
|
||||||
.ifndef CBM_KBD
|
.ifndef CBM_KBD_APPLE
|
||||||
htasc "NULL"
|
htasc "NULL"
|
||||||
.endif
|
.endif
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
@ -358,8 +369,13 @@ ERR_UNDEFFN := <(*-ERROR_MESSAGES)
|
|||||||
QT_ERROR:
|
QT_ERROR:
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
.byte " err"
|
.byte " err"
|
||||||
|
.else
|
||||||
|
.ifdef APPLE
|
||||||
|
.byte " ERR"
|
||||||
|
.byte $07,$07
|
||||||
.else
|
.else
|
||||||
.byte " ERROR"
|
.byte " ERROR"
|
||||||
|
.endif
|
||||||
.endif
|
.endif
|
||||||
.byte $00
|
.byte $00
|
||||||
.ifndef KBD
|
.ifndef KBD
|
||||||
@ -367,11 +383,16 @@ QT_IN:
|
|||||||
.byte " IN "
|
.byte " IN "
|
||||||
.byte $00
|
.byte $00
|
||||||
QT_OK:
|
QT_OK:
|
||||||
|
.ifdef APPLE
|
||||||
|
.byte $0D,$00,$00
|
||||||
|
.byte "K"
|
||||||
|
.else
|
||||||
.byte $0D,$0A
|
.byte $0D,$0A
|
||||||
.ifdef CBM
|
.ifdef CBM
|
||||||
.byte "READY."
|
.byte "READY."
|
||||||
.else
|
.else
|
||||||
.byte "OK"
|
.byte "OK"
|
||||||
|
.endif
|
||||||
.endif
|
.endif
|
||||||
.byte $0D,$0A,$00
|
.byte $0D,$0A,$00
|
||||||
.else
|
.else
|
||||||
@ -714,10 +735,10 @@ PUT_NEW_LINE:
|
|||||||
L23D6:
|
L23D6:
|
||||||
sty HIGHDS+1
|
sty HIGHDS+1
|
||||||
jsr BLTU
|
jsr BLTU
|
||||||
.ifdef CBM2
|
.ifdef CBM2_APPLE
|
||||||
lda LINNUM
|
lda LINNUM
|
||||||
ldy LINNUM+1
|
ldy LINNUM+1
|
||||||
sta INPUTBUFFER-2 ; exists in AppleSoft!
|
sta INPUTBUFFER-2
|
||||||
sty INPUTBUFFER-1
|
sty INPUTBUFFER-1
|
||||||
.endif
|
.endif
|
||||||
lda STREND
|
lda STREND
|
||||||
@ -810,6 +831,24 @@ LE39A:
|
|||||||
RET3:
|
RET3:
|
||||||
rts
|
rts
|
||||||
.else
|
.else
|
||||||
|
.ifdef APPLE
|
||||||
|
ldx #$DD
|
||||||
|
L0C27:
|
||||||
|
stx $33
|
||||||
|
jsr L2900
|
||||||
|
cpx #$EF
|
||||||
|
bcs L0C32
|
||||||
|
ldx #$EF
|
||||||
|
L0C32:
|
||||||
|
lda #$00
|
||||||
|
sta $0200,x
|
||||||
|
ldx #$FF
|
||||||
|
ldy #$01
|
||||||
|
rts
|
||||||
|
L0C3C:
|
||||||
|
jsr LFD0C
|
||||||
|
and #$7F
|
||||||
|
.else
|
||||||
.ifdef CBM2
|
.ifdef CBM2
|
||||||
RET3:
|
RET3:
|
||||||
rts
|
rts
|
||||||
@ -888,6 +927,7 @@ GETLN:
|
|||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
and #$7F
|
and #$7F
|
||||||
|
.endif
|
||||||
.endif
|
.endif
|
||||||
cmp #$0F
|
cmp #$0F
|
||||||
bne L2465
|
bne L2465
|
||||||
@ -999,7 +1039,7 @@ L24DB:
|
|||||||
bpl L24AA
|
bpl L24AA
|
||||||
L24EA:
|
L24EA:
|
||||||
sta INPUTBUFFER-3,y
|
sta INPUTBUFFER-3,y
|
||||||
.ifdef CBM2_KBD
|
.ifdef CBM2_KBD_APPLE
|
||||||
dec TXTPTR+1
|
dec TXTPTR+1
|
||||||
.endif
|
.endif
|
||||||
lda #<INPUTBUFFER-1
|
lda #<INPUTBUFFER-1
|
||||||
@ -1085,11 +1125,13 @@ SCRTCH:
|
|||||||
sta VARTAB+1
|
sta VARTAB+1
|
||||||
SETPTRS:
|
SETPTRS:
|
||||||
jsr STXTPT
|
jsr STXTPT
|
||||||
|
.ifndef APPLE
|
||||||
.ifdef CONFIG_11
|
.ifdef CONFIG_11
|
||||||
lda #$00
|
lda #$00
|
||||||
CLEAR:
|
CLEAR:
|
||||||
bne L256A
|
bne L256A
|
||||||
.endif
|
.endif
|
||||||
|
.endif
|
||||||
CLEARC:
|
CLEARC:
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
lda #<CONST_MEMSIZ
|
lda #<CONST_MEMSIZ
|
||||||
@ -1199,7 +1241,7 @@ L2598:
|
|||||||
L25A6:
|
L25A6:
|
||||||
.endif
|
.endif
|
||||||
ldy #$01
|
ldy #$01
|
||||||
.ifndef KIM_KBD
|
.ifndef KIM_KBD_APPLE
|
||||||
sty DATAFLG
|
sty DATAFLG
|
||||||
.endif
|
.endif
|
||||||
lda (LOWTRX),y
|
lda (LOWTRX),y
|
||||||
@ -1228,7 +1270,7 @@ L25CA:
|
|||||||
and #$7F
|
and #$7F
|
||||||
L25CE:
|
L25CE:
|
||||||
jsr OUTDO
|
jsr OUTDO
|
||||||
.ifndef KIM_KBD
|
.ifndef KIM_KBD_APPLE
|
||||||
cmp #$22
|
cmp #$22
|
||||||
bne LA519
|
bne LA519
|
||||||
lda DATAFLG
|
lda DATAFLG
|
||||||
@ -1254,7 +1296,7 @@ L25E5:
|
|||||||
jmp RESTART
|
jmp RESTART
|
||||||
L25E8:
|
L25E8:
|
||||||
bpl L25CE
|
bpl L25CE
|
||||||
.ifndef KIM_KBD
|
.ifndef KIM_KBD_APPLE
|
||||||
cmp #$FF
|
cmp #$FF
|
||||||
beq L25CE
|
beq L25CE
|
||||||
bit DATAFLG
|
bit DATAFLG
|
||||||
@ -1455,6 +1497,14 @@ RET2:
|
|||||||
.ifndef CBM
|
.ifndef CBM
|
||||||
ISCNTC:
|
ISCNTC:
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
lda $C000
|
||||||
|
cmp #$83
|
||||||
|
beq L0ECC
|
||||||
|
rts
|
||||||
|
L0ECC:
|
||||||
|
jsr L0C3C
|
||||||
|
.endif
|
||||||
.ifdef OSI
|
.ifdef OSI
|
||||||
jmp MONISCNTC
|
jmp MONISCNTC
|
||||||
nop
|
nop
|
||||||
@ -1540,6 +1590,49 @@ L271C:
|
|||||||
sty CURLIN+1
|
sty CURLIN+1
|
||||||
RET1:
|
RET1:
|
||||||
rts
|
rts
|
||||||
|
.ifdef APPLE
|
||||||
|
L0F14:
|
||||||
|
bne RET1
|
||||||
|
jmp L0D28
|
||||||
|
L0F19:
|
||||||
|
jsr L0F42
|
||||||
|
jsr LFECD
|
||||||
|
jsr L0F51
|
||||||
|
jmp LFECD
|
||||||
|
L0F25:
|
||||||
|
jsr L0F42
|
||||||
|
jsr LFEFD
|
||||||
|
jsr L0F51
|
||||||
|
jsr LFEFD
|
||||||
|
lda #$3B
|
||||||
|
ldy #$0F
|
||||||
|
jsr STROUT
|
||||||
|
jmp L0BF3
|
||||||
|
brk
|
||||||
|
.byte $4F
|
||||||
|
eor ($44,x)
|
||||||
|
eor $44
|
||||||
|
brk
|
||||||
|
L0F42:
|
||||||
|
lda #$6C
|
||||||
|
ldy #$00
|
||||||
|
sta $3C
|
||||||
|
sty $3D
|
||||||
|
lda #$6E
|
||||||
|
sta $3E
|
||||||
|
sty $3F
|
||||||
|
rts
|
||||||
|
L0F51:
|
||||||
|
lda $6A
|
||||||
|
ldy $6B
|
||||||
|
sta $3C
|
||||||
|
sty $3D
|
||||||
|
lda $6C
|
||||||
|
ldy $6D
|
||||||
|
sta $3E
|
||||||
|
sty $3F
|
||||||
|
rts
|
||||||
|
.endif
|
||||||
.ifdef KBD
|
.ifdef KBD
|
||||||
PRT:
|
PRT:
|
||||||
jsr GETBYT
|
jsr GETBYT
|
||||||
@ -1558,7 +1651,7 @@ LE68E:
|
|||||||
bpl LE68E
|
bpl LE68E
|
||||||
rts
|
rts
|
||||||
.endif
|
.endif
|
||||||
.ifndef CBM2_KBD
|
.ifndef CBM2_KBD_APPLE
|
||||||
NULL:
|
NULL:
|
||||||
jsr GETBYT
|
jsr GETBYT
|
||||||
bne RET1
|
bne RET1
|
||||||
@ -1697,7 +1790,7 @@ POP:
|
|||||||
bne L281E
|
bne L281E
|
||||||
lda #$FF
|
lda #$FF
|
||||||
.ifdef CBM2_KBD
|
.ifdef CBM2_KBD
|
||||||
sta FORPNT+1 ; bugfix
|
sta FORPNT+1 ; bugfix, wrong in AppleSoft
|
||||||
.else
|
.else
|
||||||
sta FORPNT
|
sta FORPNT
|
||||||
.endif
|
.endif
|
||||||
@ -2072,10 +2165,12 @@ L29B9:
|
|||||||
ldx #<(INPUTBUFFER-1)
|
ldx #<(INPUTBUFFER-1)
|
||||||
ldy #>(INPUTBUFFER-1)
|
ldy #>(INPUTBUFFER-1)
|
||||||
.else
|
.else
|
||||||
|
.ifndef APPLE
|
||||||
ldy #$00
|
ldy #$00
|
||||||
sty INPUTBUFFER,x
|
sty INPUTBUFFER,x
|
||||||
ldx #LINNUM+1
|
ldx #LINNUM+1
|
||||||
.endif
|
.endif
|
||||||
|
.endif
|
||||||
.ifdef CBM
|
.ifdef CBM
|
||||||
lda Z03
|
lda Z03
|
||||||
bne L29DD
|
bne L29DD
|
||||||
@ -2100,7 +2195,7 @@ PRINTNULLS:
|
|||||||
lda Z03
|
lda Z03
|
||||||
bne L29DD
|
bne L29DD
|
||||||
.endif
|
.endif
|
||||||
.ifndef CBM2
|
.ifndef CBM2_APPLE
|
||||||
txa
|
txa
|
||||||
pha
|
pha
|
||||||
ldx Z15
|
ldx Z15
|
||||||
@ -2115,6 +2210,10 @@ L29D9:
|
|||||||
pla
|
pla
|
||||||
tax
|
tax
|
||||||
.else
|
.else
|
||||||
|
.ifdef APPLE
|
||||||
|
lda #$00
|
||||||
|
sta $50
|
||||||
|
.endif
|
||||||
eor #$FF
|
eor #$FF
|
||||||
.endif
|
.endif
|
||||||
.endif
|
.endif
|
||||||
@ -2149,15 +2248,21 @@ L29EB:
|
|||||||
adc #$01
|
adc #$01
|
||||||
bne L2A08
|
bne L2A08
|
||||||
L29F5:
|
L29F5:
|
||||||
.ifndef CONFIG_11
|
.ifdef CONFIG_11_NOAPPLE
|
||||||
pha
|
|
||||||
.else
|
|
||||||
php
|
php
|
||||||
|
.else
|
||||||
|
pha
|
||||||
.endif
|
.endif
|
||||||
jsr GTBYTC
|
jsr GTBYTC
|
||||||
cmp #$29
|
cmp #$29
|
||||||
.ifndef CONFIG_11
|
.ifndef CONFIG_11_NOAPPLE
|
||||||
|
.ifdef APPLE
|
||||||
|
beq L1185
|
||||||
|
jmp L1528
|
||||||
|
L1185:
|
||||||
|
.else
|
||||||
bne SYNERR4
|
bne SYNERR4
|
||||||
|
.endif
|
||||||
pla
|
pla
|
||||||
cmp #TOKEN_TAB
|
cmp #TOKEN_TAB
|
||||||
bne L2A0A
|
bne L2A0A
|
||||||
@ -2273,7 +2378,13 @@ LCA6A:
|
|||||||
lda Z16
|
lda Z16
|
||||||
cmp Z17
|
cmp Z17
|
||||||
bne L2A4C
|
bne L2A4C
|
||||||
|
.ifdef APPLE
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
.else
|
||||||
jsr CRDO
|
jsr CRDO
|
||||||
|
.endif
|
||||||
L2A4C:
|
L2A4C:
|
||||||
.endif
|
.endif
|
||||||
.ifndef CBM
|
.ifndef CBM
|
||||||
@ -2285,8 +2396,14 @@ L2A4E:
|
|||||||
.endif
|
.endif
|
||||||
.ifdef KIM
|
.ifdef KIM
|
||||||
sty DIMFLG
|
sty DIMFLG
|
||||||
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
ora #$80
|
||||||
.endif
|
.endif
|
||||||
jsr MONCOUT
|
jsr MONCOUT
|
||||||
|
.ifdef APPLE
|
||||||
|
and #$7F
|
||||||
|
.endif
|
||||||
.ifdef KIM
|
.ifdef KIM
|
||||||
ldy DIMFLG
|
ldy DIMFLG
|
||||||
.endif
|
.endif
|
||||||
@ -2316,7 +2433,7 @@ LE900:
|
|||||||
L2A59:
|
L2A59:
|
||||||
lda INPUTFLG
|
lda INPUTFLG
|
||||||
beq L2A6E
|
beq L2A6E
|
||||||
.ifdef CBM2_KIM
|
.ifdef CBM2_KIM_APPLE
|
||||||
bmi L2A63
|
bmi L2A63
|
||||||
ldy #$FF
|
ldy #$FF
|
||||||
bne L2A67
|
bne L2A67
|
||||||
@ -2367,7 +2484,7 @@ LCAB6:
|
|||||||
.endif
|
.endif
|
||||||
ldx #<(INPUTBUFFER+1)
|
ldx #<(INPUTBUFFER+1)
|
||||||
ldy #>(INPUTBUFFER+1)
|
ldy #>(INPUTBUFFER+1)
|
||||||
.ifdef CBM2
|
.ifdef CBM2_APPLE
|
||||||
lda #$00
|
lda #$00
|
||||||
sta INPUTBUFFER+1
|
sta INPUTBUFFER+1
|
||||||
.else
|
.else
|
||||||
@ -2497,6 +2614,9 @@ PROCESS_INPUT_ITEM:
|
|||||||
.ifndef OSI_KBD
|
.ifndef OSI_KBD
|
||||||
bvc L2AF0
|
bvc L2AF0
|
||||||
jsr MONRDKEY
|
jsr MONRDKEY
|
||||||
|
.ifdef APPLE
|
||||||
|
and #$7F
|
||||||
|
.endif
|
||||||
sta INPUTBUFFER
|
sta INPUTBUFFER
|
||||||
.ifdef CBM1
|
.ifdef CBM1
|
||||||
ldy #>(INPUTBUFFER-1)
|
ldy #>(INPUTBUFFER-1)
|
||||||
@ -3350,7 +3470,7 @@ NAMENOTFOUND:
|
|||||||
pha
|
pha
|
||||||
cmp #<FRM_VARIABLE_CALL
|
cmp #<FRM_VARIABLE_CALL
|
||||||
bne MAKENEWVARIABLE
|
bne MAKENEWVARIABLE
|
||||||
.ifdef KIM_KBD
|
.ifdef KIM_KBD_APPLE
|
||||||
tsx
|
tsx
|
||||||
lda STACK+2,x
|
lda STACK+2,x
|
||||||
cmp #>FRM_VARIABLE_CALL
|
cmp #>FRM_VARIABLE_CALL
|
||||||
@ -3710,7 +3830,7 @@ L3124:
|
|||||||
tay
|
tay
|
||||||
lda STRNG2
|
lda STRNG2
|
||||||
.else
|
.else
|
||||||
.ifndef CBM1
|
.ifndef CBM1_APPLE
|
||||||
sta STRNG2+1
|
sta STRNG2+1
|
||||||
.endif
|
.endif
|
||||||
ldx #BYTES_FP
|
ldx #BYTES_FP
|
||||||
@ -3989,7 +4109,7 @@ L32AA:
|
|||||||
L32B6:
|
L32B6:
|
||||||
stx STRNG2+1
|
stx STRNG2+1
|
||||||
lda STRNG1+1
|
lda STRNG1+1
|
||||||
.ifdef CBM2_KBD
|
.ifdef CBM2_KBD_APPLE
|
||||||
beq LD399
|
beq LD399
|
||||||
cmp #>INPUTBUFFER
|
cmp #>INPUTBUFFER
|
||||||
.endif
|
.endif
|
||||||
@ -4631,7 +4751,12 @@ COMBYTE:
|
|||||||
jmp GETBYT
|
jmp GETBYT
|
||||||
GETADR:
|
GETADR:
|
||||||
lda FACSIGN
|
lda FACSIGN
|
||||||
|
.ifdef APPLE
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
.else
|
||||||
bmi GOIQ
|
bmi GOIQ
|
||||||
|
.endif
|
||||||
lda FAC
|
lda FAC
|
||||||
cmp #$91
|
cmp #$91
|
||||||
bcs GOIQ
|
bcs GOIQ
|
||||||
@ -4898,7 +5023,7 @@ NORMALIZE_FAC6:
|
|||||||
ror FAC+1
|
ror FAC+1
|
||||||
ror FAC+2
|
ror FAC+2
|
||||||
ror FAC+3
|
ror FAC+3
|
||||||
.ifdef CBM
|
.ifdef CBM_APPLE
|
||||||
ror FAC+4
|
ror FAC+4
|
||||||
.endif
|
.endif
|
||||||
ror FACEXTENSION
|
ror FACEXTENSION
|
||||||
@ -5018,8 +5143,8 @@ LB58E:
|
|||||||
SHIFT_RIGHT4:
|
SHIFT_RIGHT4:
|
||||||
ror 2,x
|
ror 2,x
|
||||||
ror 3,x
|
ror 3,x
|
||||||
.ifdef CBM
|
.ifdef CBM_APPLE
|
||||||
ror 4,x ; AppleSoft, too
|
ror 4,x
|
||||||
.endif
|
.endif
|
||||||
ror a
|
ror a
|
||||||
iny
|
iny
|
||||||
@ -5193,8 +5318,12 @@ L38C3:
|
|||||||
.ifndef KIM
|
.ifndef KIM
|
||||||
ror RESULT
|
ror RESULT
|
||||||
ror RESULT+1
|
ror RESULT+1
|
||||||
|
.ifdef APPLE
|
||||||
|
.byte RESULT+2,RESULT+2 ; XXX BUG!
|
||||||
|
.else
|
||||||
ror RESULT+2
|
ror RESULT+2
|
||||||
.ifdef CBM
|
.endif
|
||||||
|
.ifdef CBM_APPLE
|
||||||
ror RESULT+3
|
ror RESULT+3
|
||||||
.endif
|
.endif
|
||||||
ror FACEXTENSION
|
ror FACEXTENSION
|
||||||
@ -6489,7 +6618,7 @@ POLY_ATN:
|
|||||||
.byte $7E,$4C,$CC,$91,$C7
|
.byte $7E,$4C,$CC,$91,$C7
|
||||||
.byte $7F,$AA,$AA,$AA,$13
|
.byte $7F,$AA,$AA,$AA,$13
|
||||||
.byte $81,$00,$00,$00,$00
|
.byte $81,$00,$00,$00,$00
|
||||||
.ifndef CBM
|
.ifndef CBM_APPLE
|
||||||
.byte $00 ; XXX
|
.byte $00 ; XXX
|
||||||
.endif
|
.endif
|
||||||
.endif
|
.endif
|
||||||
@ -6550,11 +6679,12 @@ COLD_START:
|
|||||||
jsr STROUT
|
jsr STROUT
|
||||||
.endif
|
.endif
|
||||||
COLD_START2:
|
COLD_START2:
|
||||||
.ifdef CBM2
|
.ifndef CBM2
|
||||||
ldx #$FB
|
|
||||||
.else
|
|
||||||
ldx #$FF
|
ldx #$FF
|
||||||
stx CURLIN+1
|
stx CURLIN+1
|
||||||
|
.endif
|
||||||
|
.ifdef CBM2_APPLE
|
||||||
|
ldx #$FB
|
||||||
.endif
|
.endif
|
||||||
txs
|
txs
|
||||||
.ifndef CBM
|
.ifndef CBM
|
||||||
@ -6582,6 +6712,9 @@ COLD_START2:
|
|||||||
sta GOWARM
|
sta GOWARM
|
||||||
sta JMPADRS
|
sta JMPADRS
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
sta L000A
|
||||||
|
.endif
|
||||||
.ifdef OSI_KBD
|
.ifdef OSI_KBD
|
||||||
sta USR
|
sta USR
|
||||||
lda #$88
|
lda #$88
|
||||||
@ -6589,12 +6722,13 @@ COLD_START2:
|
|||||||
sta $0B
|
sta $0B
|
||||||
sty $0C
|
sty $0C
|
||||||
.endif
|
.endif
|
||||||
.ifdef CBM
|
.ifdef CBM_APPLE
|
||||||
lda #<IQERR
|
lda #<IQERR
|
||||||
ldy #>IQERR
|
ldy #>IQERR
|
||||||
sta L0001
|
sta L0001
|
||||||
sty L0002
|
sty L0002
|
||||||
.else
|
.endif
|
||||||
|
.ifndef CBM
|
||||||
lda #$48
|
lda #$48
|
||||||
sta Z17
|
sta Z17
|
||||||
lda #$38
|
lda #$38
|
||||||
@ -6632,7 +6766,7 @@ L4098:
|
|||||||
sta Z03
|
sta Z03
|
||||||
.endif
|
.endif
|
||||||
sta LASTPT+1
|
sta LASTPT+1
|
||||||
.ifndef CBM2_KBD
|
.ifndef CBM2_KBD_APPLE
|
||||||
sta Z15
|
sta Z15
|
||||||
.endif
|
.endif
|
||||||
.ifndef CONFIG_11
|
.ifndef CONFIG_11
|
||||||
@ -6647,11 +6781,16 @@ L4098:
|
|||||||
.else
|
.else
|
||||||
lda #$03
|
lda #$03
|
||||||
sta DSCLEN
|
sta DSCLEN
|
||||||
.ifndef KIM
|
.ifndef KIM_APPLE
|
||||||
lda #$2C
|
lda #$2C
|
||||||
sta LINNUM+1
|
sta LINNUM+1
|
||||||
.endif
|
.endif
|
||||||
jsr CRDO
|
jsr CRDO
|
||||||
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
lda #$01
|
||||||
|
sta $01FD
|
||||||
|
sta $01FC
|
||||||
.endif
|
.endif
|
||||||
ldx #TEMPST
|
ldx #TEMPST
|
||||||
stx TEMPPT
|
stx TEMPPT
|
||||||
@ -6664,7 +6803,12 @@ L4098:
|
|||||||
sty TXTPTR+1
|
sty TXTPTR+1
|
||||||
jsr CHRGET
|
jsr CHRGET
|
||||||
cmp #$41
|
cmp #$41
|
||||||
|
.ifdef APPLE
|
||||||
|
nop
|
||||||
|
nop;XXX
|
||||||
|
.else
|
||||||
beq COLD_START
|
beq COLD_START
|
||||||
|
.endif
|
||||||
tay
|
tay
|
||||||
bne L40EE
|
bne L40EE
|
||||||
.endif
|
.endif
|
||||||
@ -6714,7 +6858,7 @@ L40DD:
|
|||||||
beq L40D7
|
beq L40D7
|
||||||
bne L40FA
|
bne L40FA
|
||||||
.endif
|
.endif
|
||||||
.ifdef KIM
|
.ifdef KIM_APPLE
|
||||||
bne L40FA
|
bne L40FA
|
||||||
beq L40D7
|
beq L40D7
|
||||||
.endif
|
.endif
|
||||||
@ -6735,10 +6879,17 @@ L40FA:
|
|||||||
sty FRETOP+1
|
sty FRETOP+1
|
||||||
L4106:
|
L4106:
|
||||||
.ifndef CBM
|
.ifndef CBM
|
||||||
|
.ifdef APPLE
|
||||||
|
lda #$FF
|
||||||
|
jmp L2829
|
||||||
|
.word STROUT
|
||||||
|
jsr L123C
|
||||||
|
.else
|
||||||
lda #<QT_TERMINAL_WIDTH
|
lda #<QT_TERMINAL_WIDTH
|
||||||
ldy #>QT_TERMINAL_WIDTH
|
ldy #>QT_TERMINAL_WIDTH
|
||||||
jsr STROUT
|
jsr STROUT
|
||||||
jsr NXIN
|
jsr NXIN
|
||||||
|
.endif
|
||||||
stx TXTPTR
|
stx TXTPTR
|
||||||
sty TXTPTR+1
|
sty TXTPTR+1
|
||||||
jsr CHRGET
|
jsr CHRGET
|
||||||
@ -6851,7 +7002,13 @@ L4192:
|
|||||||
sty L0002
|
sty L0002
|
||||||
jmp (L0001)
|
jmp (L0001)
|
||||||
.endif
|
.endif
|
||||||
.ifndef CBM
|
.ifdef APPLE
|
||||||
|
.byte $C3,$CF,$D0,$D9,$D2,$C9,$C7,$C8
|
||||||
|
.byte $D4,$A0,$B1,$B9,$B7,$B7,$A0,$C2
|
||||||
|
.byte $D9,$A0,$CD,$C9,$C3,$D2,$CF,$D3
|
||||||
|
.byte $CF,$C6,$D4,$A0,$C3,$CF,$0D,$00
|
||||||
|
.endif
|
||||||
|
.ifndef CBM_APPLE
|
||||||
QT_WANT:
|
QT_WANT:
|
||||||
.byte "WANT SIN-COS-TAN-ATN"
|
.byte "WANT SIN-COS-TAN-ATN"
|
||||||
.byte $00
|
.byte $00
|
||||||
@ -6863,6 +7020,8 @@ QT_WRITTEN_BY:
|
|||||||
.byte "WRITTEN BY WEILAND & GATES"
|
.byte "WRITTEN BY WEILAND & GATES"
|
||||||
.endif
|
.endif
|
||||||
.byte $0D,$0A,$00
|
.byte $0D,$0A,$00
|
||||||
|
.endif
|
||||||
|
.ifndef CBM
|
||||||
QT_MEMORY_SIZE:
|
QT_MEMORY_SIZE:
|
||||||
.byte "MEMORY SIZE"
|
.byte "MEMORY SIZE"
|
||||||
.byte $00
|
.byte $00
|
||||||
@ -6872,14 +7031,17 @@ QT_TERMINAL_WIDTH:
|
|||||||
.endif
|
.endif
|
||||||
QT_BYTES_FREE:
|
QT_BYTES_FREE:
|
||||||
.byte " BYTES FREE"
|
.byte " BYTES FREE"
|
||||||
.ifndef CBM
|
.ifndef CBM_APPLE
|
||||||
.byte $0D,$0A,$0D,$0A
|
.byte $0D,$0A,$0D,$0A
|
||||||
.endif
|
.endif
|
||||||
.ifdef CBM2_KBD
|
.ifdef CBM2_KBD
|
||||||
.byte $0D,$00
|
.byte $0D,$00
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
.byte $00
|
||||||
|
.endif
|
||||||
QT_BASIC:
|
QT_BASIC:
|
||||||
.ifdef OSI_KBD
|
.ifdef OSI
|
||||||
.byte "OSI 6502 BASIC VERSION 1.0 REV 3.2"
|
.byte "OSI 6502 BASIC VERSION 1.0 REV 3.2"
|
||||||
.endif
|
.endif
|
||||||
.ifdef KIM
|
.ifdef KIM
|
||||||
@ -6890,10 +7052,14 @@ QT_BASIC:
|
|||||||
.byte "*** COMMODORE BASIC ***"
|
.byte "*** COMMODORE BASIC ***"
|
||||||
.byte $11,$11,$11,$00
|
.byte $11,$11,$11,$00
|
||||||
.endif
|
.endif
|
||||||
.ifdef CBM2_KBD
|
.ifdef CBM2
|
||||||
.byte "### COMMODORE BASIC ###"
|
.byte "### COMMODORE BASIC ###"
|
||||||
.byte $0D,$0D,$00
|
.byte $0D,$0D,$00
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
.byte $0A,$0D,$0A
|
||||||
|
.byte "APPLE BASIC V1.1"
|
||||||
|
.endif
|
||||||
.ifndef CBM
|
.ifndef CBM
|
||||||
.byte $0D,$0A
|
.byte $0D,$0A
|
||||||
.byte "COPYRIGHT 1977 BY MICROSOFT CO."
|
.byte "COPYRIGHT 1977 BY MICROSOFT CO."
|
||||||
@ -7453,3 +7619,165 @@ LFFED:
|
|||||||
.addr LC000
|
.addr LC000
|
||||||
.addr LC009
|
.addr LC009
|
||||||
.endif
|
.endif
|
||||||
|
.ifdef APPLE
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
L2900:
|
||||||
|
jsr LFD6A
|
||||||
|
stx $33
|
||||||
|
ldx #$00
|
||||||
|
L2907:
|
||||||
|
lda $0200,x
|
||||||
|
and #$7F
|
||||||
|
cmp #$0D
|
||||||
|
bne L2912
|
||||||
|
lda #$00
|
||||||
|
L2912:
|
||||||
|
sta $0200,x
|
||||||
|
inx
|
||||||
|
bne L2907
|
||||||
|
ldx $33
|
||||||
|
rts
|
||||||
|
L291B:
|
||||||
|
.byte $4C
|
||||||
|
L291C:
|
||||||
|
beq L2947
|
||||||
|
L291E:
|
||||||
|
cmp #$47
|
||||||
|
bne L2925
|
||||||
|
jmp L29E0
|
||||||
|
L2925:
|
||||||
|
cmp #$43
|
||||||
|
bne L292B
|
||||||
|
beq L2988
|
||||||
|
L292B:
|
||||||
|
cmp #$50
|
||||||
|
beq L2930
|
||||||
|
inx
|
||||||
|
L2930:
|
||||||
|
stx $33
|
||||||
|
jsr L13D7
|
||||||
|
jsr L2198
|
||||||
|
jsr L1751
|
||||||
|
lda L00A4
|
||||||
|
ldx $33
|
||||||
|
sta $0300,x
|
||||||
|
dec $33
|
||||||
|
bmi L294Dx
|
||||||
|
.byte $A9
|
||||||
|
L2947:
|
||||||
|
bit L1F20
|
||||||
|
ora $10,x
|
||||||
|
.byte $E5
|
||||||
|
L294Dx:
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
cmp #$43
|
||||||
|
bne L2957
|
||||||
|
tya
|
||||||
|
jmp LF864
|
||||||
|
L2957:
|
||||||
|
cmp #$50
|
||||||
|
bne L2962
|
||||||
|
tya
|
||||||
|
ldy $0301
|
||||||
|
jmp LF800
|
||||||
|
L2962:
|
||||||
|
pha
|
||||||
|
lda $0301
|
||||||
|
sta $2C
|
||||||
|
sta $2D
|
||||||
|
pla
|
||||||
|
cmp #$48
|
||||||
|
bne L2978
|
||||||
|
lda $0300
|
||||||
|
ldy $0302
|
||||||
|
jmp LF819
|
||||||
|
L2978:
|
||||||
|
cmp #$56
|
||||||
|
beq L297F
|
||||||
|
jmp L1528
|
||||||
|
L297F:
|
||||||
|
ldy $0300
|
||||||
|
lda $0302
|
||||||
|
jmp LF828
|
||||||
|
L2988:
|
||||||
|
dex
|
||||||
|
beq L2930
|
||||||
|
L298B:
|
||||||
|
jsr OUTQUES
|
||||||
|
jsr OUTSP
|
||||||
|
ldx #$80
|
||||||
|
jmp L0C27
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
jsr L29DA
|
||||||
|
lda $A3
|
||||||
|
sta $A5
|
||||||
|
jmp (L00A4)
|
||||||
|
L29DA:
|
||||||
|
jmp (L0006)
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
brk
|
||||||
|
L29E0:
|
||||||
|
pla
|
||||||
|
jmp LFB40
|
||||||
|
.endif
|
||||||
Loading…
Reference in New Issue
Block a user