mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-24 14:31:05 +00:00
6adfe9fdda
- NEW A2OSX.BUILD media, old one corrupted by ProDOS.FX bug - most of BIN/SBIN/LIBS reASMed with .95 API
682 lines
12 KiB
Plaintext
682 lines
12 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
.OP 65C02
|
||
.OR $2000
|
||
.TF bin/asm
|
||
*---------------------------------------
|
||
ASMDBG .EQ 0
|
||
SYMDBG .EQ 0
|
||
*---------------------------------------
|
||
PAGE.LEN .EQ 23
|
||
DO.MAXDEPTH .EQ 8
|
||
IN.MAXDEPTH .EQ 4
|
||
MA.MAXDEPTH .EQ 8
|
||
*---------------------------------------
|
||
.INB inc/macros.i
|
||
.INB inc/a2osx.i
|
||
.INB inc/mli.i
|
||
.INB inc/mli.e.i
|
||
*---------------------------------------
|
||
.DUMMY
|
||
.OR ZPBIN
|
||
ZS.START
|
||
ZPTmpBuf .BS 2
|
||
ZPLineBuf .BS 2
|
||
ZPLinePtr .BS 2
|
||
ZPSymbolBuf .BS 2
|
||
|
||
ZPAMPtr .BS 2
|
||
ZPRPtr .BS 2
|
||
ZPOpsPtr .BS 2
|
||
ZPOpDefPtr .BS 2
|
||
|
||
ZPMacroStk .BS 2
|
||
ZPMacroBuf .BS 2
|
||
ZPMacroArgBuf .BS 2
|
||
ZPMacroArgCnt .BS 1
|
||
|
||
DIR.Byte .BS 1
|
||
|
||
DIR.Word .BS 2
|
||
SYM.LocalOfs .BS 2
|
||
ZPPtr1 .BS 2
|
||
ZPPtr2 .BS 2
|
||
|
||
ZS.END .ED
|
||
*---------------------------------------
|
||
* Symbols
|
||
*---------------------------------------
|
||
SYMG.F .EQ 0
|
||
SYMG.F.RW .EQ %10000000
|
||
SYMG.F.EQU .EQ %01000000
|
||
SYMG.F.LOCALS .EQ %00100000
|
||
SYMG.F.FWREF .EQ %00010000
|
||
SYMG.V .EQ 1 DWORD
|
||
*
|
||
SYMG .EQ 5
|
||
*---------------------------------------
|
||
SYML.ID .EQ 0 1..255
|
||
SYML.CtxID .EQ 1 0 if local, !0 if private
|
||
SYML.O .EQ 2 WORD
|
||
*
|
||
SYML .EQ 4
|
||
*---------------------------------------
|
||
ASM.T.AM .EQ 0
|
||
ASM.T.R .EQ 2
|
||
ASM.T.O .EQ 4
|
||
*---------------------------------------
|
||
E.SYNTAX.ERROR .EQ $A0
|
||
E.SYM.TOO.LONG .EQ $A1
|
||
E.VAL.TOO.BIG .EQ $A2
|
||
E.LINE.TOO.LONG .EQ $A3
|
||
E.INV.LABEL .EQ $A4
|
||
E.INV.DIR .EQ $A5
|
||
E.ILLEGAL.DIR .EQ $A6
|
||
E.INV.OPCODE .EQ $A7
|
||
E.INV.AM.SYN .EQ $A8
|
||
E.INV.AM .EQ $A9
|
||
E.INV.AM.4.OC .EQ $AA
|
||
E.RANGE .EQ $AB
|
||
E.UNDEF.SYMBOL .EQ $AC
|
||
E.SYMBOL.REDEF .EQ $AD
|
||
E.TOO.MANY.DO .EQ $AE
|
||
E.ELSE.WITHOUT.DO .EQ $AF
|
||
E.TOO.MANY.LOCAL .EQ $B0
|
||
E.MISSING.EXP .EQ $B1
|
||
E.EXP.SYN.ERROR .EQ $B2
|
||
E.MACRO.INV.DEF .EQ $B3
|
||
E.MACRO.TOO.BIG .EQ $B4
|
||
E.MACRO.INV .EQ $B5
|
||
E.MACRO.TOO.MANY .EQ $B6
|
||
*
|
||
E.OUT.OF.SYNC .EQ $B8
|
||
E.INV.SYM .EQ $B9
|
||
E.INV.ARGS .EQ $BA
|
||
E.INV.CPU.FILE .EQ $BC
|
||
E.SRC.INV.TYPE .EQ $BD
|
||
E.SRC.TOO.MANY.IN .EQ $BE
|
||
E.SRC.UNEXP.EOF .EQ $BF
|
||
*--------------------------------------
|
||
* File Header (16 Bytes)
|
||
*--------------------------------------
|
||
CS.START cld
|
||
jmp (.1,x)
|
||
.DA #$61 6502,Level 1 (65c02)
|
||
.DA #1 BIN Layout Version 1
|
||
.DA #0 S.PS.F.EVENT
|
||
.DA #0
|
||
.DA CS.END-CS.START CS
|
||
.DA DS.END-DS.START DS
|
||
.DA #64 SS
|
||
.DA #ZS.END-ZS.START ZP
|
||
.DA 0
|
||
*--------------------------------------
|
||
* Relocation Table
|
||
*--------------------------------------
|
||
.1 .DA CS.INIT
|
||
.DA CS.RUN
|
||
.DA CS.DOEVENT
|
||
.DA CS.QUIT
|
||
L.MSG.HELP .DA MSG.HELP
|
||
L.MSG.CRLF .DA MSG.CRLF
|
||
L.MSG.OUT0 .DA MSG.OUT0
|
||
.DA MSG.OUT1
|
||
.DA MSG.OUT2
|
||
.DA MSG.OUT3
|
||
L.MSG.EQU0 .DA MSG.EQU0
|
||
.DA MSG.EQU1
|
||
.DA MSG.EQU2
|
||
.DA MSG.EQU3
|
||
.DA MSG.EQU4
|
||
L.MSG.PASS .DA MSG.PASS
|
||
L.MSG.LINENUM .DA MSG.LINENUM
|
||
L.MSG.ERROR .DA MSG.ERROR
|
||
L.MSG.SYMBOLS .DA MSG.SYMBOLS
|
||
L.MSG.LSYMBOL .DA MSG.LSYMBOL
|
||
L.MSG.PSYMBOL .DA MSG.PSYMBOL
|
||
L.MSG.SUMMARY .DA MSG.SUMMARY
|
||
L.MSG.END .DA MSG.END
|
||
L.MSG.WARN1 .DA MSG.WARN1
|
||
.DO ASMDBG=1
|
||
L.MSG.DBG .DA MSG.DBG
|
||
.FIN
|
||
.DO SYMDBG=1
|
||
L.MSG.SYMDBG .DA MSG.SYMDBG
|
||
.FIN
|
||
L.MSG.SRC.FILE .DA MSG.SRC.FILE
|
||
L.MSG.OBJ.FILE .DA MSG.OBJ.FILE
|
||
L.MSG.CPU.FILE .DA MSG.CPU.FILE
|
||
L.SRC.AM.StrBuf .DA SRC.AM.StrBuf
|
||
L.ASM.6502 .DA ASM.6502
|
||
L.ASM.CPU.FILE .DA ASM.CPU.FILE
|
||
L.SRC.ACC.F .DA SRC.ACC.F
|
||
L.T.DIRECTIVES .DA T.DIRECTIVES
|
||
J.DIRECTIVES .DA DIR.AC
|
||
.DA DIR.AS
|
||
.DA DIR.AT
|
||
.DA DIR.AZ
|
||
.DA DIR.BS
|
||
.DA DIR.CS
|
||
.DA DIR.CZ
|
||
.DA DIR.DA
|
||
DIR.DO.ID .EQ *-J.DIRECTIVES
|
||
.DA DIR.DO
|
||
.DA DIR.DU
|
||
.DA DIR.DU
|
||
.DA DIR.ED
|
||
DIR.EL.ID .EQ *-J.DIRECTIVES
|
||
.DA DIR.EL
|
||
.DA DIR.EM
|
||
.DA DIR.EN
|
||
.DA DIR.EP
|
||
.DA DIR.EQ
|
||
DIR.FI.ID .EQ *-J.DIRECTIVES
|
||
.DA DIR.FI
|
||
.DA DIR.HS
|
||
.DA DIR.HX
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.IN
|
||
.DA DIR.LI
|
||
.DA DIR.LI
|
||
.DA DIR.MA
|
||
.DA DIR.OP
|
||
.DA DIR.OR
|
||
.DA DIR.PG
|
||
.DA DIR.PH
|
||
.DA DIR.PS
|
||
.DA DIR.SE
|
||
.DA DIR.TA
|
||
.DA DIR.TF
|
||
.DA DIR.TI
|
||
.DA DIR.US
|
||
L.T.LI .DA T.LI
|
||
J.LI .DA DIR.LI.ON
|
||
.DA DIR.LI.OFF
|
||
.DA DIR.LI.CON
|
||
.DA DIR.LI.COFF
|
||
.DA DIR.LI.MON
|
||
.DA DIR.LI.MOFF
|
||
.DA DIR.LI.XON
|
||
.DA DIR.LI.XOFF
|
||
J.EXP.MOD .DA EXP.MOD.8.1 #/^<>
|
||
.DA EXP.MOD.8.2
|
||
.DA EXP.MOD.8.3
|
||
.DA EXP.MOD.24
|
||
.DA EXP.MOD.32
|
||
J.EXP.OP .DA EXP.OP.EOR ^!|&<=>+-*/
|
||
.DA EXP.OP.ORA
|
||
.DA EXP.OP.ORA
|
||
.DA EXP.OP.AND
|
||
.DA EXP.OP.LWR
|
||
.DA EXP.OP.EQU
|
||
.DA EXP.OP.GRT
|
||
.DA EXP.OP.ADD
|
||
.DA EXP.OP.SUB
|
||
.DA EXP.OP.MUL
|
||
.DA EXP.OP.DIV
|
||
.DA 0
|
||
*---------------------------------------
|
||
CS.INIT clc
|
||
rts
|
||
*--------------------------------------
|
||
CS.RUN jsr CS.RUN.ARGS
|
||
bcs .9
|
||
|
||
jsr FIO.Init
|
||
bcs .9
|
||
|
||
jsr SYM.Init
|
||
bcs .9
|
||
|
||
jsr MAC.Init
|
||
bcs .9
|
||
|
||
jsr OUT.Init
|
||
bcs .9
|
||
|
||
.1 >SLEEP
|
||
jsr CS.RUN.LOOP
|
||
bcc .1
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
CS.RUN.LOOP ldy #S.PS.hStdIn
|
||
lda (pPS),y
|
||
>SYSCALL FEOF
|
||
bcs .99
|
||
|
||
tay
|
||
bne .13
|
||
|
||
>SYSCALL GetChar
|
||
bcs .99
|
||
|
||
cmp #$03 Ctrl-C
|
||
beq .99 Abort....beq=CS
|
||
|
||
cmp #$13 Ctrl-S
|
||
bne .11
|
||
|
||
>LDA.G bPause
|
||
eor #$ff
|
||
sta (pData),y
|
||
|
||
bpl .12
|
||
|
||
clc
|
||
rts
|
||
|
||
.13 >LDA.G bPause
|
||
bpl .11
|
||
|
||
clc
|
||
.99 rts
|
||
|
||
.11 >STZ.G bPause
|
||
|
||
.12 >LDA.G SRC.Depth root file is already opened?
|
||
bne .10
|
||
|
||
>PUSHW L.MSG.PASS
|
||
>LDA.G ASM.PASS
|
||
inc
|
||
>PUSHA
|
||
>PUSHBI 1
|
||
jsr OUT.Print
|
||
|
||
>LDA.G SRC.hFILENAME
|
||
>SYSCALL GetMemPtr
|
||
jsr FIO.OpenFile
|
||
bcs .99
|
||
|
||
jsr DIR.Reset
|
||
|
||
>STZ.G MAC.StkPtr
|
||
>STZ.G SYM.BufPtr
|
||
|
||
.10 >LDYA ZPLineBuf
|
||
>STYA ZPLinePtr
|
||
|
||
>LDA.G MAC.StkPtr
|
||
beq .20
|
||
|
||
.15 jsr MAC.ReadLine
|
||
bcc .2
|
||
|
||
cmp #E.EMPTYKEY
|
||
bne .9
|
||
|
||
jsr MAC.Pop
|
||
bne .15
|
||
|
||
.20 jsr FIO.ReadLine
|
||
bcc .2
|
||
|
||
cmp #MLI.E.EOF End Of File?
|
||
bne .9
|
||
|
||
jsr FIO.FileClose
|
||
>LDA.G SRC.Depth end of root file ?
|
||
bne .8 no continue back to previous file
|
||
|
||
jsr SYM.StoreGlobal Make sure last Global flushed
|
||
bcs .9
|
||
|
||
>LDA.G ASM.PASS End of pass #2 ??
|
||
bne .1
|
||
|
||
inc
|
||
sta (pData),y
|
||
|
||
clc
|
||
rts
|
||
|
||
.1 jsr SYM.Dump
|
||
|
||
>LDYA L.MSG.END
|
||
>SYSCALL PutS
|
||
lda #0 End of assembly, exit with no error
|
||
sec
|
||
rts
|
||
|
||
.2 jsr SRC.ParseLine
|
||
bcs .9
|
||
|
||
jmp OUT.PrintLine
|
||
|
||
.8 clc
|
||
rts
|
||
|
||
.9 pha
|
||
jsr OUT.PrintLineErr
|
||
pla
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
CS.RUN.ARGS ldy #S.PS.ARGC
|
||
lda (pPS),y
|
||
beq .90
|
||
|
||
.1 inc ZPPtr1
|
||
|
||
lda ZPPtr1
|
||
>SYSCALL ArgV
|
||
bcs .8
|
||
|
||
>STYA ZPPtr2
|
||
|
||
lda (ZPPtr2)
|
||
cmp #'-'
|
||
beq .2
|
||
|
||
>PUSHW ZPPtr2
|
||
>PUSHWZ Allocate
|
||
>SYSCALL RealPath
|
||
bcs .99
|
||
txa
|
||
>STA.G SRC.hFILENAME
|
||
bra .1
|
||
|
||
.2 ldy #2
|
||
lda (ZPPtr2),y
|
||
bne .90
|
||
|
||
dey
|
||
lda (ZPPtr2),y
|
||
|
||
cmp #'a'
|
||
bcc .20
|
||
|
||
cmp #'z'+1
|
||
bcs .20
|
||
|
||
eor #$20
|
||
|
||
.20 cmp #'L'
|
||
bne .3
|
||
|
||
lda #$ff
|
||
>STA.G bListAll
|
||
bra .1
|
||
|
||
.3 cmp #'T'
|
||
bne .90
|
||
|
||
inc ZPPtr1
|
||
lda ZPPtr1
|
||
>SYSCALL ArgV
|
||
bcs .90
|
||
|
||
lda ZPPtr1
|
||
>STA.G ArgDstFile
|
||
bra .1
|
||
|
||
.8 >LDA.G SRC.hFILENAME
|
||
beq .90
|
||
|
||
clc
|
||
rts
|
||
|
||
.90 >PUSHW L.MSG.HELP
|
||
>PUSHBI 0
|
||
>SYSCALL PrintF
|
||
|
||
lda #E.INV.ARGS
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
CS.DOEVENT sec
|
||
rts
|
||
*--------------------------------------
|
||
CS.QUIT >LDA.G SRC.Depth
|
||
beq .1
|
||
|
||
jsr FIO.FileClose
|
||
bra CS.QUIT
|
||
|
||
.1 >LDA.G DST.hREFNUM
|
||
beq .2
|
||
|
||
>SYSCALL FClose
|
||
|
||
.2 jsr MAC.Quit
|
||
|
||
jsr SYM.Quit
|
||
|
||
ldy #ASM.hCPUFILE
|
||
jsr .7
|
||
|
||
ldy #SRC.hFILENAME
|
||
jsr .7
|
||
|
||
ldy #DST.hFILENAME
|
||
jsr .7
|
||
|
||
ldy #SRC.hLineBuf
|
||
jsr .7
|
||
|
||
ldy #SRC.hTmpBuf
|
||
|
||
.7 lda (pData),y
|
||
beq .8
|
||
>SYSCALL FreeMem
|
||
|
||
.8 clc
|
||
rts
|
||
*---------------------------------------
|
||
.INB usr/src/bin/asm.s.dir
|
||
.INB usr/src/bin/asm.s.exp
|
||
.INB usr/src/bin/asm.s.fio
|
||
.INB usr/src/bin/asm.s.mac
|
||
.INB usr/src/bin/asm.s.out
|
||
.INB usr/src/bin/asm.s.src
|
||
.INB usr/src/bin/asm.s.sym
|
||
*---------------------------------------
|
||
CS.END
|
||
T.DIRECTIVES .PS "AC"
|
||
.PS "AS"
|
||
.PS "AT"
|
||
.PS "AZ"
|
||
.PS "BS"
|
||
.PS "CS"
|
||
.PS "CZ"
|
||
.PS "DA"
|
||
.PS "DO"
|
||
.PS "DU"
|
||
.PS "DUMMY"
|
||
.PS "ED"
|
||
.PS "ELSE"
|
||
.PS "EM"
|
||
.PS "EN"
|
||
.PS "EP"
|
||
.PS "EQ"
|
||
.PS "FIN"
|
||
.PS "HS"
|
||
.PS "HX"
|
||
.PS "IN"
|
||
.PS "INB"
|
||
.PS "INB1"
|
||
.PS "INB2"
|
||
.PS "INB3"
|
||
.PS "INB4"
|
||
.PS "INB5"
|
||
.PS "INB6"
|
||
.PS "INB7"
|
||
.PS "INB8"
|
||
.PS "INB9"
|
||
.PS "LI"
|
||
.PS "LIST"
|
||
.PS "MA"
|
||
.PS "OP"
|
||
.PS "OR"
|
||
.PS "PG"
|
||
.PS "PH"
|
||
.PS "PS"
|
||
.PS "SE"
|
||
.PS "TA"
|
||
.PS "TF"
|
||
.PS "TI"
|
||
.PS "US"
|
||
.HS 00
|
||
*---------------------------------------
|
||
T.LI .PS "ON"
|
||
.PS "OFF"
|
||
.PS "CON"
|
||
.PS "COFF"
|
||
.PS "MON"
|
||
.PS "MOFF"
|
||
.PS "XON"
|
||
.PS "XOFF"
|
||
.HS 00
|
||
*--------------------------------------
|
||
DIR.EscChars .AS "abefnrtv"
|
||
.HS 5C27223F25 \'"?%
|
||
DIR.EscChars.L .EQ *-DIR.EscChars
|
||
DIR.EscCodes .HS 07081B0C0A0D090B
|
||
.HS 5C27223F25
|
||
*---------------------------------------
|
||
SRC.MOD.RESERVED .PS "#/^<>"
|
||
SRC.EXP.RESERVED .PS "^!|&<=>+-*/"
|
||
SRC.AM.RESERVED .PS "[](),"
|
||
*---------------------------------------
|
||
DIR.SYS .AZ "SYS"
|
||
ASM.6502 .AZ "6502"
|
||
*---------------------------------------
|
||
MSG.HELP .CS "A2osX-Macro Assembler (S-C MASM 3.1 Dialect)\r\n"
|
||
.CS "Usage : ASM <src file> [type TXT ($04) or S-C/BAS ($FA)]\r\n"
|
||
.CS " -L : Override .LIST (C,M,X)OFF\r\n"
|
||
.CS " -T <target file> : Override .TF directive"
|
||
MSG.CRLF .CZ "\r\n"
|
||
MSG.PASS .CZ "**** Pass:#%d"
|
||
MSG.SRC.FILE .CZ "**** Reading SRC File:%s"
|
||
MSG.OBJ.FILE .CZ "**** Writing OBJ File:%s, Type=%02x"
|
||
MSG.CPU.FILE .CZ "**** Loading CPU File:%s"
|
||
MSG.OUT0 .CZ "%H- "
|
||
MSG.OUT1 .CZ "%H-%h "
|
||
MSG.OUT2 .CZ "%H-%h %h "
|
||
MSG.OUT3 .CZ "%H-%h %h %h"
|
||
MSG.EQU0 .CZ " [ ?] "
|
||
MSG.EQU1 .CZ " [ %h] "
|
||
MSG.EQU2 .CZ " [ %h%h] "
|
||
MSG.EQU3 .CZ " [ %h%h%h] "
|
||
MSG.EQU4 .CZ " [%h%h%h%h] "
|
||
MSG.LINENUM .CZ " %05D "
|
||
MSG.ERROR .CZ "**** Fatal Error $%h"
|
||
MSG.SYMBOLS .CZ "**** Symbol Table:"
|
||
MSG.LSYMBOL .CZ " .%d=%h%h%h%h"
|
||
MSG.PSYMBOL .CZ " :%d(%d)=%h%h%h%h"
|
||
MSG.SUMMARY .CZ "\r\n**** Symbol Table Size : %5D Bytes.\r\n"
|
||
MSG.END .CZ "**** End Of Assembly."
|
||
MSG.WARN1 .CZ "**** WARN : Unoptimized adressing mode due to forward reference.\r\n"
|
||
.DO ASMDBG=1
|
||
MSG.DBG .CZ "\r\nCtxID=%d, ARG=%H%H <op> ACC=%H%H -> ACC %b [%h]\r\n"
|
||
.FIN
|
||
.DO SYMDBG=1
|
||
MSG.SYMDBG .CZ "SymID=%H\r\n"
|
||
.FIN
|
||
*---------------------------------------
|
||
ASM.CPU.FILE .BS 65
|
||
|
||
SRC.ACC.SIZE .BS 1
|
||
|
||
SRC.ACC.F .BS 1
|
||
SRC.ACC .BS 4
|
||
SRC.ARG.F .BS 1
|
||
SRC.ARG .BS 4
|
||
|
||
SRC.ACCTMP .BS 4
|
||
SRC.AM.StrBuf .BS 32
|
||
*--------------------------------------
|
||
.DUMMY
|
||
.OR 0
|
||
DS.START
|
||
bPause .BS 1
|
||
bListAll .BS 1
|
||
ArgDstFile .BS 1
|
||
|
||
SRC.hFILENAME .BS 1
|
||
SRC.hLineBuf .BS 1
|
||
SRC.hTmpBuf .BS 1
|
||
|
||
SRC.Depth .BS 1
|
||
SRC.hFILES .BS IN.MAXDEPTH
|
||
SRC.hFILETYPES .BS IN.MAXDEPTH
|
||
|
||
SRC.LINENUM .BS 2
|
||
SRC.AMID .BS 1
|
||
|
||
ASM.hCPUFILE .BS 1
|
||
|
||
DST.hFILENAME .BS 1
|
||
DST.hREFNUM .BS 1
|
||
DST.AUXTYPE .BS 2
|
||
|
||
EXP.Modifier .BS 1
|
||
EXP.Prefix .BS 1
|
||
EXP.Operator .BS 1
|
||
|
||
ASM.PASS .BS 1
|
||
|
||
ASM.DO.StackPtr .BS 1
|
||
ASM.DO.Stack .BS DO.MAXDEPTH
|
||
|
||
ASM.DU.ON .BS 1
|
||
ASM.PH.ON .BS 1
|
||
|
||
ASM.LI.ON .BS 1
|
||
ASM.LI.CON .BS 1
|
||
ASM.LI.MON .BS 1
|
||
ASM.LI.XON .BS 1
|
||
|
||
ASM.MA.ON .BS 1
|
||
|
||
ASM.PC .BS 4
|
||
ASM.PC.PH .BS 4
|
||
ASM.PC.DU .BS 4
|
||
|
||
SYM.hList .BS 1
|
||
SYM.hBuf .BS 1
|
||
SYM.BufPtr .BS 1
|
||
SYM.ID .BS 2
|
||
|
||
FWR.hList .BS 1
|
||
FWR.ID .BS 2
|
||
|
||
MAC.hList .BS 1
|
||
MAC.hBuf .BS 1
|
||
MAC.BufPtr .BS 1
|
||
MAC.ID .BS 2
|
||
|
||
MAC.hStk .BS 1
|
||
MAC.StkPtr .BS 1
|
||
MAC.hArgBuf .BS 1
|
||
MAC.CtxID .BS 1
|
||
MAC.CtxNextID .BS 1
|
||
MAC.CtxStackPtr .BS 1
|
||
MAC.CtxStack .BS MA.MAXDEPTH
|
||
|
||
OUT.PC .BS 4
|
||
OUT.Buf .BS 4
|
||
OUT.bEquate .BS 1
|
||
OUT.LineCnt .BS 1
|
||
|
||
DS.END .ED
|
||
*---------------------------------------
|
||
.DO DS.END-DS.START>$FF
|
||
ERROR:DS too big
|
||
.FIN
|
||
*---------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/asm.s
|
||
ASM
|