mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 06:39:40 +02:00
Pecusx
632 lines
16 KiB
NASM
632 lines
16 KiB
NASM
;****************************************************************************
|
|
;* ATARI PERSONAL COMPUTER *
|
|
;* SYSTEM EQUATES *
|
|
;****************************************************************************
|
|
|
|
FAKEADDR EQU $0002
|
|
|
|
|
|
;
|
|
; OPERATING SYSTEM EQUATE FILE
|
|
;
|
|
; MODULE ORIGIN TABLE
|
|
;
|
|
; VECTOR TABLE
|
|
;
|
|
; HANDLER ENTRY POINTS ARE CALL-
|
|
; ED OUT IN THE FOLLOWING VECTOR
|
|
; TABLE. THESE ARE THE ADDRESSES
|
|
; MINUS ONE.
|
|
;
|
|
; EXAMPLE FOR EDITOR
|
|
;
|
|
; E400 OPEN
|
|
; 2 CLOSE
|
|
; 4 GET
|
|
; 6 PUT
|
|
; 8 STATUS
|
|
; A SPECIAL
|
|
; C JUMP TO POWER ON INIT
|
|
; F NOT USED
|
|
;
|
|
EDITRV EQU $E400 ;EDITOR
|
|
SCRENV EQU $E410 ;TV SCREEN
|
|
KEYBDV EQU $E420 ;KEYBOARD
|
|
PRINTV EQU $E430 ;PRINTER
|
|
CASETV EQU $E440 ;CASSETTE
|
|
;
|
|
; JUMP VECTOR TABLE
|
|
;
|
|
; THE FOLLOWING IS A TABLE OF
|
|
; JUMP INSTRUCTIONS TO VARIOUS
|
|
; ENTRY POINTS IN THE OPERATING
|
|
; SYSTEM
|
|
;
|
|
DISKIV EQU $E450 ;DISK INITIALIZATION
|
|
DSKINV EQU $E453 ;DISK INTERFACE
|
|
CIOV EQU $E456 ;CENTRAL I/O ROUTINE
|
|
SIOV EQU $E459 ;SERIAL I/O ROUTINE
|
|
SETVBV EQU $E45C ;SET SYSTEM TIMERS
|
|
SYSVBV EQU $E45F ;VBLANK CALCULATIONS
|
|
XITVBV EQU $E462 ;EXIT VBLANK
|
|
SIOINV EQU $E465 ;SIO INITIALIZATION
|
|
SENDEV EQU $E468 ;SEND ENABLE ROUTINE
|
|
INTINV EQU $E46B ;INTRPT HANDLER INIT
|
|
CIOINV EQU $E46E ;CIO INITIALIZATION
|
|
BLKBDV EQU $E471 ;BLACKBOARD MODE
|
|
WARMSV EQU $E474 ;WARM START VECTOR
|
|
COLDSV EQU $E477 ;COLD START VECTOR
|
|
RBLOKV EQU $E47A ;CASSETTE READ BLOCK
|
|
CSOPIV EQU $E47D ;CASSETTE INPUT OPEN
|
|
;
|
|
; VECTORS ADDED FOR 800XL
|
|
;
|
|
PUPDIV EQU $E480 ;POWER UP DISPLAY
|
|
SLFTSV EQU $E483 ;SELF TEST PROGRAM
|
|
PHENTV EQU $E486 ;UPLOADED HANDLER ENTER
|
|
PHULNV EQU $E489 ;UPLOADED HANDLER UNLINK
|
|
PHINIV EQU $E48C ;UPLOADED HANDLER INIT
|
|
;
|
|
; OPERATING SYSTEM EQUATES
|
|
;
|
|
; COMMAND CODES FOR IOCBS
|
|
;
|
|
OPEN EQU $03 ;OPEN FOR I/O
|
|
GETREC EQU $05 ;GET RECORD (TEXT)
|
|
GETCHR EQU $07 ;GET CHARACTER(S)
|
|
PUTREC EQU $09 ;PUT RECORD (TEXT)
|
|
PUTCHR EQU $0B ;PUT CHARACTER(S)
|
|
CLOSE EQU $0C ;CLOSE DEVICE
|
|
STATIS EQU $0D ;STATUS REQUEST
|
|
SPECIL EQU $0E ;SPECIAL ENTRY COMMAND
|
|
;
|
|
; SPECIAL ENTRY COMMANDS
|
|
;
|
|
DRAWLN EQU $11 ;DRAW LINE
|
|
FILLIN EQU $12 ;FILL
|
|
RENAME EQU $20 ;RENAME DISK FILE
|
|
DELETE EQU $21 ;DELETE DISK FILE
|
|
FORMAT EQU $22 ;FORMAT DISK
|
|
LOCKFL EQU $23 ;LOCK FILE
|
|
UNLOCK EQU $24 ;UNLOCK FILE
|
|
POINT EQU $25 ;POINT SECTOR
|
|
NOTE EQU $26 ;NOTE SECTOR
|
|
IOCFRE EQU $FF ;IOCB "FREE"
|
|
;
|
|
; AUX1 EQUATES
|
|
; () INDICATES WHICH DEVICES
|
|
;
|
|
APPEND EQU $01 ;WR APPEND(D)-SCN RD(E)
|
|
DIRECT EQU $02 ;OPEN DIRECTORY(D)
|
|
OPNIN EQU $04 ;OPEN FOR INPUT(ALL)
|
|
OPNOT EQU $08 ;OPEN FOR OUTPUT(ALL)
|
|
OPNINO EQU $0C ;OPEN INPUT&OUTPUT(ALL)
|
|
MXDMOD EQU $10 ;OPEN MIXED MODE(E,S)
|
|
INSCLR EQU $20 ;OPEN W/O CLEAR(E,S)
|
|
;
|
|
; DEVICE NAMES
|
|
;
|
|
SCREDT EQU 'E' ;SCREEN EDITOR (R/W)
|
|
KBD EQU 'K' ;KEYBOARD (R ONLY)
|
|
DISPLY EQU 'S' ;SCREEN DISPLAY (R/W)
|
|
PRINTR EQU 'P' ;PRINTER (W ONLY)
|
|
CASSET EQU 'C' ;CASSETTE (R/W)
|
|
RS232 EQU 'R' ;MODEM (R/W)
|
|
DISK EQU 'D' ;DISK (R/W)
|
|
;
|
|
;
|
|
;
|
|
; OPERATING SYSTEM STATUS CODES
|
|
;
|
|
SUCCES EQU $01 ;SUCCESSFUL OPERATION
|
|
BRKABT EQU $80 ;BREAK KEY ABORT
|
|
PRVOPN EQU $81 ;IOCB ALREADY OPEN
|
|
NONDEV EQU $82 ;NON-EXISTANT DEVICE
|
|
WRONLY EQU $83 ;IOCB OPEN FOR W ONLY
|
|
NVALID EQU $84 ;INVALID COMMAND
|
|
NOTOPN EQU $85 ;DEVICE/FILE NOT OPEN
|
|
BADIOC EQU $86 ;INVALID IOCB #
|
|
RDONLY EQU $87 ;IOCB OPEN FOR R ONLY
|
|
EOFERR EQU $88 ;END OF FILE
|
|
TRNRCD EQU $89 ;TRUNCATED RECORD
|
|
TIMOUT EQU $8A ;PERIPHERAL TIMEOUT
|
|
DNACK EQU $8B ;DEVICE NO ACKNOWLEDGE
|
|
FRMERR EQU $8C ;SERIAL BUS FRAME ERR
|
|
CRSROR EQU $8D ;CURSOR OVERRANGE
|
|
OVRRUN EQU $8E ;SERIAL DATA OVERRUN
|
|
CHKERR EQU $8F ;SERIAL CHECKSUM ERR
|
|
DERRER EQU $90 ;PERIPHRAL DEVICE ERR
|
|
BADMOD EQU $91 ;BAD SCREEN MODE #
|
|
FNCNOT EQU $92 ;NONEXISTANT FUNCTION
|
|
SCRMEM EQU $93 ;SCREEN MEM TOO SMALL
|
|
;
|
|
; PAGE ZERO RAM ASSIGNMENTS
|
|
;
|
|
LNFLG EQU $00 ;LINBUG RAM
|
|
NGFLAG EQU $01 ;POWER-UP SELF-TEST FLAG
|
|
;
|
|
; THESE LOCATIONS NOT CLEARED
|
|
;
|
|
CASINI EQU $02 ;CASSETTE INIT LOC
|
|
RAMLO EQU $04 ;RAM POINTER MEM TST
|
|
TRAMSZ EQU $06 ;TEMP REG RAM SIZE
|
|
TSTDAT EQU $07 ;RAM TEST DATA REG
|
|
;
|
|
;CLEARED ON COLDSTART ONLY
|
|
;
|
|
WARMST EQU $08 ;WARM START FLAG
|
|
BOOTQ EQU $09 ;SUCCESSFUL BOOT FLG
|
|
DOSVEC EQU $0A ;DOS START VECTOR
|
|
DOSINI EQU $0C ;DOS INIT ADDRESS
|
|
APPMHI EQU $0E ;APPL MEM HI LIMIT
|
|
;
|
|
;CLEARED ON COLD OR WARM START
|
|
;
|
|
POKMSK EQU $10 ;MASK POKEY IRQ
|
|
BRKKEY EQU $11 ;BREAK KEY FLAG
|
|
RTCLOK EQU $12 ;REAL TIME CLOCK
|
|
BUFADR EQU $15 ;INDIRECT BUFF ADDR
|
|
ICCOMT EQU $17 ;COMMAND FOR VECTOR
|
|
DSKFMS EQU $18 ;FMS POINTER
|
|
DSKUTL EQU $1A ;DISK UTILITIES PTR
|
|
ABUFPT EQU $1C ;RESERVED
|
|
ICHIDZ EQU $20 ;HANDLER INDEX #
|
|
ICDNOZ EQU $21 ;DEVICE NUMBER
|
|
ICCOMZ EQU $22 ;COMMAND CODE
|
|
ICSTAZ EQU $23 ;STATUS RETURN
|
|
ICBALZ EQU $24 ;BUFFER ADDRESS
|
|
ICBAHZ EQU $25
|
|
ICPTLZ EQU $26 ;PUT BYTE ROUTINE-1
|
|
ICPTHZ EQU $27
|
|
ICBLLZ EQU $28 ;BUFFER LENGTH
|
|
ICBLHZ EQU $29
|
|
ICAX1Z EQU $2A ;AUXILIARY BYTES
|
|
ICAX2Z EQU $2B
|
|
ICSPRZ EQU $2C ;SPARE BYTES
|
|
ICIDNO EQU $2E ;IOCB # X 16
|
|
CIOCHR EQU $2F ;CIO CHARACTER BYTE
|
|
STATUS EQU $30 ;INTERNAL STATUS
|
|
CHKSUM EQU $31 ;CHECKSUM
|
|
BUFRLO EQU $32 ;DATA BUFFER LO BYTE
|
|
BUFRHI EQU $33 ;DATA BUFFER HI BYTE
|
|
BFENLO EQU $34 ;NEXT BYTE PAST DATA
|
|
BFENHI EQU $35 ;BUFFER (HI & LO)
|
|
LTEMP EQU $36 ;LOADER TEMP
|
|
BUFRFL EQU $38 ;DATA BUFFR FULL FLG
|
|
RECVDN EQU $39 ;RECIEVE DONE FLAG
|
|
XMTDON EQU $3A ;XMIT DONE FLAG
|
|
CHKSNT EQU $3B ;CHECKSUM SENT FLAG
|
|
NOCKSM EQU $3C ;NO CHKSUM SENT FLAG
|
|
;BPTR EQU $3D ;CASSETTE DATA INDEX
|
|
FTYPE EQU $3E ;INTERRECORD GAP TYPE
|
|
FEOF EQU $3F ;END OF FILE FLAG
|
|
FREQ EQU $40 ;BEEP COUNT
|
|
SOUNDR EQU $41 ;NOISY I/O FLAG
|
|
CRITIC EQU $42 ;CRITICAL MODE
|
|
FMSZPG EQU $43 ;FMS ZERO PAGE
|
|
ZCHAIN EQU $4A ;HANDLER LOADER TEMP
|
|
DSTAT EQU $4C ;DISPLAY STATUS
|
|
ATRACT EQU $4D ;ATTRACT FLAG
|
|
DRKMSK EQU $4E ;DARK ATTRACT MASK
|
|
COLRSH EQU $4F ;COLOR SHIFTER
|
|
TMPCHR EQU $50 ;TEMP STORAGE
|
|
HOLD1 EQU $51 ;TEMP STORAGE
|
|
LMARGN EQU $52 ;LEFT MARGIN (1)
|
|
RMARGN EQU $53 ;RIGHT MARGIN (38)
|
|
ROWCRS EQU $54 ;CURSOR COUNTERS
|
|
COLCRS EQU $55
|
|
DINDEX EQU $57 ;DISPLAY MODE #
|
|
SAVMSC EQU $58 ;SCREEN MEM ADDR
|
|
OLDROW EQU $5A ;DRAW START POSIT
|
|
OLDCOL EQU $5B
|
|
OLDCHR EQU $5D ;DATA UNDER CURSOR
|
|
OLDADR EQU $5E ;CURSOR MEM ADDR
|
|
FKDEF EQU $60 ;FUNC KEY DEFEAT POINTER
|
|
PALNTS EQU $62 ;PAL/NTSC FLAG
|
|
LOGCOL EQU $63 ;COL IN LOGICAL LINE
|
|
ADRESS EQU $64 ;TEMP STORAGE
|
|
MLTEMP EQU $66 ;TEMP STORAGE
|
|
SAVADR EQU $68 ;TEMP STORAGE
|
|
RAMTOP EQU $6A ;AVAILABLE RAM PAGES
|
|
BUFCNT EQU $6B ;BUFFER COUNT
|
|
BUFSTR EQU $6C ;EDITOR GETCH POINTR
|
|
BITMSK EQU $6E ;BIT MASK
|
|
SHFAMT EQU $6F ;PIXEL JUSTIFICATION
|
|
ROWAC EQU $70 ;ROW ACCUMULATOR
|
|
COLAC EQU $72 ;COLUMN ACCUMULATOR
|
|
ENDPT EQU $74 ;LINE LENGTH
|
|
DELTAR EQU $76 ;DELTA ROW
|
|
DELTAC EQU $77 ;DELTA COLUMN
|
|
KEYDEF EQU $79 ;KEY DEFEAT POINTER
|
|
SWPFLG EQU $7B ;SPLIT SCN CURS CNTL
|
|
HOLDCH EQU $7C ;KB CHAR TEMP HOLD
|
|
INSDAT EQU $7D ;TEMP STORAGE
|
|
COUNTR EQU $7E ;DRAW ITERATION CNT
|
|
;
|
|
; 80-FF ARE RESERVED FOR USER
|
|
;
|
|
; NOTE: SEE FLOATING POINT
|
|
; SUBROUTINE AREA FOR ZERO
|
|
; PAGE CELLS
|
|
;
|
|
; PAGE 1 - HARDWARE STACK
|
|
;
|
|
; PAGE TWO RAM ASSIGNMENTS
|
|
;
|
|
VDSLST EQU FAKEADDR ;DSP LIST NMI VECTOR
|
|
VPRCED EQU FAKEADDR ;PROCEED IRQ VECTOR
|
|
VINTER EQU FAKEADDR ;INTERUPT IRQ VECTOR
|
|
VBREAK EQU FAKEADDR ;BRK INST IRQ VECTOR
|
|
VKEYBD EQU FAKEADDR ;POKEY KB IRQ VECTOR
|
|
VSERIN EQU FAKEADDR ;POKEY INPUT RDY IRQ
|
|
VSEROR EQU FAKEADDR ;POKEY OUTPUT RDY
|
|
VSEROC EQU FAKEADDR ;POKEY OUTPUT DONE
|
|
VTIMR1 EQU FAKEADDR ;POKEY TIMER 1 IRQ
|
|
VTIMR2 EQU FAKEADDR ;POKEY TIMER 2 IRQ
|
|
VTIMR4 EQU FAKEADDR ;POKEY TIMER 4 IRQ
|
|
VIMIRQ EQU FAKEADDR ;IMMED IRQ VECTOR
|
|
CDTMV1 EQU FAKEADDR ;COUNT DOWN TIMER 1
|
|
CDTMV2 EQU FAKEADDR ;COUNT DOWN TIMER 2
|
|
CDTMV3 EQU FAKEADDR ;COUNT DOWN TIMER 3
|
|
CDTMV4 EQU FAKEADDR ;COUNT DOWN TIMER 4
|
|
CDTMV5 EQU FAKEADDR ;COUNT DOWN TIMER 5
|
|
VVBLKI EQU FAKEADDR ;IMM VBLK NMI VECTOR
|
|
VVBLKD EQU FAKEADDR ;DEF VBLK NMI VECTOR
|
|
CDTMA1 EQU FAKEADDR ;CDTMV1 JSR ADDRESS
|
|
CDTMA2 EQU FAKEADDR ;CDTMV2 JSR ADDRESS
|
|
CDTMF3 EQU FAKEADDR ;CDTMV3 FLAG
|
|
SRTIMR EQU FAKEADDR ;SOFTWARE REPEAT TMR
|
|
CDTMF4 EQU FAKEADDR ;CDTMV4 FLAG
|
|
INTEMP EQU FAKEADDR ;IAN'S TEMP
|
|
CDTMF5 EQU FAKEADDR ;CDTMV5 FLAG
|
|
DMACTLS EQU FAKEADDR ;SAVE DMACTL REG
|
|
DLPTRS EQU FAKEADDR ;SAVE DISP LIST LO
|
|
;SDLSTH EQU $0231 ;SAVE DISP LIST HI
|
|
SSKCTL EQU FAKEADDR ;SKCTL REGISTER RAM
|
|
LCOUNT EQU FAKEADDR ;LOADER TEMP
|
|
LPENH EQU FAKEADDR ;LIGHT PEN HORIZONTAL
|
|
LPENV EQU FAKEADDR ;LIGHT PEN VERTICAL
|
|
BRKKY EQU FAKEADDR ;BREAK KEY VECTOR
|
|
RELADR EQU FAKEADDR ;LOADER REL ADDR
|
|
CDEVIC EQU FAKEADDR ;COMMAND BUFFER-DEV
|
|
CCOMND EQU FAKEADDR ;COMMAND BUFFER-CMND
|
|
CAUX1 EQU FAKEADDR ;COMMAND BUFFER AUX1
|
|
CAUX2 EQU FAKEADDR ;COMMAND BUFFER AUX2
|
|
;TEMP EQU $023E ;TEMPORARY RAM CELL
|
|
ERRFLG EQU FAKEADDR ;DEVICE ERROR FLAG
|
|
DFLAGS EQU FAKEADDR ;DISK FLAGS(SECTOR1)
|
|
DBSECT EQU FAKEADDR ;# DISK BOOT SECTORS
|
|
BOOTAD EQU FAKEADDR ;DISK BOOT ADDRESS
|
|
COLDST EQU FAKEADDR ;COLDSTART FLAG 1=CS
|
|
RECLEN EQU FAKEADDR ;LOADER LENGTH
|
|
DSKTIM EQU FAKEADDR ;DISK TIME OUT REG
|
|
VSFLAG EQU FAKEADDR ;FINE SCROLL TEMP
|
|
KEYDIS EQU FAKEADDR ;KEY DISABLE FLAG
|
|
FINE EQU FAKEADDR ;FINE SCROLL ENABLE(A1200)
|
|
GPRIOR EQU FAKEADDR ;GLOBAL PRIORITY
|
|
PADDL0 EQU FAKEADDR ;POT 0 RAM CELL
|
|
PADDL1 EQU FAKEADDR
|
|
PADDL2 EQU FAKEADDR
|
|
PADDL3 EQU FAKEADDR
|
|
STICK0 EQU FAKEADDR ;JOYSTICK 0 RAM CELL
|
|
STICK1 EQU FAKEADDR
|
|
PTRIG0 EQU FAKEADDR ;PADDLE TRIGGER 0
|
|
PTRIG1 EQU FAKEADDR
|
|
PTRIG2 EQU FAKEADDR
|
|
PTRIG3 EQU FAKEADDR
|
|
STRIG0 EQU FAKEADDR ;JOYSTICK TRIGGER 0
|
|
STRIG1 EQU FAKEADDR
|
|
HIBYTE EQU FAKEADDR ;LOADER
|
|
WMODE EQU FAKEADDR ;CASSETTE R/W MODE
|
|
BLIM EQU FAKEADDR ;CASSETTE RECORD SIZE
|
|
IMASK EQU FAKEADDR
|
|
JVECK EQU FAKEADDR ;JUMP VECTOR
|
|
NEWADR EQU FAKEADDR ;LOADER NEW ADDRESS
|
|
TXTROW EQU FAKEADDR ;TEXT ROWCRS
|
|
TXTCOL EQU FAKEADDR ;TEXT COLCRS
|
|
TINDEX EQU FAKEADDR ;TEXT INDEX
|
|
TXTMSC EQU FAKEADDR ;TEXT WINDOW MEM ADD
|
|
TXTOLD EQU FAKEADDR ;TEXT OLDROW & COL
|
|
CRETRY EQU FAKEADDR ;# COMMAND RETRIES
|
|
HOLD3 EQU FAKEADDR
|
|
SUBTMP EQU FAKEADDR
|
|
HOLD2 EQU FAKEADDR
|
|
DMASK EQU FAKEADDR ;PIXEL LOCATION MASK
|
|
TMPLBT EQU FAKEADDR
|
|
ESCFLG EQU FAKEADDR ;ESCAPE FLAG
|
|
TABMAP EQU FAKEADDR ;TAB STOP MAP
|
|
LOGMAP EQU FAKEADDR ;LINE START BIT MAP
|
|
INVFLG EQU FAKEADDR ;INVERSE VIDEO FLAG
|
|
FILFLG EQU FAKEADDR ;FILL FLAG FOR DRAW
|
|
TMPROW EQU FAKEADDR
|
|
TMPCOL EQU FAKEADDR
|
|
SCRFLG EQU FAKEADDR ;SET IF SCROLLING
|
|
HOLD4 EQU FAKEADDR ;TEMP USED BY DRAW
|
|
DRETRY EQU FAKEADDR ;# OF DEVICE RETRIES
|
|
SHFLOK EQU FAKEADDR ;SHIFT/CTL LOCK FLAG
|
|
BOTSCR EQU FAKEADDR ;BOTTOM OF SCREEN
|
|
PCOLR0 EQU FAKEADDR ;P0 COLOR
|
|
PCOLR1 EQU FAKEADDR ;P1 COLOR
|
|
PCOLR2 EQU FAKEADDR ;P2 COLOR
|
|
PCOLR3 EQU FAKEADDR ;P3 COLOR
|
|
COLOR0 EQU FAKEADDR ;COLOR 0
|
|
COLOR1 EQU FAKEADDR
|
|
COLOR2 EQU FAKEADDR
|
|
COLOR3 EQU FAKEADDR
|
|
COLOR4 EQU FAKEADDR
|
|
COLBAKS EQU COLOR4
|
|
CHBAS EQU FAKEADDR ;CHBAS REGISTER RAM
|
|
;
|
|
; COLLEEN MNEMONICS
|
|
;
|
|
; ---------------------------------------------------------------------------
|
|
POKEY EQU FAKEADDR
|
|
; ---------------------------------------------------------------------------
|
|
;
|
|
; READ
|
|
;
|
|
POT0 EQU POKEY+$00
|
|
POT1 EQU POKEY+$00
|
|
POT2 EQU POKEY+$00
|
|
POT3 EQU POKEY+$00
|
|
POT4 EQU POKEY+$00
|
|
POT5 EQU POKEY+$00
|
|
POT6 EQU POKEY+$00
|
|
POT7 EQU POKEY+$00
|
|
ALLPOT EQU POKEY+$00
|
|
KBCODE EQU POKEY+$00
|
|
; !!!!!
|
|
;RANDOM EQU POKEY+$00
|
|
;
|
|
POTGO EQU POKEY+$00
|
|
SERIN EQU POKEY+$00
|
|
IRQST EQU POKEY+$00
|
|
SKSTAT EQU POKEY+$00
|
|
;
|
|
; WRITE
|
|
;
|
|
AUDF1 EQU POKEY+$00
|
|
AUDC1 EQU POKEY+$00
|
|
AUDF2 EQU POKEY+$00
|
|
AUDC2 EQU POKEY+$00
|
|
AUDF3 EQU POKEY+$00
|
|
AUDC3 EQU POKEY+$00
|
|
AUDF4 EQU POKEY+$00
|
|
AUDC4 EQU POKEY+$00
|
|
AUDCTL EQU POKEY+$00
|
|
STIMER EQU POKEY+$00
|
|
SKRES EQU POKEY+$00
|
|
SEROUT EQU POKEY+$00
|
|
IRQEN EQU POKEY+$00
|
|
SKCTL EQU POKEY+$00
|
|
;
|
|
;
|
|
;
|
|
; ---------------------------------------------------------------------------
|
|
GTIA EQU FAKEADDR
|
|
; ---------------------------------------------------------------------------
|
|
;
|
|
; WRITE
|
|
;
|
|
HPOSP0 EQU GTIA+$00
|
|
HPOSP1 EQU GTIA+$00
|
|
HPOSP2 EQU GTIA+$00
|
|
HPOSP3 EQU GTIA+$00
|
|
HPOSM0 EQU GTIA+$00
|
|
HPOSM1 EQU GTIA+$00
|
|
HPOSM2 EQU GTIA+$00
|
|
HPOSM3 EQU GTIA+$00
|
|
SIZEP0 EQU GTIA+$00
|
|
SIZEP1 EQU GTIA+$00
|
|
SIZEP2 EQU GTIA+$00
|
|
SIZEP3 EQU GTIA+$00
|
|
SIZEM EQU GTIA+$00
|
|
GRAFP0 EQU GTIA+$00
|
|
GRAFP1 EQU GTIA+$00
|
|
GRAFP2 EQU GTIA+$00
|
|
GRAFP3 EQU GTIA+$00
|
|
GRAFM EQU GTIA+$00
|
|
COLPM0 EQU GTIA+$00
|
|
COLPM1 EQU GTIA+$00
|
|
COLPM2 EQU GTIA+$00
|
|
COLPM3 EQU GTIA+$00
|
|
COLPF0 EQU GTIA+$00
|
|
COLPF1 EQU GTIA+$00
|
|
COLPF2 EQU GTIA+$00
|
|
COLPF3 EQU GTIA+$00
|
|
COLBAK EQU GTIA+$00
|
|
PRIOR EQU GTIA+$00
|
|
VDELAY EQU GTIA+$00
|
|
GRACTL EQU GTIA+$00
|
|
HITCLR EQU GTIA+$00
|
|
CONSOL EQU GTIA+$00
|
|
;
|
|
; READ
|
|
;
|
|
M0PF EQU GTIA+$00
|
|
M1PF EQU GTIA+$00
|
|
M2PF EQU GTIA+$00
|
|
M3PF EQU GTIA+$00
|
|
P0PF EQU GTIA+$00
|
|
P1PF EQU GTIA+$00
|
|
P2PF EQU GTIA+$00
|
|
P3PF EQU GTIA+$00
|
|
M0PL EQU GTIA+$00
|
|
M1PL EQU GTIA+$00
|
|
M2PL EQU GTIA+$00
|
|
M3PL EQU GTIA+$00
|
|
P0PL EQU GTIA+$00
|
|
P1PL EQU GTIA+$00
|
|
P2PL EQU GTIA+$00
|
|
P3PL EQU GTIA+$00
|
|
TRIG0 EQU GTIA+$00
|
|
TRIG1 EQU GTIA+$00
|
|
TRIG2 EQU GTIA+$00
|
|
TRIG3 EQU GTIA+$00
|
|
PAL EQU GTIA+$00
|
|
;
|
|
;
|
|
; ---------------------------------------------------------------------------
|
|
ANTIC EQU FAKEADDR
|
|
; ---------------------------------------------------------------------------
|
|
;
|
|
DMACTL EQU ANTIC+$00
|
|
CHACTL EQU ANTIC+$00
|
|
DLPTR EQU ANTIC+$00
|
|
;DLISTH EQU ANTIC+$00
|
|
HSCROL EQU ANTIC+$00
|
|
VSCROL EQU ANTIC+$00
|
|
PMBASE EQU ANTIC+$00
|
|
CHBASE EQU ANTIC+$00
|
|
WSYNC EQU ANTIC+$00
|
|
; !!!!
|
|
VCOUNT EQU ANTIC+$00
|
|
; ----
|
|
PENH EQU ANTIC+$00
|
|
PENV EQU ANTIC+$00
|
|
NMIEN EQU ANTIC+$00
|
|
NMIRES EQU ANTIC+$00
|
|
NMIST EQU ANTIC+$00
|
|
;
|
|
;
|
|
; ---------------------------------------------------------------------------
|
|
PIA EQU FAKEADDR
|
|
; ---------------------------------------------------------------------------
|
|
;
|
|
PORTA EQU PIA+0
|
|
PORTB EQU PIA+0
|
|
PACTL EQU PIA+0
|
|
PBCTL EQU PIA+0
|
|
;
|
|
; ---------------------------------------------------------------------------
|
|
; Atari ANTIC chip display list equates
|
|
; ---------------------------------------------------------------------------
|
|
;
|
|
JUMP EQU $01 ; display list jump instruction (3 byte)
|
|
JVB EQU $41 ; display list jump and wait for vblank instruction (3)
|
|
;
|
|
SCH EQU $10 ; display list horizontal scrolling
|
|
SCV EQU $20 ; display list vertical scrolling
|
|
LMS EQU $40 ; display list load memory scan instruction (3 byte)
|
|
DLII EQU $80 ; display list interrupt instruction
|
|
;
|
|
SKIP1 EQU $00 ; display list skip 1 scan line instruction
|
|
SKIP2 EQU $10 ; display list skip 2 scan lines instruction
|
|
SKIP3 EQU $20 ; display list skip 3 scan lines instruction
|
|
SKIP4 EQU $30 ; display list skip 4 scan lines instruction
|
|
SKIP5 EQU $40 ; display list skip 5 scan lines instruction
|
|
SKIP6 EQU $50 ; display list skip 6 scan lines instruction
|
|
SKIP7 EQU $60 ; display list skip 7 scan lines instruction
|
|
SKIP8 EQU $70 ; display list skip 8 scan lines instruction
|
|
;
|
|
MODE2 EQU $02 ; display list mode 2
|
|
MODE4 EQU $04 ; display list mode 4
|
|
MODE8 EQU $08 ; display list mode 8
|
|
MODEE EQU $0E ; display list mode E
|
|
MODEF EQU $0F ; display list mode F
|
|
; ---------------------------------------------------------------------------
|
|
; ENUMS
|
|
; ---------------------------------------------------------------------------
|
|
|
|
.enum @dmactl
|
|
blank = %00
|
|
narrow = %01
|
|
standard= %10
|
|
wide = %11
|
|
missiles= %100
|
|
players = %1000
|
|
lineX1 = %10000
|
|
lineX2 = %00000
|
|
dma = %100000
|
|
.ende
|
|
|
|
scr48 = @dmactl(wide|dma|players|missiles|lineX1)
|
|
scr40 = @dmactl(standard|dma|players|missiles|lineX1)
|
|
scr32 = @dmactl(narrow|dma|players|missiles|lineX1)
|
|
|
|
.enum @pmcntl
|
|
missiles= %1
|
|
players = %10
|
|
trigs = %100
|
|
.ende
|
|
|
|
.enum @gtictl
|
|
prior0 = %0
|
|
prior1 = %1
|
|
prior2 = %10
|
|
prior4 = %100
|
|
prior8 = %1000
|
|
ply5 = %10000 ; Fifth Player Enable
|
|
mlc = %100000 ; Multiple Color Player Enable
|
|
mode9 = %01000000
|
|
mode10 = %10000000
|
|
mode11 = %11000000
|
|
.ende
|
|
; ---------------------------------------------------------------------------
|
|
; KBCODEs
|
|
; ---------------------------------------------------------------------------
|
|
.enum @kbcode
|
|
_none = 255
|
|
_esc = 28
|
|
_1 = 31
|
|
_2 = 30
|
|
_3 = 26
|
|
_4 = 24
|
|
_5 = 29
|
|
_6 = 27
|
|
_7 = 51
|
|
_8 = 53
|
|
_9 = 48
|
|
_0 = 50
|
|
_lt = 54
|
|
_gt = 55
|
|
_del = 52
|
|
_tab = 44
|
|
_Q = 47
|
|
_W = 46
|
|
_E = 42
|
|
_R = 40
|
|
_T = 45
|
|
_Y = 43
|
|
_U = 11
|
|
_I = 13
|
|
_O = 8
|
|
_P = 10
|
|
_min = 14
|
|
_up = 14 ; cursor function
|
|
_eq = 15
|
|
_down = 15 ; cursor function
|
|
_ret = 12
|
|
_A = 63
|
|
_S = 62
|
|
_D = 58
|
|
_F = 56
|
|
_G = 61
|
|
_H = 57
|
|
_J = 1
|
|
_K = 5
|
|
_L = 0
|
|
_semicolon = 2
|
|
_plus = 6
|
|
_left = 6 ; cursor function
|
|
_asterisk = 7
|
|
_right = 7 ; cursor function
|
|
_caps = 60
|
|
_Z = 23
|
|
_X = 22
|
|
_C = 18
|
|
_V = 16
|
|
_B = 21
|
|
_N = 36
|
|
_M = 37
|
|
_comma = 32
|
|
_dot = 34
|
|
_slash = 38
|
|
_atari = 39
|
|
_help = 17
|
|
_F1 = 3
|
|
_F2 = 4
|
|
_F3 = 19
|
|
_F4 = 20
|
|
_space = 33
|
|
.ende |