217 lines
2.3 KiB
ArmAsm
217 lines
2.3 KiB
ArmAsm
|
|
.feature org_per_seg
|
|
.zeropage
|
|
|
|
.org ZP_START1
|
|
|
|
GORESTART:
|
|
.res 3
|
|
GOSTROUT:
|
|
.res 3
|
|
GOAYINT:
|
|
.res 2
|
|
GOGIVEAYF:
|
|
.res 2
|
|
|
|
.org ZP_START2
|
|
Z15:
|
|
.res 1
|
|
.ifndef POSX; allow override
|
|
POSX:
|
|
.endif
|
|
.res 1
|
|
.ifndef Z17; allow override
|
|
Z17:
|
|
.endif
|
|
.res 1
|
|
.ifndef Z18; allow override
|
|
Z18:
|
|
.endif
|
|
.res 1
|
|
LINNUM:
|
|
.ifndef TXPSV; allow override
|
|
TXPSV:
|
|
.endif
|
|
.res 2
|
|
.ifndef INPUTBUFFER; allow override
|
|
INPUTBUFFER:
|
|
.endif
|
|
|
|
.org ZP_START3
|
|
|
|
CHARAC:
|
|
.res 1
|
|
ENDCHR:
|
|
.res 1
|
|
EOLPNTR:
|
|
.res 1
|
|
DIMFLG:
|
|
.res 1
|
|
VALTYP:
|
|
.ifdef CONFIG_SMALL
|
|
.res 1
|
|
.else
|
|
.res 2
|
|
.endif
|
|
DATAFLG:
|
|
.res 1
|
|
SUBFLG:
|
|
.res 1
|
|
INPUTFLG:
|
|
.res 1
|
|
CPRMASK:
|
|
.res 1
|
|
Z14:
|
|
.res 1
|
|
|
|
.org ZP_START4
|
|
|
|
TEMPPT:
|
|
.res 1
|
|
LASTPT:
|
|
.res 2
|
|
TEMPST:
|
|
.res 9
|
|
INDEX:
|
|
.res 2
|
|
DEST:
|
|
.res 2
|
|
RESULT:
|
|
.res BYTES_FP
|
|
RESULT_LAST = RESULT + BYTES_FP-1
|
|
TXTTAB:
|
|
.res 2
|
|
VARTAB:
|
|
.res 2
|
|
ARYTAB:
|
|
.res 2
|
|
STREND:
|
|
.res 2
|
|
FRETOP:
|
|
.res 2
|
|
FRESPC:
|
|
.res 2
|
|
MEMSIZ:
|
|
.res 2
|
|
CURLIN:
|
|
.res 2
|
|
OLDLIN:
|
|
.res 2
|
|
OLDTEXT:
|
|
.res 2
|
|
Z8C:
|
|
.res 2
|
|
DATPTR:
|
|
.res 2
|
|
INPTR:
|
|
.res 2
|
|
VARNAM:
|
|
.res 2
|
|
VARPNT:
|
|
.res 2
|
|
FORPNT:
|
|
.res 2
|
|
LASTOP:
|
|
.res 2
|
|
CPRTYP:
|
|
.res 1
|
|
.ifdef GT1
|
|
.assert *=$0080, error, "Gigatron needs gap at $0080"
|
|
.res 1
|
|
.endif
|
|
FNCNAM:
|
|
TEMP3:
|
|
.res 2
|
|
DSCPTR:
|
|
.ifdef CONFIG_SMALL
|
|
.res 2
|
|
.else
|
|
.res 3
|
|
.endif
|
|
DSCLEN:
|
|
.res 2
|
|
.ifndef JMPADRS ; allow override
|
|
JMPADRS := DSCLEN + 1
|
|
.endif
|
|
Z52:
|
|
.res 1
|
|
ARGEXTENSION:
|
|
.ifndef CONFIG_SMALL
|
|
.res 1
|
|
.endif
|
|
TEMP1:
|
|
.res 1
|
|
HIGHDS:
|
|
.res 2
|
|
HIGHTR:
|
|
.res 2
|
|
.ifndef CONFIG_SMALL
|
|
TEMP2:
|
|
.res 1
|
|
.endif
|
|
INDX:
|
|
TMPEXP:
|
|
.ifdef CONFIG_SMALL
|
|
TEMP2:
|
|
.endif
|
|
.res 1
|
|
EXPON:
|
|
.res 1
|
|
LOWTR:
|
|
.ifndef LOWTRX ; allow override
|
|
LOWTRX:
|
|
.endif
|
|
.res 1
|
|
EXPSGN:
|
|
.res 1
|
|
FAC:
|
|
.res BYTES_FP
|
|
FAC_LAST = FAC + BYTES_FP-1
|
|
FACSIGN:
|
|
.res 1
|
|
SERLEN:
|
|
.res 1
|
|
SHIFTSIGNEXT:
|
|
.res 1
|
|
ARG:
|
|
.res BYTES_FP
|
|
ARG_LAST = ARG + BYTES_FP-1
|
|
ARGSIGN:
|
|
.res 1
|
|
STRNG1:
|
|
.res 2
|
|
SGNCPR = STRNG1
|
|
FACEXTENSION = STRNG1+1
|
|
STRNG2:
|
|
.res 2
|
|
.ifdef AIM65
|
|
ATN:
|
|
.res 3
|
|
ZBE:
|
|
.res 1
|
|
.endif
|
|
.ifdef SYM1
|
|
USR1:
|
|
.res 3
|
|
USR2:
|
|
.res 3
|
|
USR3:
|
|
.res 3
|
|
.endif
|
|
.ifndef CHRGET ; allow override
|
|
CHRGET:
|
|
TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET)
|
|
CHRGOT = <(GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET)
|
|
CHRGOT2 = <(GENERIC_CHRGOT2-GENERIC_CHRGET + CHRGET)
|
|
RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
|
|
.else
|
|
TXTPTR:
|
|
.res 2
|
|
STACK_BOT:
|
|
CHRGOT = GENERIC_CHRGOT
|
|
CHRGOT2 = GENERIC_CHRGOT2
|
|
RNDSEED = GENERIC_RNDSEED
|
|
.endif
|
|
|
|
|