Apple-2-SW
/
EdAsm
mirror of https://github.com/markpmlim/EdAsm.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
EdAsm/EDASM.SRC/COMMONEQUS.S

247 lines
8.7 KiB
ArmAsm
Raw Blame History

Name : COMMONEQUS.S
End of file : 6,161
This file was generated using the DiskBrowser utility with minimal editing.
It is meant for viewing purposes only.
CHR ";"
;=================================================
; Equates used by EdAsm's modules
;
; ASCII keycodes
;
CTRLA EQU $01
CTRLB EQU $02
CTRLC EQU $03
CTRLD EQU $04
CTRLE EQU $05
CTRLF EQU $06
BEL EQU $07
BS EQU $08
TAB EQU $09
FF EQU $0C
CR EQU $0D
CTRLN EQU $0E
CTRLO EQU $0F
CTRLQ EQU $11
CTRLR EQU $12
CTRLS EQU $13
CTRLT EQU $14
CTRLU EQU $15
CTRLV EQU $16
CTRLW EQU $17
CTRLX EQU $18 ;cancel
ESCAPE EQU $1B
SPACE EQU $20
UNDERSCORE EQU $5F
DEL EQU $7F
;=================================================
; filetypes
;
TXTtype EQU $04
BINtype EQU $06
DIRtype EQU $0D
RELtype EQU $FE
SYStype EQU $FF
;=================================================
; Apple ][ Standard Zero page
;
WNDWDTH EQU $21
CH EQU $24
CV EQU $25
BASL EQU $28
InvFlg EQU $32
Prompt EQU $33
CSWL EQU $36 ;Output hook
KSWL EQU $38 ;Input hook
A1 EQU $3C
A2 EQU $3E
A4 EQU $42
;=================================================
; These zpage locations are referenced by 2 or
; more of EdAsm's modules
;
LoMem EQU $0A ;=$0801
TxtBgn EQU $0A ;Reg5
TxtEnd EQU $0E ;Reg7
HiMem EQU $0C ;=$9900 Not used by EDASM.ASM
StackP EQU $49 ;Save area for H/W stack ptr
VideoSlt EQU $50 ;=$Cs where s=1-3 (if 80-col video card present)
FileType EQU $51 ;filetype
ExecMode EQU $53 ;Exec mode
PtrMode EQU $54 ;=$80,$00 - Printer ON/OFF
TabChar EQU $5F ;Set by Editor
PrColumn EQU $61 ;curr print col
UserTabT EQU $68 ;$68-$71 User defined Table table
PrintF EQU $73 ;-1=Print Cmd 0=List Cmd
StackP2 EQU $73 ;Save area for H/W stack ptr on fatal err
SwapMode EQU $74 ;Split-buf mode 0-normal,1=buf1,2=buf2
CaseMode EQU $75 ;ucase/lcase
CmdDelim EQU $78 ;Cmd Delimiter/Separator
TruncF EQU $79 ;=$FF-truncate comments
;=================================================
X2000 EQU $2000 ;Load & Exec addr of SYS Files
LoadAdrEd EQU $8900 ;Load Addr of Editor Module
;=================================================
; 1024-byte I/O buffers for ProDOS8
;
XA900 EQU $A900
XAD00 EQU $AD00
;=================================================
; Edasm Global Page
; Used to pass parameters btwn EdAsm's
; modules viz Editor, Assembly & Linker
; The EI must be resident all the times
; EdAsm Interpreter's Global Page
; Used to pass parameters btwn EdAsm's
; modules viz Editor, Assembly & Linker
; The EI must be resident all the times
;
XBD00 EQU $BD00 ;General Purpose 128-byte buffers
XBD80 EQU $BD80 ; used by Edasm's modules
XBE00 EQU $BE00 ;$BE00-$BE3F (curr Pathname)
DevCtlS EQU $BE40 ;($BE40-$BE61) Init to $C3 if 80-col card present
TabTable EQU $BE60 ;$BE60-$BE62
DateTime EQU $BE64 ;$BE64-$73
EdAsmDir EQU $BE79 ;Where EDASM lives
PrtError EQU $BEFC ;EdAsm Interpreter error message rtn
;=================================================
; Apple ][
;
Stack EQU $0100
InBuf EQU $0200
TxBuf2 EQU $0280
SOFTEV EQU $03F2 ;RESET vector
PWREDUP EQU $03F4
USRADR EQU $03F8 ;ctrl-Y vector
;=================================================
; ProDOS 8 Global Page
;
PRODOS8 EQU $BF00
LASTDEV EQU $BF30
BitMap EQU $BF58
P8DATE EQU $BF90
P8TIME EQU $BF92
MACHID EQU $BF98
SLTBYT EQU $BF99 ;Slot ROM map
CMDADR EQU $BF9C ;last MLI call return address
MINIVERS EQU $BFFC ;minimum interpreter version
IVERSION EQU $BFFD ;interpreter version
;=================================================
; Soft Switches
;
KBD EQU $C000
CLR80VID EQU $C00C
KBDSTROBE EQU $C010
BUTN3 EQU $C060
BUTN2 EQU $C063
RDBANK2 EQU $C080 ;Read only RAM bank 2; no write
ROMIN2 EQU $C081 ;Read ROM/Write RAM bank 2 (RR)
RDROM2 EQU $C082 ;Read ROM; no write
LCBANK2 EQU $C083 ;Read/Write RAM bank 2 (RR)
BASICINT EQU $C300
XC30B EQU $C30B ;card identification
XC30C EQU $C30C
;
XD000 EQU $D000 ;LC Bank2 - SW16 or Asm's Print Symbol Table
BASCLD EQU $E000 ;AppleSoft ColdStart
;=================================================
; Apple ][ Monitor Entry Points
;
SWEET16 EQU $F689 ;Original IntegerBASIC ROM entry point
PRNTAX EQU $F941
PRBLNK EQU $F948
INIT EQU $FB2F
BELL1 EQU $FBDD
VTABZ EQU $FC24
HOME EQU $FC58
CLREOL EQU $FC9C
WAIT EQU $FCA8
RDKEY EQU $FD0C
RDCHAR EQU $FD35
GETLN EQU $FD6A ;input line w/prompt
CROUT EQU $FD8E ;issue carriage return
COUT EQU $FDED ;output char via user's I/O
COUT1 EQU $FDF0 ;output via video screen
MOVE EQU $FE2C
SETNORM EQU $FE84
SETKBD EQU $FE89
SETVID EQU $FE93
PRERR EQU $FF2D
MON EQU $FF65
MONZ EQU $FF69
IRQV EQU $FFFE
;=================================================
;
; SW16 registers when using 6502 instructions
;
Reg0 EQU $00 ;Doubles as the Accumulator
Reg1 EQU $02
Reg2 EQU $04
Reg3 EQU $06
Reg4 EQU $08
Reg5 EQU $0A ;Points @ 1st char of curr edited file
Reg6 EQU $0C ;HiMem
Reg7 EQU $0E ;Points @ last char of curr edited file
Reg8 EQU $10
Reg9 EQU $12
Reg10 EQU $14
Reg11 EQU $16
Reg12 EQU $18 ;Subroutine return stack pointer
Reg13 EQU $1A ;Result of a comparison instruction
Reg14 EQU $1C ;Status Register
Reg15 EQU $1E ;Program Counter
;=================================================
; Sweet16 registers
; These labels are for the EdAsm assembler
; For Merlin8, Rn are pre-defined and
; do not need to be declared.
;
R0 EQU 0
R1 EQU 1
R2 EQU 2
R3 EQU 3
R4 EQU 4
R5 EQU 5
R6 EQU 6
R7 EQU 7
R8 EQU 8
R9 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12 ;Subroutine return stack pointer
R13 EQU 13 ;Result of a comparison instruction
R14 EQU 14 ;Status Register
R15 EQU 15 ;Program Counter
;=================================================
; Lifted from ProDOS v1.7
; xdos parameters:
;
c.pCnt EQU $0 ; (count)
c.devNum EQU $1 ; (value)
c.refNum EQU $1 ; (value)
c.intNum EQU $1 ; (value)
c.path EQU $1 ;&2 (pointer)
c.isNewl EQU $2 ; (mask)
c.dataBuf EQU $2 ;&3 (value)
c.bufAdr EQU $2 ;&3 (address)
c.intAdr EQU $2 ;&3 (address)
c.mark EQU $2 ;->4 (value)
c.eof EQU $2 ;->4 (value)
c.attr EQU $3 ; (flags)
c.newl EQU $3 ; (character)
c.bufPtr EQU $3 ;&4 (pointer)
c.newPath EQU $3 ;&4 (pointer)
c.fileId EQU $4 ; (value)
c.reqCnt EQU $4 ;&5 (value)
c.blkNum EQU $4 ;&5 (address)
c.outRef EQU $5
c.auxId EQU $5 ;&6 (value)
c.transCnt EQU $6 ;&7 (value)
c.fKind EQU $7 ; (value)
c.date EQU $8 ;&9 (value)
c.outBlk EQU $8 ;&9 (count)
c.time EQU $a ;&b (value)
c.modDate EQU $a ;&b (value)
c.modTime EQU $c ;&d (value)
c.creDate EQU $e ;&f (value)
c.creTime EQU $10 ;&11 (value)
Reference in New Issue View Git Blame Copy Permalink