6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-11-25 03:34:05 +00:00
Code Issues Projects Releases Wiki Activity
c572834c8c
8bitworkshop/presets/atari8-800/atari.inc
Steven Hugg ed7758d7e0 atari8: started on js platform
2022-08-30 19:37:30 -05:00

1427 lines
56 KiB
PHP
Raw Blame History

;-------------------------------------------------------------------------
; Atari System Equates
; by Freddy Offenga, Christian Groessler, and Christian Krueger
;
; References:
; - Atari 400/800 OS rev.B source code, Atari 1979
; - Atari OS manual - XL addendum
; - Atari XL/XE rev.2 source code, Atari 1984
; - Mapping the Atari - revised edition, Ian Chadwick 1985
; - SpartaDOS-X User Guide (Aug-8-2016)
;
; ##old## old OS rev.B label - moved or deleted
; ##1200xl## new label introduced in 1200XL OS (rev.10/11)
; ##rev2## new label introduced in XL/XE OS rev.2
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
; Configuration Equates
;-------------------------------------------------------------------------
MAXDEV = 33 ;offset to last possible entry of HATABS
IOCBSZ = 16 ;length of IOCB
SEIOCB = 0*IOCBSZ ;##rev2## screen editor IOCB index
MAXIOC = 8*IOCBSZ ;first invalid IOCB index
DSCTSZ = 128 ;##rev2## disk sector size
LEDGE = 2 ;left edge
REDGE = 39 ;right edge
INIML = $0700 ;##rev2## initial MEMLO
ICSORG = $CC00 ;##rev2## international character set origin
DCSORG = $E000 ;##rev2## domestic character set origin
; IOCB Command Code Equates
OPEN = $03 ;open
GETREC = $05 ;get record
GETCHR = $07 ;get character(s)
PUTREC = $09 ;put record
PUTCHR = $0B ;put character(s)
CLOSE = $0C ;close
STATIS = $0D ;status
SPECIL = $0E ;special
; DOS IOCB command codes
RENAME = $20 ;rename disk file
DELETE = $21 ;delete disk file
LOCKFL = $23 ;lock file (set to read-only)
UNLOCK = $24 ;unlock file
POINT = $25 ;point sector
NOTE = $26 ;note sector
GETFL = $27 ;get file length
CHDIR_MYDOS = $29 ;change directory (MyDOS)
MKDIR = $2A ;make directory (MyDOS/SpartaDOS)
RMDIR = $2B ;remove directory (SpartaDOS)
CHDIR_SPDOS = $2C ;change directory (SpartaDOS)
FORMAT = $FE ;format
GETCWD = $30 ;get current directory (MyDOS/SpartaDOS)
; Special Entry Command Equates
; DOS Commands
; Command line table, Index values for (DOSVEC),Y -- COMTAB
; Compatible with OS/A+, DOS XL and SpartaDOS
COMTAB = 0 ;DOS entry jump vector
ZCRNAME = 3 ;file name crunch routine jump vector
BUFOFF = 10 ;next parameter buffer offset
COMFNAM = 33 ;destination buffer for crunch routine
LBUF = 63 ;command line input buffer
; Screen IOCB Commands
DRAWLN = $11 ;draw line
FILLIN = $12 ;draw line with right fill
; ICAX1 Auxiliary Byte 1 Equates
APPEND = $01 ;open write append (D:)
DIRECT = $02 ;open for directory access (D:)
OPNIN = $04 ;open for input (all devices)
OPNOT = $08 ;open for output (all devices)
MXDMOD = $10 ;open for mixed mode (E:, S:)
INSCLR = $20 ;open for input without clearing screen
; Device Code Equates
CASSET = 'C ;cassette
DISK = 'D ;disk
SCREDT = 'E ;screen editor
KBD = 'K ;keyboard
PRINTR = 'P ;printer
DISPLY = 'S ;screen display
; SIO Command Code Equates
SIO_FORMAT = $21 ;format disk (default density)
SIO_FORMATS = $22 ;1050: format medium density
SIO_CONFIG = $44 ;configure drive
SIO_CONFIGSF = $4B ;slow/fast configure drive??
SIO_RDPERCOM = $4E ;read PERCOM block (XF551)
SIO_WRPERCOM = $4F ;write PERCOM block (XF551)
SIO_WRITE = $50 ;write sector
SIO_READ = $52 ;read sector
SIO_STAT = $53 ;get status information
SIO_VERIFY = $56 ;verify sector
SIO_WRITEV = $57 ;write sector with verify
SIO_WRITETRK = $60 ;write track (Speedy)
SIO_READTRK = $62 ;read track (Speedy)
; SIO Status Code (DSTATS)
; Input: data direction
; Bit #7 - W (write operation)
; #6 - R (read operation)
; Output: status code
; $01 (001) -- OPERATION COMPLETE (NO ERRORS)
; $8A (138) -- DEVICE TIMEOUT (DOESN'T RESPOND)
; $8B (139) -- DEVICE NAK
; $8C (140) -- SERIAL BUS INPUT FRAMING ERROR
; $8E (142) -- SERIAL BUS DATA FRAME OVERRUN ERROR
; $8F (143) -- SERIAL BUS DATA FRAME CHECKSUM ERROR
; $90 (144) -- DEVICE DONE ERROR
; Character and Key Code Equates
CLS = $7D ;##rev2## clear screen
EOL = $9B ;end of line (RETURN)
HELP = $11 ;##1200xl## key code for HELP
CNTLF1 = $83 ;##1200xl## key code for CTRL-F1
CNTLF2 = $84 ;##1200xl## key code for CTRL-F2
CNTLF3 = $93 ;##1200xl## key code for CTRL-F3
CNTLF4 = $94 ;##1200xl## key code for CTRL-F4
CNTL1 = $9F ;##1200xl## key code for CTRL-1
; Status Code Equates
SUCCES = 1 ;($01) succesful operation
BRKABT = 128 ;($80) BREAK key abort
PRVOPN = 129 ;($81) IOCB already open error
NONDEV = 130 ;($82) nonexistent device error
WRONLY = 131 ;($83) IOCB opened for write only error
NVALID = 132 ;($84) invalid command error
NOTOPN = 133 ;($85) device/file not open error
BADIOC = 134 ;($86) invalid IOCB index error
RDONLY = 135 ;($87) IOCB opened for read only error
EOFERR = 136 ;($88) end of file error
TRNRCD = 137 ;($89) truncated record error
TIMOUT = 138 ;($8A) peripheral device timeout error
DNACK = 139 ;($8B) device does not acknowledge command
FRMERR = 140 ;($8C) serial bus framing error
CRSROR = 141 ;($8D) cursor overrange error
OVRRUN = 142 ;($8E) serial bus data overrun error
CHKERR = 143 ;($8F) serial bus checksum error
DERROR = 144 ;($90) device done (operation incomplete)
BADMOD = 145 ;($91) bad screen mode number error
FNCNOT = 146 ;($92) function not implemented in handler
SCRMEM = 147 ;($93) insufficient memory for screen mode
DSKFMT = 148 ;($94) SpartaDOS: unrecognized disk format
INCVER = 149 ;($95) SpartaDOS: disk was made with incompat. version
DIRNFD = 150 ;($96) SpartaDOS: directory not found
FEXIST = 151 ;($97) SpartaDOS: file exists
NOTBIN = 152 ;($98) SpartaDOS: file not binary
LSYMND = 154 ;($9A) SDX: loader symbol not defined
BADPRM = 156 ;($9C) SDX: bad parameter
OUTOFM = 158 ;($9E) SDX: out of memory
INVDEV = 160 ;($A0) invalid device number
TMOF = 161 ;($A1) too many open files
DSKFLL = 162 ;($A2) disk full
FATLIO = 163 ;($A3) fatal I/O error
FNMSMT = 164 ;($A4) internal file number mismatch
INVFNM = 165 ;($A5) invalid file name
PDLERR = 166 ;($A6) point data length error
EPERM = 167 ;($A7) permission denied
DINVCM = 168 ;($A8) command invalid for disk
DIRFLL = 169 ;($A9) directory full
FNTFND = 170 ;($AA) file not found
PNTINV = 171 ;($AB) point invalid
BADDSK = 173 ;($AD) bad disk
INCFMT = 176 ;($B0) DOS 3: incompatible file system
XNTBIN = 180 ;($B4) XDOS: file not binary
; DCB Device Bus Equates
DISKID = $31 ;##rev2## disk bus ID
PDEVN = $40 ;##rev2## printer bus ID
CASET = $60 ;##rev2## cassette bus ID
; Bus Command Equates
FOMAT = '! ;##rev2## format command
PUTSEC = 'P ;##rev2## put sector command
READ = 'R ;##rev2## read command
STATC = 'S ;##rev2## status command
WRITE = 'W ;##rev2## write command
; Command Auxiliary Byte Equates
DOUBLE = 'D ;##rev2## print 20 characters double width
NORMAL = 'N ;##rev2## print 40 characters normally
PLOT = 'P ;##rev2## plot
SIDWAY = 'S ;##rev2## print 16 characters sideways
; Bus Response Equates
ACK = 'A ;##rev2## device acknowledged
COMPLT = 'C ;##rev2## device succesfully completed operation
ERROR = 'E ;##rev2## device incurred error
NACK = 'N ;##rev2## device did not understand
; Floating Point Miscellaneous Equates
FPREC = 6 ;precision
FMPREC = FPREC-1 ;##rev2## length of mantissa
; Cassette Record Type Equates
HDR = $FB ;##rev2## header
DTA = $FC ;##rev2## data record
DT1 = $FA ;##rev2## last data record
EOT = $FE ;##rev2## end of tape (file)
TONE1 = 2 ;##rev2## record
TONE2 = 1 ;##rev2## playback
; Cassette Timing Equates
WLEADN = 1152 ;##rev2## NTSC 19.2 second WRITE file leader
RLEADN = 576 ;##rev2## NTSC 9.6 second READ file leader
WIRGLN = 180 ;##rev2## NTSC 3.0 second WRITE IRG
RIRGLN = 120 ;##rev2## NTSC 2.0 second READ IRG
WSIRGN = 15 ;##rev2## NTSC 0.25 second WRITE short IRG
RSIRGN = 10 ;##rev2## NTSC 0.16 second READ short IRG
BEEPNN = 30 ;##rev2## NTSC 0.5 second beep duration
BEEPFN = 10 ;##rev2## NTSC 0.16 seconrd beep duration
WLEADP = 960 ;##rev2## PAL 19.2 second WRITE file leader
RLEADP = 480 ;##rev2## PAL 9.6 second READ file leader
WIRGLP = 150 ;##rev2## PAL 3.0 second WRITE IRG
RIRGLP = 100 ;##rev2## PAL 2.0 second READ IRG
WSIRGP = 13 ;##rev2## PAL 0.25 second WRITE short IRG
RSIRGP = 8 ;##rev2## PAL 0.16 second READ short IRG
BEEPNP = 25 ;##rev2## PAL 0.5 second beep duration
BEEPFP = 8 ;##rev2## PAL 0.16 seconrd beep duration
WIRGHI = 0 ;##rev2## high WRITE IRG
RIRGHI = 0 ;##rev2## high READ IRG
; Power-up Validation Byte Value Equates
PUPVL1 = $5C ;##rev2## power-up validation value 1
PUPVL2 = $93 ;##rev2## power-up validation value 2
PUPVL3 = $25 ;##rev2## power-up validation value 3
; Relocating Loader Miscellaneous Equates
DATAER = 156 ;##rev2## end of record appears before END
MEMERR = 157 ;##rev2## memory insufficient for load error
; Miscellaneous Equates
IOCFRE = $FF ;IOCB free indication
B19200 = $0028 ;##rev2## 19200 baud POKEY counter value
B00600 = $05CC ;##rev2## 600 baud POKEY counter value
HITONE = $05 ;##rev2## FSK high freq. POKEY counter value
LOTONE = $07 ;##rev2## FSK low freq. POKEY counter value
NCOMLO = $34 ;##rev2## PIA lower NOT COMMAND line command
NCOMHI = $3C ;##rev2## PIA raise NOT COMMAND line command
MOTRGO = $34 ;##rev2## PIA cassette motor ON command
MOTRST = $3C ;##rev2## PIA cassette motor OFF command
NODAT = $00 ;##rev2## SIO immediate operation
GETDAT = $40 ;##rev2## SIO read data frame
PUTDAT = $80 ;##rev2## SIO write data frame
CRETRI = 13 ;##rev2## number of command frame retries
DRETRI = 1 ;##rev2## number of device retries
CTIM = 2 ;##rev2## command frame ACK timeout
NBUFSZ = 40 ;##rev2## print normal buffer size
DBUFSZ = 20 ;##rev2## print double buffer size
SBUFSZ = 29 ;##rev2## print sideways buffer size
;-------------------------------------------------------------------------
; Page Zero Address Equates
;-------------------------------------------------------------------------
LINZBS = $00 ;LINBUG RAM (WILL BE REPLACED BY MONITOR RAM)
LNFLG = $00 ;##1200xl## 1-byte LNBUG flag (0 = not LNBUG)
NGFLAG = $01 ;##1200xl## 1-byte memory status (0 = failure)
; Not Cleared
CASINI = $02 ;CASSETTE INIT LOCATION
RAMLO = $04 ;RAM POINTER FOR MEMORY TEST
TRAMSZ = $06 ;TEMPORARY REGISTER FOR RAM SIZE
;TSTDAT = $07 ;##old## RAM TEST DATA REGISTER
CMCMD = $07 ;##rev2## 1-byte command communications
; Cleared upon Coldstart only
WARMST = $08 ;WARM START FLAG
BOOTQ = $09 ;SUCCESSFUL BOOT FLAG
DOSVEC = $0A ;DISK SOFTWARE START VECTOR
DOSINI = $0C ;DISK SOFTWARE INIT ADDRESS
APPMHI = $0E ;APPLICATIONS MEMORY HI LIMIT
; Cleared upon Coldstart or Warmstart
INTZBS = $10 ;INTERRUPT HANDLER
POKMSK = $10 ;SYSTEM MASK FOR POKEY IRQ ENABLE (shadow of IRQEN)
BRKKEY = $11 ;BREAK KEY FLAG
RTCLOK = $12 ;REAL TIME CLOCK (IN 16 MSEC UNITS>
BUFADR = $15 ;INDIRECT BUFFER ADDRESS REGISTER
ICCOMT = $17 ;COMMAND FOR VECTOR
DSKFMS = $18 ;DISK FILE MANAGER POINTER
DSKUTL = $1A ;DISK UTILITIES POINTER
ABUFPT = $1C ;##1200xl## 4-byte ACMI buffer pointer area
;PTIMOT = $1C ;##old## PRINTER TIME OUT REGISTER
;PBPNT = $1D ;##old## PRINT BUFFER POINTER
;PBUFSZ = $1E ;##old## PRINT BUFFER SIZE
;PTEMP = $1F ;##old## TEMPORARY REGISTER
ZIOCB = $20 ;ZERO PAGE I/O CONTROL BLOCK
IOCBAS = $20 ;16-byte page zero IOCB
ICHIDZ = $20 ;HANDLER INDEX NUMBER (FF = IOCB FREE)
ICDNOZ = $21 ;DEVICE NUMBER (DRIVE NUMBER)
ICCOMZ = $22 ;COMMAND CODE
ICSTAZ = $23 ;STATUS OF LAST IOCB ACTION
ICBALZ = $24 ;BUFFER ADDRESS LOW BYTE
ICBAHZ = $25 ;1-byte high buffer address
ICPTLZ = $26 ;PUT BYTE ROUTINE ADDRESS -1
ICPTHZ = $27 ;1-byte high PUT-BYTE routine address
ICBLLZ = $28 ;BUFFER LENGTH LOW BYTE
ICBLHZ = $29 ;1-byte high buffer length
ICAX1Z = $2A ;AUXILIARY INFORMATION FIRST BYTE
ICAX2Z = $2B ;1-byte second auxiliary information
ICSPRZ = $2C ;4-byte spares
ENTVEC = $2C ;##rev2## 2-byte (not used)
ICIDNO = $2E ;IOCB NUMBER X 16
CIOCHR = $2F ;CHARACTER BYTE FOR CURRENT OPERATION
STATUS = $30 ;INTERNAL STATUS STORAGE
CHKSUM = $31 ;CHECKSUM (SINGLE BYTE SUM WITH CARRY)
BUFRLO = $32 ;POINTER TO DATA BUFFER (LO BYTE)
BUFRHI = $33 ;POINTER TO DATA BUFFER (HI BYTE)
BFENLO = $34 ;NEXT BYTE PAST END OF THE DATA BUFFER LO
BFENHI = $35 ;NEXT BYTE PAST END OF THE DATA BUFFER HI
;CRETRY = $36 ;##old## NUMBER OF COMMAND FRAME RETRIES
;DRETRY = $37 ;##old## NUMBER OF DEVICE RETRIES
LTEMP = $36 ;##1200xl## 2-byte loader temporary
BUFRFL = $38 ;DATA BUFFER FULL FLAG
RECVDN = $39 ;RECEIVE DONE FLAG
XMTDON = $3A ;TRANSMISSION DONE FLAG
CHKSNT = $3B ;CHECKSUM SENT FLAG
NOCKSM = $3C ;NO CHECKSUM FOLLOWS DATA FLAG
BPTR = $3D ;1-byte cassette buffer pointer
FTYPE = $3E ;1-byte cassette IRG type
FEOF = $3F ;1-byte cassette EOF flag (0 = quiet)
FREQ = $40 ;1-byte cassette beep counter
SOUNDR = $41 ;NOISY I/0 FLAG. (ZERO IS QUIET)
CRITIC = $42 ;DEFINES CRITICAL SECTION (CRITICAL IF NON-Z)
FMSZPG = $43 ;DISK FILE MANAGER SYSTEM ZERO PAGE
;CKEY = $4A ;##old## FLAG SET WHEN GAME START PRESSED
ZCHAIN = $4A ;##1200xl## 2-byte handler linkage chain pointer
;CASSBT = $4B ;##old## CASSETTE BOOT FLAG
DSTAT = $4C ;DISPLAY STATUS
ATRACT = $4D ;ATRACT FLAG
DRKMSK = $4E ;DARK ATRACT MASK
COLRSH = $4F ;ATRACT COLOR SHIFTER (EOR'ED WITH PLAYFIELD
TMPCHR = $50 ;1-byte temporary character
HOLD1 = $51 ;1-byte temporary
LMARGN = $52 ;left margin (normally 2, cc65 C startup code sets it to 0)
RMARGN = $53 ;right margin (normally 39 if no XEP80 is used)
ROWCRS = $54 ;1-byte cursor row
COLCRS = $55 ;2-byte cursor column
DINDEX = $57 ;1-byte display mode
SAVMSC = $58 ;2-byte saved memory scan counter
OLDROW = $5A ;1-byte prior row
OLDCOL = $5B ;2-byte prior column
OLDCHR = $5D ;DATA UNDER CURSOR
OLDADR = $5E ;2-byte saved cursor memory address
FKDEF = $60 ;##1200xl## 2-byte function key definition table
;NEWROW = $60 ;##old## POINT DRAW GOES TO
;NEWCOL = $61 ;##old##
PALNTS = $62 ;##1200xl## 1-byte PAL/NTSC indicator (0 = NTSC)
LOGCOL = $63 ;POINTS AT COLUMN IN LOGICAL LINE
ADRESS = $64 ;2-byte temporary address
MLTTMP = $66 ;1-byte temporary
OPNTMP = $66 ;FIRST BYTE IS USED IN OPEN AS TEMP
TOADR = $66 ;##rev2## 2-byte destination address
SAVADR = $68 ;2-byte saved address
FRMADR = $68 ;##rev2## 2-byte source address
RAMTOP = $6A ;RAM SIZE DEFINED BY POWER ON LOGIC
BUFCNT = $6B ;BUFFER COUNT
BUFSTR = $6C ;EDITOR GETCH POINTER
BITMSK = $6E ;BIT MASK
SHFAMT = $6F ;1-byte shift amount for pixel justifucation
ROWAC = $70 ;2-byte draw working row
COLAC = $72 ;2-byte draw working column
ENDPT = $74 ;2-byte end point
DELTAR = $76 ;1-byte row difference
DELTAC = $77 ;2-byte column difference
KEYDEF = $79 ;##1200xl## 2-byte key definition table address
;ROWINC = $79 ;##old##
;COLINC = $7A ;##old##
SWPFLG = $7B ;NON-0 1F TXT AND REGULAR RAM IS SWAPPED
HOLDCH = $7C ;CH IS MOVED HERE IN KGETCH BEFORE CNTL & SH
INSDAT = $7D ;1-byte temporary
COUNTR = $7E ;2-byte draw iteration count
; Floating Point Package Page Zero Address Equates
FR0 = $D4 ;6-byte register 0
FR0M = $D5 ;##rev2## 5-byte register 0 mantissa
QTEMP = $D9 ;##rev2## 1-byte temporary
FRE = $DA ;6-byte (internal) register E
FR1 = $E0 ;FP REG1
FR1M = $E1 ;##rev2## 5-byte register 1 mantissa
FR2 = $E6 ;6-byte (internal) register 2
FRX = $EC ;1-byte temporary
EEXP = $ED ;VALUE OF E
FRSIGN = $EE ;##rev2## 1-byte floating point sign
NSIGN = $EE ;SIGN OF #
PLYCNT = $EF ;##rev2## 1-byte polynomial degree
ESIGN = $EF ;SIGN OF EXPONENT
SGNFLG = $F0 ;##rev2## 1-byte sign flag
FCHRFLG = $F0 ;1ST CHAR FLAG
XFMFLG = $F1 ;##rev2## 1-byte transform flag
DIGRT = $F1 ;# OF DIGITS RIGHT OF DECIMAL
CIX = $F2 ;CURRENT INPUT INDEX
INBUFF = $F3 ;POINTS TO USER'S LINE INPUT BUFFER
ZTEMP1 = $F5 ;2-byte temporary
ZTEMP4 = $F7 ;2-byte temporary
ZTEMP3 = $F9 ;2-byte temporary
;DEGFLG = $FB ;##old## same as RADFLG
;RADFLG = $FB ;##old## 0=RADIANS, 6=DEGREES
FLPTR = $FC ;2-byte floating point number pointer
FPTR2 = $FE ;2-byte floating point number pointer
;-------------------------------------------------------------------------
; Page Two Address Equates
;-------------------------------------------------------------------------
INTABS = $0200 ;INTERRUPT RAM
VDSLST = $0200 ;DISPLAY LIST NMI VECTOR
VPRCED = $0202 ;PROCEED LINE IRQ VECTOR
VINTER = $0204 ;INTERRUPT LINE IRQ VECTOR
VBREAK = $0206 ;SOFTWARE BREAK (00) INSTRUCTION IRQ VECTOR
VKEYBD = $0208 ;POKEY KEYBOARD IRQ VECTOR
VSERIN = $020A ;POKEY SERIAL INPUT READY IRQ
VSEROR = $020C ;POKEY SERIAL OUTPUT READY IRQ
VSEROC = $020E ;POKEY SERIAL OUTPUT COMPLETE IRQ
VTIMR1 = $0210 ;POKEY TIMER 1 IRQ
VTIMR2 = $0212 ;POKEY TIMER 2 IRQ
VTIMR4 = $0214 ;POKEY TIMER 4 IRQ
VIMIRQ = $0216 ;IMMEDIATE IRQ VECTOR
CDTMV1 = $0218 ;COUNT DOWN TIMER 1
CDTMV2 = $021A ;COUNT DOWN TIMER 2
CDTMV3 = $021C ;COUNT DOWN TIMER 3
CDTMV4 = $021E ;COUNT DOWN TIMER 4
CDTMV5 = $0220 ;COUNT DOWN TIMER 5
VVBLKI = $0222 ;IMMEDIATE VERTICAL BLANK NMI VECTOR
VVBLKD = $0224 ;DEFERRED VERTICAL BLANK NMI VECTOR
CDTMA1 = $0226 ;COUNT DOWN TIMER 1 JSR ADDRESS
CDTMA2 = $0228 ;COUNT DOWN TIMER 2 JSR ADDRESS
CDTMF3 = $022A ;COUNT DOWN TIMER 3 FLAG
SRTIMR = $022B ;SOFTWARE REPEAT TIMER
CDTMF4 = $022C ;COUNT DOWN TIMER 4 FLAG
INTEMP = $022D ;IAN'S TEMP
CDTMF5 = $022E ;COUNT DOWN TIMER FLAG 5
SDMCTL = $022F ;SAVE DMACTL REGISTER
SDLSTL = $0230 ;SAVE DISPLAY LIST LOW BYTE
SDLSTH = $0231 ;SAVE DISPLAY LIST HI BYTE
SSKCTL = $0232 ;SKCTL REGISTER RAM
LCOUNT = $0233 ;##1200xl## 1-byte relocating loader record
LPENH = $0234 ;LIGHT PEN HORIZONTAL VALUE
LPENV = $0235 ;LIGHT PEN VERTICAL VALUE
BRKKY = $0236 ;BREAK KEY VECTOR
;RELADR = $0238 ;##1200xl## 2-byte relocatable loader address
VPIRQ = $0238 ;##rev2## 2-byte parallel device IRQ vector
CDEVIC = $023A ;COMMAND FRAME BUFFER - DEVICE
CCOMND = $023B ;COMMAND
CAUX1 = $023C ;COMMAND AUX BYTE 1
CAUX2 = $023D ;COMMAND AUX BYTE 2
TEMP = $023E ;TEMPORARY RAM CELL
ERRFLG = $023F ;ERROR FLAG - ANY DEVICE ERROR EXCEPT TIME OUT
DFLAGS = $0240 ;DISK FLAGS FROM SECTOR ONE
DBSECT = $0241 ;NUMBER OF DISK BOOT SECTORS
BOOTAD = $0242 ;ADDRESS WHERE DISK BOOT LOADER WILL BE PUT
COLDST = $0244 ;COLDSTART FLAG (1=IN MIDDLE OF COLDSTART>
RECLEN = $0245 ;##1200xl## 1-byte relocating loader record length
DSKTIM = $0246 ;DISK TIME OUT REGISTER
;LINBUF = $0247 ;##old## CHAR LINE BUFFER
PDVMSK = $0247 ;##rev2## 1-byte parallel device selection mask
SHPDVS = $0248 ;##rev2## 1-byte PDVS (parallel device select)
PDIMSK = $0249 ;##rev2## 1-byte parallel device IRQ selection
RELADR = $024A ;##rev2## 2-byte relocating loader relative adr.
PPTMPA = $024C ;##rev2## 1-byte parallel device handler temporary
PPTMPX = $024D ;##rev2## 1-byte parallel device handler temporary
CHSALT = $026B ;##1200xl## 1-byte character set alternate
VSFLAG = $026C ;##1200xl## 1-byte fine vertical scroll count
KEYDIS = $026D ;##1200xl## 1-byte keyboard disable
FINE = $026E ;##1200xl## 1-byte fine scrolling mode
GPRIOR = $026F ;GLOBAL PRIORITY CELL
PADDL0 = $0270 ;1-byte potentiometer 0
PADDL1 = $0271 ;1-byte potentiometer 1
PADDL2 = $0272 ;1-byte potentiometer 2
PADDL3 = $0273 ;1-byte potentiometer 3
PADDL4 = $0274 ;1-byte potentiometer 4
PADDL5 = $0275 ;1-byte potentiometer 5
PADDL6 = $0276 ;1-byte potentiometer 6
PADDL7 = $0277 ;1-byte potentiometer 7
STICK0 = $0278 ;1-byte joystick 0
STICK1 = $0279 ;1-byte joystick 1
STICK2 = $027A ;1-byte joystick 2
STICK3 = $027B ;1-byte joystick 3
PTRIG0 = $027C ;1-byte paddle trigger 0
PTRIG1 = $027D ;1-byte paddle trigger 1
PTRIG2 = $027E ;1-byte paddle trigger 2
PTRIG3 = $027F ;1-byte paddle trigger 3
PTRIG4 = $0280 ;1-byte paddle trigger 4
PTRIG5 = $0281 ;1-byte paddle trigger 5
PTRIG6 = $0281 ;1-byte paddle trigger 6
PTRIG7 = $0283 ;1-byte paddle trigger 7
STRIG0 = $0284 ;1-byte joystick trigger 0
STRIG1 = $0285 ;1-byte joystick trigger 1
STRIG2 = $0286 ;1-byte joystick trigger 2
STRIG3 = $0287 ;1-byte joystick trigger 3
;CSTAT = $0288 ;##old## cassette status register
HIBYTE = $0288 ;##1200xl## 1-byte relocating loader high byte
WMODE = $0289 ;1-byte cassette WRITE mode
BLIM = $028A ;1-byte cassette buffer limit
IMASK = $028B ;##rev2## (not used)
JVECK = $028C ;2-byte jump vector or temporary
NEWADR = $028E ;##1200xl## 2-byte relocating address
TXTROW = $0290 ;TEXT ROWCRS
TXTCOL = $0291 ;TEXT COLCRS
TINDEX = $0293 ;TEXT INDEX
TXTMSC = $0294 ;FOOLS CONVRT INTO NEW MSC
TXTOLD = $0296 ;OLDROW & OLDCOL FOR TEXT (AND THEN SOME)
;TMPX1 = $029C ;##old## 1-byte temporary register
CRETRY = $029C ;##1200xl## 1-byte number of command frame retries
HOLD3 = $029D ;1-byte temporary
SUBTMP = $029E ;1-byte temporary
HOLD2 = $029F ;1-byte (not used)
DMASK = $02A0 ;1-byte display (pixel location) mask
TMPLBT = $02A1 ;1-byte (not used)
ESCFLG = $02A2 ;ESCAPE FLAG
TABMAP = $02A3 ;15-byte (120 bit) tab stop bit map
LOGMAP = $02B2 ;LOGICAL LINE START BIT MAP
INVFLG = $02B6 ;INVERSE VIDEO FLAG (TOGGLED BY ATARI KEY)
FILFLG = $02B7 ;RIGHT FILL FLAG FOR DRAW
TMPROW = $02B8 ;1-byte temporary row
TMPCOL = $02B9 ;2-byte temporary column
SCRFLG = $02BB ;SET IF SCROLL OCCURS
HOLD4 = $02BC ;TEMP CELL USED IN DRAW ONLY
;HOLD5 = $02BD ;##old## DITTO
DRETRY = $02BD ;##1200xl## 1-byte number of device retries
SHFLOK = $02BE ;1-byte shift/control lock flags
BOTSCR = $02BF ;BOTTOM OF SCREEN 24 NORM 4 SPLIT
PCOLR0 = $02C0 ;1-byte player-missile 0 color/luminance
PCOLR1 = $02C1 ;1-byte player-missile 1 color/luminance
PCOLR2 = $02C2 ;1-byte player-missile 2 color/luminance
PCOLR3 = $02C3 ;1-byte player-missile 3 color/luminance
COLOR0 = $02C4 ;1-byte playfield 0 color/luminance
COLOR1 = $02C5 ;1-byte playfield 1 color/luminance
COLOR2 = $02C6 ;1-byte playfield 2 color/luminance
COLOR3 = $02C7 ;1-byte playfield 3 color/luminance
COLOR4 = $02C8 ;1-byte background color/luminance
PARMBL = $02C9 ;##rev2## 6-byte relocating loader parameter
RUNADR = $02C9 ;##1200xl## 2-byte run address
HIUSED = $02CB ;##1200xl## 2-byte highest non-zero page address
ZHIUSE = $02CD ;##1200xl## 2-byte highest zero page address
OLDPAR = $02CF ;##rev2## 6-byte relocating loader parameter
GBYTEA = $02CF ;##1200xl## 2-byte GET-BYTE routine address
LOADAD = $02D1 ;##1200xl## 2-byte non-zero page load address
ZLOADA = $02D3 ;##1200xl## 2-byte zero page load address
DSCTLN = $02D5 ;##1200xl## 2-byte disk sector length
ACMISR = $02D7 ;##1200xl## 2-byte ACMI interrupt service routine
KRPDEL = $02D9 ;##1200xl## 1-byte auto-repeat delay
KEYREP = $02DA ;##1200xl## 1-byte auto-repeat rate
NOCLIK = $02DB ;##1200xl## 1-byte key click disable
HELPFG = $02DC ;##1200xl## 1-byte HELP key flag (0 = no HELP)
DMASAV = $02DD ;##1200xl## 1-byte SDMCTL save/restore
PBPNT = $02DE ;##1200xl## 1-byte printer buffer pointer
PBUFSZ = $02DF ;##1200xl## 1-byte printer buffer size
GLBABS = $02E0 ;4-byte global variables for non-DOS users
RUNAD = $02E0 ;##map## 2-byte binary file run address
INITAD = $02E2 ;##map## 2-byte binary file initialization address
RAMSIZ = $02E4 ;RAM SIZE (HI BYTE ONLY)
MEMTOP = $02E5 ;TOP OF AVAILABLE USER MEMORY
MEMLO = $02E7 ;BOTTOM OF AVAILABLE USER MEMORY
HNDLOD = $02E9 ;##1200xl## 1-byte user load flag
DVSTAT = $02EA ;STATUS BUFFER
CBAUDL = $02EE ;1-byte low cassette baud rate
CBAUDH = $02EF ;1-byte high cassette baud rate
CRSINH = $02F0 ;CURSOR INHIBIT (00 = CURSOR ON)
KEYDEL = $02F1 ;KEY DELAY
CH1 = $02F2 ;1-byte prior keyboard character
CHACT = $02F3 ;CHACTL REGISTER RAM
CHBAS = $02F4 ;CHBAS REGISTER RAM
NEWROW = $02F5 ;##1200xl## 1-byte draw destination row
NEWCOL = $02F6 ;##1200xl## 2-byte draw destination column
ROWINC = $02F8 ;##1200xl## 1-byte draw row increment
COLINC = $02F9 ;##1200xl## 1-byte draw column increment
CHAR = $02FA ;1-byte internal character
ATACHR = $02FB ;ATASCII CHARACTER
CH = $02FC ;GLOBAL VARIABLE FOR KEYBOARD
FILDAT = $02FD ;RIGHT FILL DATA <DRAW>
DSPFLG = $02FE ;DISPLAY FLAG DISPLAY CNTLS IF NON-ZERO
SSFLAG = $02FF ;START/STOP FLAG FOR PAGING (CNTL 1). CLEARE
;-------------------------------------------------------------------------
; Page Three Address Equates
;-------------------------------------------------------------------------
DCB = $0300 ;DEVICE CONTROL BLOCK
DDEVIC = $0300 ;PERIPHERAL UNIT 1 BUS I.D. NUMBER
DUNIT = $0301 ;UNIT NUMBER
DCOMND = $0302 ;BUS COMMAND
DSTATS = $0303 ;COMMAND TYPE/STATUS RETURN
DBUFLO = $0304 ;1-byte low data buffer address
DBUFHI = $0305 ;1-byte high data buffer address
DTIMLO = $0306 ;DEVICE TIME OUT IN 1 SECOND UNITS
DUNUSE = $0307 ;UNUSED BYTE
DBYTLO = $0308 ;1-byte low number of bytes to transfer
DBYTHI = $0309 ;1-byte high number of bytes to transfer
DAUX1 = $030A ;1-byte first command auxiliary
DAUX2 = $030B ;1-byte second command auxiliary
TIMER1 = $030C ;INITIAL TIMER VALUE
;ADDCOR = $030E ;##old## ADDITION CORRECTION
JMPERS = $030E ;##1200xl## 1-byte jumper options
CASFLG = $030F ;CASSETTE MODE WHEN SET
TIMER2 = $0310 ;2-byte final baud rate timer value
TEMP1 = $0312 ;TEMPORARY STORAGE REGISTER
;TEMP2 = $0314 ;##old## TEMPORARY STORAGE REGISTER
TEMP2 = $0313 ;##1200xl## 1-byte temporary
PTIMOT = $0314 ;##1200xl## 1-byte printer timeout
TEMP3 = $0315 ;TEMPORARY STORAGE REGISTER
SAVIO = $0316 ;SAVE SERIAL IN DATA PORT
TIMFLG = $0317 ;TIME OUT FLAG FOR BAUD RATE CORRECTION
STACKP = $0318 ;SIO STACK POINTER SAVE CELL
TSTAT = $0319 ;TEMPORARY STATUS HOLDER
HATABS = $031A ;35-byte handler address table (was 38 bytes)
PUPBT1 = $033D ;##1200xl## 1-byte power-up validation byte 1
PUPBT2 = $033E ;##1200xl## 1-byte power-up validation byte 2
PUPBT3 = $033F ;##1200xl## 1-byte power-up validation byte 3
IOCB = $0340 ;I/O CONTROL BLOCKS
ICHID = $0340 ;HANDLER INDEX NUMBER (FF=IOCB FREE)
ICDNO = $0341 ;DEVICE NUMBER (DRIVE NUMBER)
ICCOM = $0342 ;COMMAND CODE
ICSTA = $0343 ;STATUS OF LAST IOCB ACTION
ICBAL = $0344 ;1-byte low buffer address
ICBAH = $0345 ;1-byte high buffer address
ICPTL = $0346 ;1-byte low PUT-BYTE routine address - 1
ICPTH = $0347 ;1-byte high PUT-BYTE routine address - 1
ICBLL = $0348 ;1-byte low buffer length
ICBLH = $0349 ;1-byte high buffer length
ICAX1 = $034A ;1-byte first auxiliary information
ICAX2 = $034B ;1-byte second auxiliary information
ICAX3 = $034C ;1-byte third auxiliary information
ICAX4 = $034D ;1-byte fourth auxiliary information
ICAX5 = $034E ;1-byte fifth auxiliary information
ICSPR = $034F ;SPARE BYTE
PRNBUF = $03C0 ;PRINTER BUFFER
SUPERF = $03E8 ;##1200xl## 1-byte editor super function flag
CKEY = $03E9 ;##1200xl## 1-byte cassette boot request flag
CASSBT = $03EA ;##1200xl## 1-byte cassette boot flag
CARTCK = $03EB ;##1200xl## 1-byte cartridge equivalence check
DERRF = $03EC ;##rev2## 1-byte screen OPEN error flag
; Remainder of Page Three Not Cleared upon Reset
ACMVAR = $03ED ;##1200xl## 11 bytes reserved for ACMI
BASICF = $03F8 ;##rev2## 1-byte BASIC switch flag
MINTLK = $03F9 ;##1200xl## 1-byte ACMI module interlock
GINTLK = $03FA ;##1200xl## 1-byte cartridge interlock
CHLINK = $03FB ;##1200xl## 2-byte loaded handler chain link
CASBUF = $03FD ;CASSETTE BUFFER
;-------------------------------------------------------------------------
; Page Four/Five Address Equates
;-------------------------------------------------------------------------
; USER AREA STARTS HERE AND GOES TO END OF PAGE FIVE
USAREA = $0480 ;128 bytes reserved for application
LBPR1 = $057E ;LBUFF PREFIX 1
LBPR2 = $057F ;LBUFF PREFIX 2
LBUFF = $0580 ;128-byte line buffer
PLYARG = $05E0 ;6-byte floating point polynomial argument
FPSCR = $05E6 ;6-byte floating point temporary
FPSCR1 = $05EC ;6-byte floating point temporary
;LBFEND = $05FF ;##old## END OF LBUFF
DOS = $0700
;-------------------------------------------------------------------------
; SpartaDOS-X Definitions
;-------------------------------------------------------------------------
SDX_FLAG = DOS ; 'S' for SpartaDOS
SDX_VERSION = $0701 ; SD version (e.g. $32 = 3.2, $40 = 4.0)
; address $0702 contains sub-version, e.g.
; 8 in case of SDX 4.48
SDX_KERNEL = $0703 ; SDX kernel entry point
SDX_BLOCK_IO = $0706 ; block I/O entry point
SDX_MISC = $0709 ; "misc" entry point
SDX_DEVICE = $0761
SDX_DATE = $077B ; day, month, year (3 bytes)
SDX_TIME = $077E ; hour, min, sec (3 bytes)
SDX_DATESET = $0781
SDX_PATH = $07A0 ; 64 bytes
SDX_IFSYMBOL = $07EB ; only valid on SDX 4.40 or newer
SDX_S_LOOKUP = SDX_IFSYMBOL ; alternative name for SDX_IFSYMBOL
; values for SDX_DEVICE
SDX_CLK_DEV = $10 ; clock device
; clock device functions
SDX_KD_GETTD = 100 ; get time and date
SDX_KD_SETTD = 101 ; set time and date
;-------------------------------------------------------------------------
; Cartridge Address Equates
;-------------------------------------------------------------------------
CARTCS = $BFFA ;##rev2## 2-byte cartridge coldstart address
CART = $BFFC ;##rev2## 1-byte cartridge present indicator
;0=Cart Exists
CARTFG = $BFFD ;##rev2## 1-byte cartridge flags
;D7 0=Not a Diagnostic Cart
; 1=Is a Diagnostic cart and control is
; given to cart before any OS is init.
;D2 0=Init but Do not Start Cart
; 1=Init and Start Cart
;D0 0=Do not boot disk
; 1=Boot Disk
CARTAD = $BFFE ;##rev2## 2-byte cartridge start vector
;-------------------------------------------------------------------------
; CTIA/GTIA Address Equates
;-------------------------------------------------------------------------
GTIA = $D000 ;CTIA/GTIA area
;-------------------------------------------------------------------------
; PBI Address Equates
;-------------------------------------------------------------------------
PBI = $D100 ;##rev2## parallel bus interface area
; Read Addresses
PDVI = $D1FF ;##rev2## parallel device IRQ status
; Write Addresses
PDVS = $D1FF ;##rev2## parallel device select
;-------------------------------------------------------------------------
; POKEY Address Equates
;-------------------------------------------------------------------------
POKEY = $D200 ;POKEY area
; POKEY KBCODE Values
KEY_NONE = $FF
KEY_0 = $32
KEY_1 = $1F
KEY_2 = $1E
KEY_3 = $1A
KEY_4 = $18
KEY_5 = $1D
KEY_6 = $1B
KEY_7 = $33
KEY_8 = $35
KEY_9 = $30
KEY_A = $3F
KEY_B = $15
KEY_C = $12
KEY_D = $3A
KEY_E = $2A
KEY_F = $38
KEY_G = $3D
KEY_H = $39
KEY_I = $0D
KEY_J = $01
KEY_K = $05
KEY_L = $00
KEY_M = $25
KEY_N = $23
KEY_O = $08
KEY_P = $0A
KEY_Q = $2F
KEY_R = $28
KEY_S = $3E
KEY_T = $2D
KEY_U = $0B
KEY_V = $10
KEY_W = $2E
KEY_X = $16
KEY_Y = $2B
KEY_Z = $17
KEY_COMMA = $20
KEY_PERIOD = $22
KEY_SLASH = $26
KEY_SEMICOLON = $02
KEY_PLUS = $06
KEY_ASTERISK = $07
KEY_DASH = $0E
KEY_EQUALS = $0F
KEY_LESSTHAN = $36
KEY_GREATERTHAN = $37
KEY_ESC = $1C
KEY_TAB = $2C
KEY_SPACE = $21
KEY_RETURN = $0C
KEY_DELETE = $34
KEY_CAPS = $3C
KEY_INVERSE = $27
KEY_HELP = $11
KEY_F1 = $03
KEY_F2 = $04
KEY_F3 = $13
KEY_F4 = $14
KEY_SHIFT = $40
KEY_CTRL = $80
; Composed keys
KEY_EXCLAMATIONMARK = KEY_1 | KEY_SHIFT
KEY_QUOTE = KEY_2 | KEY_SHIFT
KEY_HASH = KEY_3 | KEY_SHIFT
KEY_DOLLAR = KEY_4 | KEY_SHIFT
KEY_PERCENT = KEY_5 | KEY_SHIFT
KEY_AMPERSAND = KEY_6 | KEY_SHIFT
KEY_APOSTROPHE = KEY_7 | KEY_SHIFT
KEY_AT = KEY_8 | KEY_SHIFT
KEY_OPENINGPARAN = KEY_9 | KEY_SHIFT
KEY_CLOSINGPARAN = KEY_0 | KEY_SHIFT
KEY_UNDERLINE = KEY_DASH | KEY_SHIFT
KEY_BAR = KEY_EQUALS | KEY_SHIFT
KEY_COLON = KEY_SEMICOLON | KEY_SHIFT
KEY_BACKSLASH = KEY_PLUS | KEY_SHIFT
KEY_CIRCUMFLEX = KEY_ASTERISK | KEY_SHIFT
KEY_OPENINGBRACKET = KEY_COMMA | KEY_SHIFT
KEY_CLOSINGBRACKET = KEY_PERIOD | KEY_SHIFT
KEY_QUESTIONMARK = KEY_SLASH | KEY_SHIFT
KEY_CLEAR = KEY_LESSTHAN | KEY_SHIFT
KEY_INSERT = KEY_GREATERTHAN | KEY_SHIFT
KEY_UP = KEY_UNDERLINE | KEY_CTRL
KEY_DOWN = KEY_EQUALS | KEY_CTRL
KEY_LEFT = KEY_PLUS | KEY_CTRL
KEY_RIGHT = KEY_ASTERISK | KEY_CTRL
;-------------------------------------------------------------------------
; ANTIC Address Equates
;-------------------------------------------------------------------------
ANTIC = $D400 ;ANTIC area
; PBI RAM Address Equates
PBIRAM = $D600 ;##rev2## parallel bus interface RAM area
; Parallel Device Address Equates
PDID1 = $D803 ;##rev2## parallel device ID 1
PDIDV = $D805 ;##rev2## parallel device I/O vector
PDIRQV = $D808 ;##rev2## parallel device IRQ vector
PDID2 = $D80B ;##rev2## parallel device ID 2
PDVV = $D80D ;##rev2## parallel device vector table
;-------------------------------------------------------------------------
; PIA Address Equates
;-------------------------------------------------------------------------
PIA = $D300 ;PIA area
PORTA = $D300 ;port A direction register or jacks one/two
PORTB = $D301 ;port B direction register or memory management
PACTL = $D302 ;port A control
PBCTL = $D303 ;port B control
;-------------------------------------------------------------------------
; Floating Point Package Address Equates
;-------------------------------------------------------------------------
AFP = $D800 ;convert ASCII to floating point
FASC = $D8E6 ;convert floating point to ASCII
IFP = $D9AA ;convert integer to floating point
FPI = $D9D2 ;convert floating point to integer
ZFR0 = $DA44 ;zero FR0
ZF1 = $DA46 ;zero floating point number
FSUB = $DA60 ;subtract floating point numbers
FADD = $DA66 ;add floating point numbers
FMUL = $DADB ;multiply floating point numbers
FDIV = $DB28 ;divide floating point numbers
PLYEVL = $DD40 ;evaluate floating point polynomial
FLD0R = $DD89 ;load floating point number
FLD0P = $DD8D ;load floating point number
FLD1R = $DD98 ;load floating point number
PLD1P = $DD9C ;load floating point number
FST0R = $DDA7 ;store floating point number
FST0P = $DDAB ;store floating point number
FMOVE = $DDB6 ;move floating point number
LOG = $DECD ;calculate floating point logarithm
LOG10 = $DED1 ;calculate floating point base 10 logarithm
EXP = $DDC0 ;calculate floating point exponential
EXP10 = $DDCC ;calculate floating point base 10 exponential
;-------------------------------------------------------------------------
; Device Handler Vector Table Address Equates
;-------------------------------------------------------------------------
EDITRV = $E400 ;editor handler vector table
SCRENV = $E410 ;screen handler vector table
KEYBDV = $E420 ;keyboard handler vector table
PRINTV = $E430 ;printer handler vector table
CASETV = $E440 ;cassette handler vector table
;-------------------------------------------------------------------------
; Jump Vector Address Equates
;-------------------------------------------------------------------------
DISKIV = $E450 ;vector to initialize DIO
DSKINV = $E453 ;vector to DIO
;IF __ATARIXL__
;.ifndef SHRAM_HANDLERS
;.import CIO_handler, SIO_handler, SETVBV_handler
;.endif
;.define CIOV CIO_handler
;.define SIOV SIO_handler
;.define SETVBV SETVBV_handler
;CIOV_org = $E456 ;vector to CIO
;SIOV_org = $E459 ;vector to SIO
;SETVBV_org = $E45C ;vector to set VBLANK parameters
;.else
;CIOV = $E456 ;vector to CIO
;SIOV = $E459 ;vector to SIO
;SETVBV = $E45C ;vector to set VBLANK parameters
; aliases in order not to have to sprinkle common code with .ifdefs
;CIOV_org = CIOV
;SIOV_org = SIOV
;SETVBV_org = SETVBV
;.endif
SYSVBV = $E45F ;vector to process immediate VBLANK
XITVBV = $E462 ;vector to process deferred VBLANK
SIOINV = $E465 ;vector to initialize SIO
SENDEV = $E468 ;vector to enable SEND
INTINV = $E46B ;vector to initialize interrupt handler
CIOINV = $E46E ;vector to initialize CIO
BLKBDV = $E471 ;vector to power-up display
WARMSV = $E474 ;vector to warmstart
COLDSV = $E477 ;vector to coldstart
RBLOKV = $E47A ;vector to read cassette block
CSOPIV = $E47D ;vector to open cassette for input
VCTABL = $E480 ;RAM vector initial value table
PUPDIV = $E480 ;##rev2## vector to power-up display
SLFTSV = $E483 ;##rev2## vector to self-test
PHENTV = $E486 ;##rev2## vector to enter peripheral handler
PHUNLV = $E489 ;##rev2## vector to unlink peripheral handler
PHINIV = $E48C ;##rev2## vector to initialize peripheral handler
GPDVV = $E48F ;##rev2## generic parallel device handler vector
; NOTE: OS rom self-test labels are not included in this file
;-------------------------------------------------------------------------
; Some misc. stuff from the 400/800 rev.B source
;-------------------------------------------------------------------------
; THE FOLLOWING ARE IN BASIC CARTRIDGE:
SIN = $BD81 ;FR0 <- SIN (FR0) DEGFLG (0=RAD,6=DEG) CARRY
COS = $BD73 ;FR0 <- COS (FR0) CARRY
ATAN = $BE43 ;FR0 <- ATAN(FR0) CARRY
SQR = $BEB1 ;FR0 <- ROOT(FR0) CARRY
RADON = 0 ;INDICATES RADIANS
DEGON = 6 ;INDICATES DEGREES
ASCZER = '0 ;ASCII ZERO
COLON = $3A ;ASCII COLON
CR = $9B ;SYSTEM EOL (CARRIAGE RETURN)
;-------------------------------------------------------------------------
; 6502
;-------------------------------------------------------------------------
NMIVEC = $FFFA
RESVEC = $FFFC
IRQVEC = $FFFE
;-------------------------------------------------------------------------
; BASIC
;-------------------------------------------------------------------------
LOMEM = $80 ;2-byte low memory pointer
VNTP = $82 ;2-byte variable name table address
VNTD = $84 ;2-byte variable name table end + 1
VVTP = $86 ;2-byte variable value table
STMTAB = $88 ;2-byte statement table address
STMCUR = $8A ;2-byte current statement pointer
STARP = $8C ;2-byte string and array table pointer
RUNSTK = $8E ;2-byte runtime stack address
BMEMTOP = $90 ;2-byte top of memory pointer
STOPLN = $BA ;2-byte stopped line number
ERRSAVE = $C3 ;1-byte error code
PTABW = $C9 ;1-byte tab width
;-------------------------------------------------------------------------
; ATASCII CHARACTER DEFS
;-------------------------------------------------------------------------
ATCLR = $7D ;CLEAR SCREEN CHARACTER
ATRUB = $7E ;BACK SPACE (RUBOUT)
ATTAB = $7F ;TAB
ATEOL = $9B ;END-OF-LINE
ATDELL = $9C ;delete line
ATINSL = $9D ;insert line
ATCTAB = $9E ;clear TAB
ATSTAB = $9F ;set TAB
ATBEL = $FD ;CONSOLE BELL
ATDEL = $FE ;delete char.
ATINS = $FF ;insert char.
ATURW = $1C ;UP-ARROW
ATDRW = $1D ;DOWN-ARROW
ATLRW = $1E ;LEFT-ARROW
ATRRW = $1F ;RIGHT-ARROW
ATESC = $1B ;ESCAPE
;-------------------------------------------------------------------------
; OFFSETS INTO SECTSIZETAB (DIO functions)
;-------------------------------------------------------------------------
sst_flag = 0 ; length 1
sst_sectsize = 1 ; 2
sst_driveno = 3 ; 1 (drive #)
sst_size = 4 ; size of one entry
; if changed, adapt diopncls.s
;-------------------------------------------------------------------------
; OFFSETS INTO dio_phys_pos
;-------------------------------------------------------------------------
diopp_head = 0 ; head
diopp_track = 1 ; track / cylinder
diopp_sector = 3 ; sector
diopp_size = 5 ; size of structure
;-------------------------------------------------------------------------
; VALUES for dos_type
;-------------------------------------------------------------------------
SPARTADOS = 0
REALDOS = 1
BWDOS = 2
OSADOS = 3 ; OS/A+
XDOS = 4
ATARIDOS = 5
MYDOS = 6
NODOS = 255
; The DOSes with dos_type below or equal MAX_DOS_WITH_CMDLINE do support
; command line arguments.
MAX_DOS_WITH_CMDLINE = XDOS
;-------------------------------------------------------------------------
; XDOS defines (version 2.4, taken from xdos24.pdf)
;-------------------------------------------------------------------------
XOPT = $070B ; XDOS options
XCAR = $070C ; XDOS cartridge address (+ $70D)
XPAT = $086F ; XDOS bugfix and patch number
XVER = $0870 ; XDOS version number
XFILE = $087D ; XDOS filename buffer
XLINE = $0880 ; XDOS DUP input line
XGLIN = $0871 ; get line
XSKIP = $0874 ; skip parameter
;.ifdef __ATARIXL__
;.ifndef SHRAM_HANDLERS
;.import XMOVE_handler
;.endif
;.define XMOVE XMOVE_handler
;XMOVE_org = $0877 ; move filename
;.else
;XMOVE = $0877 ; move filename
;.endif
XGNUM = $087A ; get number
;-------------------------------------------------------------------------
; End of atari.inc
;-------------------------------------------------------------------------
;-------------------------------------------------------------------------
; ANTIC Address Equates
;-------------------------------------------------------------------------
; Read Addresses
VCOUNT = ANTIC + $0B ;vertical line counter
PENH = ANTIC + $0C ;light pen horizontal position
PENV = ANTIC + $0D ;light pen vertical position
NMIST = ANTIC + $0F ;NMI interrupt status
; Write Addresses
DMACTL = ANTIC + $00 ;DMA control
CHACTL = ANTIC + $01 ;character control
DLISTL = ANTIC + $02 ;low display list address
DLISTH = ANTIC + $03 ;high display list address
HSCROL = ANTIC + $04 ;horizontal scroll
VSCROL = ANTIC + $05 ;vertical scroll
PMBASE = ANTIC + $07 ;player-missile base address
CHBASE = ANTIC + $09 ;character base address
WSYNC = ANTIC + $0A ;wait for HBLANK synchronization
NMIEN = ANTIC + $0E ;NMI enable
NMIRES = ANTIC + $0F ;NMI interrupt reset
;-------------------------------------------------------------------------
; Antic opcodes
;-------------------------------------------------------------------------
; usage example:
;
; ScreenDL:
; .byte DL_BLK8
; .byte DL_BLK8
; .byte DL_CHR40x8x1 | DL_LMS | DL_DLI
; .word ScreenAlignment
; .byte DL_BLK1 | DL_DLI
; .byte DL_MAP320x1x1 | DL_LMS
; .word Screen
;
; .repeat 99
; .byte DL_MAP320x1x1
; .endrepeat
; .byte DL_MAP320x1x1 | DL_LMS
; .word Screen + 40 * 100 ; 100 lines a 40 byte, 'Screen' has to be aligned correctly!
; .repeat 92
; .byte DL_MAP320x1x1
; .endrepeat
;
; .byte DL_JVB
; absolute instructions (non mode lines)
DL_JMP = 1
DL_JVB = 65
; DL_BLKn display n empty lines (just background)
DL_BLK1 = 0
DL_BLK2 = 16
DL_BLK3 = 32
DL_BLK4 = 48
DL_BLK5 = 64
DL_BLK6 = 80
DL_BLK7 = 96
DL_BLK8 = 112
; absolute instructions (mode lines)
DL_CHR40x8x1 = 2 ; monochrome, 40 character & 8 scanlines per mode line (GR. 0)
DL_CHR40x10x1 = 3 ; monochrome, 40 character & 10 scanlines per mode line
DL_CHR40x8x4 = 4 ; colour, 40 character & 8 scanlines per mode line (GR. 12)
DL_CHR40x16x4 = 5 ; colour, 40 character & 16 scanlines per mode line (GR. 13)
DL_CHR20x8x2 = 6 ; colour (duochrome per character), 20 character & 8 scanlines per mode line (GR. 1)
DL_CHR20x16x2 = 7 ; colour (duochrome per character), 20 character & 16 scanlines per mode line (GR. 2)
DL_MAP40x8x4 = 8 ; colour, 40 pixel & 8 scanlines per mode line (GR. 3)
DL_MAP80x4x2 = 9 ; 'duochrome', 80 pixel & 4 scanlines per mode line (GR.4)
DL_MAP80x4x4 = 10 ; colour, 80 pixel & 4 scanlines per mode line (GR.5)
DL_MAP160x2x2 = 11 ; 'duochrome', 160 pixel & 2 scanlines per mode line (GR.6)
DL_MAP160x1x2 = 12 ; 'duochrome', 160 pixel & 1 scanline per mode line (GR.14)
DL_MAP160x2x4 = 13 ; 4 colours, 160 pixel & 2 scanlines per mode line (GR.7)
DL_MAP160x1x4 = 14 ; 4 colours, 160 pixel & 1 scanline per mode line (GR.15)
DL_MAP320x1x1 = 15 ; monochrome, 320 pixel & 1 scanline per mode line (GR.8)
; modifiers on mode lines...
DL_HSCROL = 16
DL_VSCROL = 32
DL_LMS = 64
; general modifier...
DL_DLI = 128
;-------------------------------------------------------------------------
; CTIA/GTIA Address Equates
;-------------------------------------------------------------------------
; Read/Write Addresses
CONSOL = GTIA + $1F ;console switches and speaker control
; Read Addresses
M0PF = GTIA + $00 ;missile 0 and playfield collision
M1PF = GTIA + $01 ;missile 1 and playfield collision
M2PF = GTIA + $02 ;missile 2 and playfield collision
M3PF = GTIA + $03 ;missile 3 and playfield collision
P0PF = GTIA + $04 ;player 0 and playfield collision
P1PF = GTIA + $05 ;player 1 and playfield collision
P2PF = GTIA + $06 ;player 2 and playfield collision
P3PF = GTIA + $07 ;player 3 and playfield collision
M0PL = GTIA + $08 ;missile 0 and player collision
M1PL = GTIA + $09 ;missile 1 and player collision
M2PL = GTIA + $0A ;missile 2 and player collision
M3PL = GTIA + $0B ;missile 3 and player collision
P0PL = GTIA + $0C ;player 0 and player collision
P1PL = GTIA + $0D ;player 1 and player collision
P2PL = GTIA + $0E ;player 2 and player collision
P3PL = GTIA + $0F ;player 3 and player collision
TRIG0 = GTIA + $10 ;joystick trigger 0
TRIG1 = GTIA + $11 ;joystick trigger 1
TRIG2 = GTIA + $12 ;cartridge interlock
TRIG3 = GTIA + $13 ;ACMI module interlock
PAL = GTIA + $14 ;##rev2## PAL/NTSC indicator
; Write Addresses
HPOSP0 = GTIA + $00 ;player 0 horizontal position
HPOSP1 = GTIA + $01 ;player 1 horizontal position
HPOSP2 = GTIA + $02 ;player 2 horizontal position
HPOSP3 = GTIA + $03 ;player 3 horizontal position
HPOSM0 = GTIA + $04 ;missile 0 horizontal position
HPOSM1 = GTIA + $05 ;missile 1 horizontal position
HPOSM2 = GTIA + $06 ;missile 2 horizontal position
HPOSM3 = GTIA + $07 ;missile 3 horizontal position
SIZEP0 = GTIA + $08 ;player 0 size
SIZEP1 = GTIA + $09 ;player 1 size
SIZEP2 = GTIA + $0A ;player 2 size
SIZEP3 = GTIA + $0B ;player 3 size
SIZEM = GTIA + $0C ;missile sizes
GRAFP0 = GTIA + $0D ;player 0 graphics
GRAFP1 = GTIA + $0E ;player 1 graphics
GRAFP2 = GTIA + $0F ;player 2 graphics
GRAFP3 = GTIA + $10 ;player 3 graphics
GRAFM = GTIA + $11 ;missile graphics
COLPM0 = GTIA + $12 ;player-missile 0 color/luminance
COLPM1 = GTIA + $13 ;player-missile 1 color/luminance
COLPM2 = GTIA + $14 ;player-missile 2 color/luminance
COLPM3 = GTIA + $15 ;player-missile 3 color/luminance
COLPF0 = GTIA + $16 ;playfield 0 color/luminance
COLPF1 = GTIA + $17 ;playfield 1 color/luminance
COLPF2 = GTIA + $18 ;playfield 2 color/luminance
COLPF3 = GTIA + $19 ;playfield 3 color/luminance
COLBK = GTIA + $1A ;background color/luminance
PRIOR = GTIA + $1B ;priority select
VDELAY = GTIA + $1C ;vertical delay
GRACTL = GTIA + $1D ;graphic control
HITCLR = GTIA + $1E ;collision clear
; Hue values
HUE_GREY = 0
HUE_GOLD = 1
HUE_GOLDORANGE = 2
HUE_REDORANGE = 3
HUE_ORANGE = 4
HUE_MAGENTA = 5
HUE_PURPLE = 6
HUE_BLUE = 7
HUE_BLUE2 = 8
HUE_CYAN = 9
HUE_BLUEGREEN = 10
HUE_BLUEGREEN2 = 11
HUE_GREEN = 12
HUE_YELLOWGREEN = 13
HUE_YELLOW = 14
HUE_YELLOWRED = 15
; Color defines, similar to c64 colors (untested)
GTIA_COLOR_BLACK = (HUE_GREY << 4)
GTIA_COLOR_WHITE = (HUE_GREY << 4 | 7 << 1)
GTIA_COLOR_RED = (HUE_REDORANGE << 4 | 1 << 1)
GTIA_COLOR_CYAN = (HUE_CYAN << 4 | 3 << 1)
GTIA_COLOR_VIOLET = (HUE_PURPLE << 4 | 4 << 1)
GTIA_COLOR_GREEN = (HUE_GREEN << 4 | 2 << 1)
GTIA_COLOR_BLUE = (HUE_BLUE << 4 | 2 << 1)
GTIA_COLOR_YELLOW = (HUE_YELLOW << 4 | 7 << 1)
GTIA_COLOR_ORANGE = (HUE_ORANGE << 4 | 5 << 1)
GTIA_COLOR_BROWN = (HUE_YELLOW << 4 | 2 << 1)
GTIA_COLOR_LIGHTRED = (HUE_REDORANGE << 4 | 6 << 1)
GTIA_COLOR_GRAY1 = (HUE_GREY << 4 | 2 << 1)
GTIA_COLOR_GRAY2 = (HUE_GREY << 4 | 3 << 1)
GTIA_COLOR_LIGHTGREEN = (HUE_GREEN << 4 | 6 << 1)
GTIA_COLOR_LIGHTBLUE = (HUE_BLUE << 4 | 6 << 1)
GTIA_COLOR_GRAY3 = (HUE_GREY << 4 | 5 << 1)
;-------------------------------------------------------------------------
; POKEY Address Equates
;-------------------------------------------------------------------------
; Read Addresses
POT0 = POKEY + $00 ;potentiometer 0
POT1 = POKEY + $01 ;potentiometer 1
POT2 = POKEY + $02 ;potentiometer 2
POT3 = POKEY + $03 ;potentiometer 3
POT4 = POKEY + $04 ;potentiometer 4
POT5 = POKEY + $05 ;potentiometer 5
POT6 = POKEY + $06 ;potentiometer 6
POT7 = POKEY + $07 ;potentiometer 7
ALLPOT = POKEY + $08 ;potentiometer port status
KBCODE = POKEY + $09 ;keyboard code
RANDOM = POKEY + $0A ;random number generator
SERIN = POKEY + $0D ;serial port input
IRQST = POKEY + $0E ;IRQ interrupt status
SKSTAT = POKEY + $0F ;serial port and keyboard status
; Write Addresses
AUDF1 = POKEY + $00 ;channel 1 audio frequency
AUDC1 = POKEY + $01 ;channel 1 audio control
AUDF2 = POKEY + $02 ;channel 2 audio frequency
AUDC2 = POKEY + $03 ;channel 2 audio control
AUDF3 = POKEY + $04 ;channel 3 audio frequency
AUDC3 = POKEY + $05 ;channel 3 audio control
AUDF4 = POKEY + $06 ;channel 4 audio frequency
AUDC4 = POKEY + $07 ;channel 4 audio control
AUDCTL = POKEY + $08 ;audio control
STIMER = POKEY + $09 ;start timers
SKRES = POKEY + $0A ;reset SKSTAT status
POTGO = POKEY + $0B ;start potentiometer scan sequence
SEROUT = POKEY + $0D ;serial port output
IRQEN = POKEY + $0E ;IRQ interrupt enable
SKCTL = POKEY + $0F ;serial port and keyboard control
Reference in New Issue View Git Blame Copy Permalink