]> git.sur5r.net Git - cc65/blob - asminc/atari.inc
Merge pull request #249 from polluks/master
[cc65] / asminc / atari.inc
1 ;-------------------------------------------------------------------------
2 ; Atari System Equates
3 ; by Freddy Offenga, Christian Groessler, and Christian Krueger
4 ;
5 ; References:
6 ; - Atari 400/800 OS rev.B source code, Atari 1979
7 ; - Atari OS manual - XL addendum
8 ; - Atari XL/XE rev.2 source code, Atari 1984
9 ; - Mapping the Atari - revised edition, Ian Chadwick 1985
10 ;
11 ; ##old##       old OS rev.B label - moved or deleted
12 ; ##1200xl##    new label introduced in 1200XL OS (rev.10/11)
13 ; ##rev2##      new label introduced in XL/XE OS rev.2
14 ;-------------------------------------------------------------------------
15
16 ;-------------------------------------------------------------------------
17 ; Configuration Equates
18 ;-------------------------------------------------------------------------
19
20 MAXDEV  = 33            ;offset to last possible entry of HATABS
21 IOCBSZ  = 16            ;length of IOCB
22
23 SEIOCB  = 0*IOCBSZ      ;##rev2## screen editor IOCB index
24 MAXIOC  = 8*IOCBSZ      ;first invalid IOCB index
25
26 DSCTSZ  = 128           ;##rev2## disk sector size
27
28 LEDGE   = 2             ;left edge
29 REDGE   = 39            ;right edge
30
31 INIML   = $0700         ;##rev2## initial MEMLO
32
33 ICSORG  = $CC00         ;##rev2## international character set origin
34 DCSORG  = $E000         ;##rev2## domestic character set origin
35
36 ; IOCB Command Code Equates
37
38 OPEN    = $03           ;open
39 GETREC  = $05           ;get record
40 GETCHR  = $07           ;get character(s)
41 PUTREC  = $09           ;put record
42 PUTCHR  = $0B           ;put character(s)
43 CLOSE   = $0C           ;close
44 STATIS  = $0D           ;status
45 SPECIL  = $0E           ;special
46
47 ; DOS IOCB command codes
48
49 RENAME  = $20           ;rename disk file
50 DELETE  = $21           ;delete disk file
51 LOCKFL  = $23           ;lock file (set to read-only)
52 UNLOCK  = $24           ;unlock file
53 POINT   = $25           ;point sector
54 NOTE    = $26           ;note sector
55 GETFL   = $27           ;get file length
56 CHDIR_MYDOS     = $29   ;change directory (MyDOS)
57 MKDIR   = $2A           ;make directory (MyDOS/SpartaDOS)
58 RMDIR   = $2B           ;remove directory (SpartaDOS)
59 CHDIR_SPDOS     = $2C   ;change directory (SpartaDOS)
60 FORMAT  = $FE           ;format
61
62 GETCWD  = $30           ;get current directory (MyDOS/SpartaDOS)
63
64 ; Special Entry Command Equates
65 ; DOS Commands
66 ; Command line table, Index values for (DOSVEC),Y -- COMTAB
67 ; Compatible with OS/A+, DOS XL and SpartaDOS
68
69 COMTAB  = 0             ;DOS entry jump vector
70 ZCRNAME = 3             ;file name crunch routine jump vector
71 BUFOFF  = 10            ;next parameter buffer offset
72 COMFNAM = 33            ;destination buffer for crunch routine
73 LBUF    = 63            ;command line input buffer
74
75 ; Screen IOCB Commands
76
77 DRAWLN  = $11           ;draw line
78 FILLIN  = $12           ;draw line with right fill
79
80 ; ICAX1 Auxiliary Byte 1 Equates
81
82 APPEND  = $01           ;open write append (D:)
83 DIRECT  = $02           ;open for directory access (D:)
84 OPNIN   = $04           ;open for input (all devices)
85 OPNOT   = $08           ;open for output (all devices)
86 MXDMOD  = $10           ;open for mixed mode (E:, S:)
87 INSCLR  = $20           ;open for input without clearing screen
88
89 ; Device Code Equates
90
91 CASSET  = 'C'           ;cassette
92 DISK    = 'D'           ;disk
93 SCREDT  = 'E'           ;screen editor
94 KBD     = 'K'           ;keyboard
95 PRINTR  = 'P'           ;printer
96 DISPLY  = 'S'           ;screen display
97
98 ; SIO Command Code Equates
99
100 SIO_FORMAT   = $21      ;format disk (default density)
101 SIO_FORMATS  = $22      ;1050: format medium density
102 SIO_CONFIG   = $44      ;configure drive
103 SIO_CONFIGSF = $4B      ;slow/fast configure drive??
104 SIO_RDPERCOM = $4E      ;read PERCOM block (XF551)
105 SIO_WRPERCOM = $4F      ;write PERCOM block (XF551)
106 SIO_WRITE    = $50      ;write sector
107 SIO_READ     = $52      ;read sector
108 SIO_STAT     = $53      ;get status information
109 SIO_VERIFY   = $56      ;verify sector 
110 SIO_WRITEV   = $57      ;write sector with verify
111 SIO_WRITETRK = $60      ;write track (Speedy)
112 SIO_READTRK  = $62      ;read track (Speedy)
113
114 ; SIO Status Code (DSTATS)
115 ; Input: data direction
116 ;     Bit #7 - W (write operation)
117 ;         #6 - R (read operation)
118 ; Output: status code
119 ;     $01 (001) -- OPERATION COMPLETE (NO ERRORS)
120 ;     $8A (138) -- DEVICE TIMEOUT (DOESN'T RESPOND)
121 ;     $8B (139) -- DEVICE NAK
122 ;     $8C (140) -- SERIAL BUS INPUT FRAMING ERROR
123 ;     $8E (142) -- SERIAL BUS DATA FRAME OVERRUN ERROR
124 ;     $8F (143) -- SERIAL BUS DATA FRAME CHECKSUM ERROR
125 ;     $90 (144) -- DEVICE DONE ERROR
126
127 ; Character and Key Code Equates
128
129 CLS     = $7D           ;##rev2## clear screen
130 EOL     = $9B           ;end of line (RETURN)
131
132 HELP    = $11           ;##1200xl## key code for HELP
133 CNTLF1  = $83           ;##1200xl## key code for CTRL-F1
134 CNTLF2  = $84           ;##1200xl## key code for CTRL-F2
135 CNTLF3  = $93           ;##1200xl## key code for CTRL-F3
136 CNTLF4  = $94           ;##1200xl## key code for CTRL-F4
137 CNTL1   = $9F           ;##1200xl## key code for CTRL-1
138
139 ; Status Code Equates
140
141 SUCCES  = 1             ;($01) succesful operation
142
143 BRKABT  = 128           ;($80) BREAK key abort
144 PRVOPN  = 129           ;($81) IOCB already open error
145 NONDEV  = 130           ;($82) nonexistent device error
146 WRONLY  = 131           ;($83) IOCB opened for write only error
147 NVALID  = 132           ;($84) invalid command error
148 NOTOPN  = 133           ;($85) device/file not open error
149 BADIOC  = 134           ;($86) invalid IOCB index error
150 RDONLY  = 135           ;($87) IOCB opened for read only error
151 EOFERR  = 136           ;($88) end of file error
152 TRNRCD  = 137           ;($89) truncated record error
153 TIMOUT  = 138           ;($8A) peripheral device timeout error
154 DNACK   = 139           ;($8B) device does not acknowledge command
155 FRMERR  = 140           ;($8C) serial bus framing error
156 CRSROR  = 141           ;($8D) cursor overrange error
157 OVRRUN  = 142           ;($8E) serial bus data overrun error
158 CHKERR  = 143           ;($8F) serial bus checksum error
159 DERROR  = 144           ;($90) device done (operation incomplete)
160 BADMOD  = 145           ;($91) bad screen mode number error
161 FNCNOT  = 146           ;($92) function not implemented in handler
162 SCRMEM  = 147           ;($93) insufficient memory for screen mode
163
164 DSKFMT  = 148           ;($94) SpartaDOS: unrecognized disk format
165 INCVER  = 149           ;($95) SpartaDOS: disk was made with incompat. version
166 DIRNFD  = 150           ;($96) SpartaDOS: directory not found
167 FEXIST  = 151           ;($97) SpartaDOS: file exists
168 NOTBIN  = 152           ;($98) SpartaDOS: file not binary
169 LSYMND  = 154           ;($9A) SDX: loader symbol not defined
170 BADPRM  = 156           ;($9C) SDX: bad parameter
171 OUTOFM  = 158           ;($9E) SDX: out of memory
172 INVDEV  = 160           ;($A0) invalid device number
173 TMOF    = 161           ;($A1) too many open files
174 DSKFLL  = 162           ;($A2) disk full
175 FATLIO  = 163           ;($A3) fatal I/O error
176 FNMSMT  = 164           ;($A4) internal file number mismatch
177 INVFNM  = 165           ;($A5) invalid file name
178 PDLERR  = 166           ;($A6) point data length error
179 EPERM   = 167           ;($A7) permission denied
180 DINVCM  = 168           ;($A8) command invalid for disk
181 DIRFLL  = 169           ;($A9) directory full
182 FNTFND  = 170           ;($AA) file not found
183 PNTINV  = 171           ;($AB) point invalid
184 BADDSK  = 173           ;($AD) bad disk
185 INCFMT  = 176           ;($B0) DOS 3: incompatible file system
186
187 ; DCB Device Bus Equates
188
189 DISKID  = $31           ;##rev2## disk bus ID
190 PDEVN   = $40           ;##rev2## printer bus ID
191 CASET   = $60           ;##rev2## cassette bus ID
192
193 ; Bus Command Equates
194
195 FOMAT   = '!'           ;##rev2## format command
196 PUTSEC  = 'P'           ;##rev2## put sector command
197 READ    = 'R'           ;##rev2## read command
198 STATC   = 'S'           ;##rev2## status command
199 WRITE   = 'W'           ;##rev2## write command
200
201 ; Command Auxiliary Byte Equates
202
203 DOUBLE  = 'D'           ;##rev2## print 20 characters double width
204 NORMAL  = 'N'           ;##rev2## print 40 characters normally
205 PLOT    = 'P'           ;##rev2## plot
206 SIDWAY  = 'S'           ;##rev2## print 16 characters sideways
207
208 ; Bus Response Equates
209
210 ACK     = 'A'           ;##rev2## device acknowledged
211 COMPLT  = 'C'           ;##rev2## device succesfully completed operation
212 ERROR   = 'E'           ;##rev2## device incurred error
213 NACK    = 'N'           ;##rev2## device did not understand
214
215 ; Floating Point Miscellaneous Equates
216
217 FPREC   = 6             ;precision
218
219 FMPREC  = FPREC-1       ;##rev2## length of mantissa
220
221 ; Cassette Record Type Equates
222
223 HDR     = $FB           ;##rev2## header
224 DTA     = $FC           ;##rev2## data record
225 DT1     = $FA           ;##rev2## last data record
226 EOT     = $FE           ;##rev2## end of tape (file)
227
228 TONE1   = 2             ;##rev2## record
229 TONE2   = 1             ;##rev2## playback
230
231 ; Cassette Timing Equates
232
233 WLEADN  = 1152          ;##rev2## NTSC 19.2 second WRITE file leader
234 RLEADN  = 576           ;##rev2## NTSC 9.6 second READ file leader
235 WIRGLN  = 180           ;##rev2## NTSC 3.0 second WRITE IRG
236 RIRGLN  = 120           ;##rev2## NTSC 2.0 second READ IRG
237 WSIRGN  = 15            ;##rev2## NTSC 0.25 second WRITE short IRG
238 RSIRGN  = 10            ;##rev2## NTSC 0.16 second READ short IRG
239 BEEPNN  = 30            ;##rev2## NTSC 0.5 second beep duration
240 BEEPFN  = 10            ;##rev2## NTSC 0.16 seconrd beep duration
241
242 WLEADP  = 960           ;##rev2## PAL 19.2 second WRITE file leader
243 RLEADP  = 480           ;##rev2## PAL 9.6 second READ file leader
244 WIRGLP  = 150           ;##rev2## PAL 3.0 second WRITE IRG
245 RIRGLP  = 100           ;##rev2## PAL 2.0 second READ IRG
246 WSIRGP  = 13            ;##rev2## PAL 0.25 second WRITE short IRG
247 RSIRGP  = 8             ;##rev2## PAL 0.16 second READ short IRG
248 BEEPNP  = 25            ;##rev2## PAL 0.5 second beep duration
249 BEEPFP  = 8             ;##rev2## PAL 0.16 seconrd beep duration
250
251 WIRGHI  = 0             ;##rev2## high WRITE IRG
252 RIRGHI  = 0             ;##rev2## high READ IRG
253
254 ; Power-up Validation Byte Value Equates
255
256 PUPVL1  = $5C           ;##rev2## power-up validation value 1
257 PUPVL2  = $93           ;##rev2## power-up validation value 2
258 PUPVL3  = $25           ;##rev2## power-up validation value 3
259
260 ; Relocating Loader Miscellaneous Equates
261
262 DATAER  = 156           ;##rev2## end of record appears before END
263 MEMERR  = 157           ;##rev2## memory insufficient for load error
264
265 ; Miscellaneous Equates
266
267 IOCFRE  = $FF           ;IOCB free indication
268
269 B19200  = $0028         ;##rev2## 19200 baud POKEY counter value
270 B00600  = $05CC         ;##rev2## 600 baud POKEY counter value
271
272 HITONE  = $05           ;##rev2## FSK high freq. POKEY counter value
273 LOTONE  = $07           ;##rev2## FSK low freq. POKEY counter value
274
275 NCOMLO  = $34           ;##rev2## PIA lower NOT COMMAND line command
276 NCOMHI  = $3C           ;##rev2## PIA raise NOT COMMAND line command
277
278 MOTRGO  = $34           ;##rev2## PIA cassette motor ON command
279 MOTRST  = $3C           ;##rev2## PIA cassette motor OFF command
280
281 NODAT   = $00           ;##rev2## SIO immediate operation
282 GETDAT  = $40           ;##rev2## SIO read data frame
283 PUTDAT  = $80           ;##rev2## SIO write data frame
284
285 CRETRI  = 13            ;##rev2## number of command frame retries
286 DRETRI  = 1             ;##rev2## number of device retries
287 CTIM    = 2             ;##rev2## command frame ACK timeout
288
289 NBUFSZ  = 40            ;##rev2## print normal buffer size
290 DBUFSZ  = 20            ;##rev2## print double buffer size
291 SBUFSZ  = 29            ;##rev2## print sideways buffer size
292
293 ;-------------------------------------------------------------------------
294 ; Page Zero Address Equates
295 ;-------------------------------------------------------------------------
296
297 LINZBS  = $00           ;LINBUG RAM (WILL BE REPLACED BY MONITOR RAM)
298 LNFLG   = $00           ;##1200xl## 1-byte LNBUG flag (0 = not LNBUG)
299 NGFLAG  = $01           ;##1200xl## 1-byte memory status (0 = failure)
300
301 ; Not Cleared
302
303 CASINI  = $02           ;CASSETTE INIT LOCATION
304 RAMLO   = $04           ;RAM POINTER FOR MEMORY TEST
305 TRAMSZ  = $06           ;TEMPORARY REGISTER FOR RAM SIZE
306 ;TSTDAT = $07           ;##old## RAM TEST DATA REGISTER
307 CMCMD   = $07           ;##rev2## 1-byte command communications
308
309 ; Cleared upon Coldstart only
310
311 WARMST  = $08           ;WARM START FLAG
312 BOOTQ   = $09           ;SUCCESSFUL BOOT FLAG
313 DOSVEC  = $0A           ;DISK SOFTWARE START VECTOR
314 DOSINI  = $0C           ;DISK SOFTWARE INIT ADDRESS
315 APPMHI  = $0E           ;APPLICATIONS MEMORY HI LIMIT
316
317 ; Cleared upon Coldstart or Warmstart
318
319 INTZBS  = $10           ;INTERRUPT HANDLER
320
321 POKMSK  = $10           ;SYSTEM MASK FOR POKEY IRQ ENABLE (shadow of IRQEN)
322 BRKKEY  = $11           ;BREAK KEY FLAG
323 RTCLOK  = $12           ;REAL TIME CLOCK (IN 16 MSEC UNITS>
324 BUFADR  = $15           ;INDIRECT BUFFER ADDRESS REGISTER
325 ICCOMT  = $17           ;COMMAND FOR VECTOR
326 DSKFMS  = $18           ;DISK FILE MANAGER POINTER
327 DSKUTL  = $1A           ;DISK UTILITIES POINTER
328 ABUFPT  = $1C           ;##1200xl## 4-byte ACMI buffer pointer area
329
330 ;PTIMOT = $1C           ;##old## PRINTER TIME OUT REGISTER
331 ;PBPNT  = $1D           ;##old## PRINT BUFFER POINTER
332 ;PBUFSZ = $1E           ;##old## PRINT BUFFER SIZE
333 ;PTEMP  = $1F           ;##old## TEMPORARY REGISTER
334
335 ZIOCB   = $20           ;ZERO PAGE I/O CONTROL BLOCK
336 IOCBAS  = $20           ;16-byte page zero IOCB
337 ICHIDZ  = $20           ;HANDLER INDEX NUMBER (FF = IOCB FREE)
338 ICDNOZ  = $21           ;DEVICE NUMBER (DRIVE NUMBER)
339 ICCOMZ  = $22           ;COMMAND CODE
340 ICSTAZ  = $23           ;STATUS OF LAST IOCB ACTION
341 ICBALZ  = $24           ;BUFFER ADDRESS LOW BYTE
342 ICBAHZ  = $25           ;1-byte high buffer address
343 ICPTLZ  = $26           ;PUT BYTE ROUTINE ADDRESS -1
344 ICPTHZ  = $27           ;1-byte high PUT-BYTE routine address
345 ICBLLZ  = $28           ;BUFFER LENGTH LOW BYTE
346 ICBLHZ  = $29           ;1-byte high buffer length
347 ICAX1Z  = $2A           ;AUXILIARY INFORMATION FIRST BYTE
348 ICAX2Z  = $2B           ;1-byte second auxiliary information
349 ICSPRZ  = $2C           ;4-byte spares
350
351 ENTVEC  = $2C           ;##rev2## 2-byte (not used)
352 ICIDNO  = $2E           ;IOCB NUMBER X 16
353 CIOCHR  = $2F           ;CHARACTER BYTE FOR CURRENT OPERATION
354
355 STATUS  = $30           ;INTERNAL STATUS STORAGE
356 CHKSUM  = $31           ;CHECKSUM (SINGLE BYTE SUM WITH CARRY)
357 BUFRLO  = $32           ;POINTER TO DATA BUFFER (LO BYTE)
358 BUFRHI  = $33           ;POINTER TO DATA BUFFER (HI BYTE)
359 BFENLO  = $34           ;NEXT BYTE PAST END OF THE DATA BUFFER LO
360 BFENHI  = $35           ;NEXT BYTE PAST END OF THE DATA BUFFER HI
361 ;CRETRY = $36           ;##old## NUMBER OF COMMAND FRAME RETRIES
362 ;DRETRY = $37           ;##old## NUMBER OF DEVICE RETRIES
363 LTEMP   = $36           ;##1200xl## 2-byte loader temporary
364 BUFRFL  = $38           ;DATA BUFFER FULL FLAG
365 RECVDN  = $39           ;RECEIVE DONE FLAG
366 XMTDON  = $3A           ;TRANSMISSION DONE FLAG
367 CHKSNT  = $3B           ;CHECKSUM SENT FLAG
368 NOCKSM  = $3C           ;NO CHECKSUM FOLLOWS DATA FLAG
369 BPTR    = $3D           ;1-byte cassette buffer pointer
370 FTYPE   = $3E           ;1-byte cassette IRG type
371 FEOF    = $3F           ;1-byte cassette EOF flag (0 = quiet)
372 FREQ    = $40           ;1-byte cassette beep counter
373 SOUNDR  = $41           ;NOISY I/0 FLAG. (ZERO IS QUIET)
374
375 CRITIC  = $42           ;DEFINES CRITICAL SECTION (CRITICAL IF NON-Z)
376
377 FMSZPG  = $43           ;DISK FILE MANAGER SYSTEM ZERO PAGE
378
379 ;CKEY   = $4A           ;##old## FLAG SET WHEN GAME START PRESSED
380 ZCHAIN  = $4A           ;##1200xl## 2-byte handler linkage chain pointer
381 ;CASSBT = $4B           ;##old## CASSETTE BOOT FLAG
382 DSTAT   = $4C           ;DISPLAY STATUS
383 ATRACT  = $4D           ;ATRACT FLAG
384 DRKMSK  = $4E           ;DARK ATRACT MASK
385 COLRSH  = $4F           ;ATRACT COLOR SHIFTER (EOR'ED WITH PLAYFIELD
386
387
388 TMPCHR  = $50           ;1-byte temporary character
389 HOLD1   = $51           ;1-byte temporary
390 LMARGN  = $52           ;left margin (normally 2, cc65 C startup code sets it to 0)
391 RMARGN  = $53           ;right margin (normally 39 if no XEP80 is used)
392 ROWCRS  = $54           ;1-byte cursor row
393 COLCRS  = $55           ;2-byte cursor column
394 DINDEX  = $57           ;1-byte display mode
395 SAVMSC  = $58           ;2-byte saved memory scan counter
396 OLDROW  = $5A           ;1-byte prior row
397 OLDCOL  = $5B           ;2-byte prior column
398 OLDCHR  = $5D           ;DATA UNDER CURSOR
399 OLDADR  = $5E           ;2-byte saved cursor memory address
400 FKDEF   = $60           ;##1200xl## 2-byte function key definition table
401 ;NEWROW = $60           ;##old## POINT DRAW GOES TO
402 ;NEWCOL = $61           ;##old##
403 PALNTS  = $62           ;##1200xl## 1-byte PAL/NTSC indicator (0 = NTSC)
404 LOGCOL  = $63           ;POINTS AT COLUMN IN LOGICAL LINE
405 ADRESS  = $64           ;2-byte temporary address
406
407 MLTTMP  = $66           ;1-byte temporary
408 OPNTMP  = $66           ;FIRST BYTE IS USED IN OPEN AS TEMP
409 TOADR   = $66           ;##rev2## 2-byte destination address
410
411 SAVADR  = $68           ;2-byte saved address
412 FRMADR  = $68           ;##rev2## 2-byte source address
413
414 RAMTOP  = $6A           ;RAM SIZE DEFINED BY POWER ON LOGIC
415 BUFCNT  = $6B           ;BUFFER COUNT
416 BUFSTR  = $6C           ;EDITOR GETCH POINTER
417 BITMSK  = $6E           ;BIT MASK
418 SHFAMT  = $6F           ;1-byte shift amount for pixel justifucation
419 ROWAC   = $70           ;2-byte draw working row
420 COLAC   = $72           ;2-byte draw working column
421 ENDPT   = $74           ;2-byte end point
422 DELTAR  = $76           ;1-byte row difference
423 DELTAC  = $77           ;2-byte column difference
424 KEYDEF  = $79           ;##1200xl## 2-byte key definition table address
425 ;ROWINC = $79           ;##old##
426 ;COLINC = $7A           ;##old##
427 SWPFLG  = $7B           ;NON-0 1F TXT AND REGULAR RAM IS SWAPPED
428 HOLDCH  = $7C           ;CH IS MOVED HERE IN KGETCH BEFORE CNTL & SH
429 INSDAT  = $7D           ;1-byte temporary
430 COUNTR  = $7E           ;2-byte draw iteration count
431
432 ; Floating Point Package Page Zero Address Equates
433
434 FR0     = $D4           ;6-byte register 0
435 FR0M    = $D5           ;##rev2## 5-byte register 0 mantissa
436 QTEMP   = $D9           ;##rev2## 1-byte temporary
437
438 FRE     = $DA           ;6-byte (internal) register E
439
440 FR1     = $E0           ;FP REG1
441 FR1M    = $E1           ;##rev2## 5-byte register 1 mantissa
442
443 FR2     = $E6           ;6-byte (internal) register 2
444
445 FRX     = $EC           ;1-byte temporary
446
447 EEXP    = $ED           ;VALUE OF E
448
449 FRSIGN  = $EE           ;##rev2## 1-byte floating point sign
450 NSIGN   = $EE           ;SIGN OF #
451
452 PLYCNT  = $EF           ;##rev2## 1-byte polynomial degree
453 ESIGN   = $EF           ;SIGN OF EXPONENT
454
455 SGNFLG  = $F0           ;##rev2## 1-byte sign flag
456 FCHRFLG = $F0           ;1ST CHAR FLAG
457
458 XFMFLG  = $F1           ;##rev2## 1-byte transform flag
459 DIGRT   = $F1           ;# OF DIGITS RIGHT OF DECIMAL
460
461 CIX     = $F2           ;CURRENT INPUT INDEX
462 INBUFF  = $F3           ;POINTS TO USER'S LINE INPUT BUFFER
463
464 ZTEMP1  = $F5           ;2-byte temporary
465 ZTEMP4  = $F7           ;2-byte temporary
466 ZTEMP3  = $F9           ;2-byte temporary
467
468 ;DEGFLG = $FB           ;##old## same as RADFLG
469 ;RADFLG = $FB           ;##old## 0=RADIANS, 6=DEGREES
470
471 FLPTR   = $FC           ;2-byte floating point number pointer
472 FPTR2   = $FE           ;2-byte floating point number pointer
473
474 ;-------------------------------------------------------------------------
475 ; Page Two Address Equates
476 ;-------------------------------------------------------------------------
477
478 INTABS  = $0200         ;INTERRUPT RAM
479
480 VDSLST  = $0200         ;DISPLAY LIST NMI VECTOR
481 VPRCED  = $0202         ;PROCEED LINE IRQ VECTOR
482 VINTER  = $0204         ;INTERRUPT LINE IRQ VECTOR
483 VBREAK  = $0206         ;SOFTWARE BREAK (00) INSTRUCTION IRQ VECTOR
484 VKEYBD  = $0208         ;POKEY KEYBOARD IRQ VECTOR
485 VSERIN  = $020A         ;POKEY SERIAL INPUT READY IRQ
486 VSEROR  = $020C         ;POKEY SERIAL OUTPUT READY IRQ
487 VSEROC  = $020E         ;POKEY SERIAL OUTPUT COMPLETE IRQ
488 VTIMR1  = $0210         ;POKEY TIMER 1 IRQ
489 VTIMR2  = $0212         ;POKEY TIMER 2 IRQ
490 VTIMR4  = $0214         ;POKEY TIMER 4 IRQ
491 VIMIRQ  = $0216         ;IMMEDIATE IRQ VECTOR
492 CDTMV1  = $0218         ;COUNT DOWN TIMER 1
493 CDTMV2  = $021A         ;COUNT DOWN TIMER 2
494 CDTMV3  = $021C         ;COUNT DOWN TIMER 3
495 CDTMV4  = $021E         ;COUNT DOWN TIMER 4
496 CDTMV5  = $0220         ;COUNT DOWN TIMER 5
497 VVBLKI  = $0222         ;IMMEDIATE VERTICAL BLANK NMI VECTOR
498 VVBLKD  = $0224         ;DEFERRED VERTICAL BLANK NMI VECTOR
499 CDTMA1  = $0226         ;COUNT DOWN TIMER 1 JSR ADDRESS
500 CDTMA2  = $0228         ;COUNT DOWN TIMER 2 JSR ADDRESS
501 CDTMF3  = $022A         ;COUNT DOWN TIMER 3 FLAG
502 SRTIMR  = $022B         ;SOFTWARE REPEAT TIMER
503 CDTMF4  = $022C         ;COUNT DOWN TIMER 4 FLAG
504 INTEMP  = $022D         ;IAN'S TEMP
505 CDTMF5  = $022E         ;COUNT DOWN TIMER FLAG 5
506 SDMCTL  = $022F         ;SAVE DMACTL REGISTER
507 SDLSTL  = $0230         ;SAVE DISPLAY LIST LOW BYTE
508 SDLSTH  = $0231         ;SAVE DISPLAY LIST HI BYTE
509 SSKCTL  = $0232         ;SKCTL REGISTER RAM
510 LCOUNT  = $0233         ;##1200xl## 1-byte relocating loader record
511 LPENH   = $0234         ;LIGHT PEN HORIZONTAL VALUE
512 LPENV   = $0235         ;LIGHT PEN VERTICAL VALUE
513 BRKKY   = $0236         ;BREAK KEY VECTOR
514 ;RELADR = $0238         ;##1200xl## 2-byte relocatable loader address
515 VPIRQ   = $0238         ;##rev2## 2-byte parallel device IRQ vector
516 CDEVIC  = $023A         ;COMMAND FRAME BUFFER - DEVICE
517 CCOMND  = $023B         ;COMMAND
518 CAUX1   = $023C         ;COMMAND AUX BYTE 1
519 CAUX2   = $023D         ;COMMAND AUX BYTE 2
520
521 TEMP    = $023E         ;TEMPORARY RAM CELL
522
523 ERRFLG  = $023F         ;ERROR FLAG - ANY DEVICE ERROR EXCEPT TIME OUT
524
525 DFLAGS  = $0240         ;DISK FLAGS FROM SECTOR ONE
526 DBSECT  = $0241         ;NUMBER OF DISK BOOT SECTORS
527 BOOTAD  = $0242         ;ADDRESS WHERE DISK BOOT LOADER WILL BE PUT
528 COLDST  = $0244         ;COLDSTART FLAG (1=IN MIDDLE OF COLDSTART>
529 RECLEN  = $0245         ;##1200xl## 1-byte relocating loader record length
530 DSKTIM  = $0246         ;DISK TIME OUT REGISTER
531 ;LINBUF = $0247         ;##old## CHAR LINE BUFFER
532 PDVMSK  = $0247         ;##rev2## 1-byte parallel device selection mask
533 SHPDVS  = $0248         ;##rev2## 1-byte PDVS (parallel device select)
534 PDIMSK  = $0249         ;##rev2## 1-byte parallel device IRQ selection
535 RELADR  = $024A         ;##rev2## 2-byte relocating loader relative adr.
536 PPTMPA  = $024C         ;##rev2## 1-byte parallel device handler temporary
537 PPTMPX  = $024D         ;##rev2## 1-byte parallel device handler temporary
538
539 CHSALT  = $026B         ;##1200xl## 1-byte character set alternate
540 VSFLAG  = $026C         ;##1200xl## 1-byte fine vertical scroll count
541 KEYDIS  = $026D         ;##1200xl## 1-byte keyboard disable
542 FINE    = $026E         ;##1200xl## 1-byte fine scrolling mode
543 GPRIOR  = $026F         ;GLOBAL PRIORITY CELL
544
545 PADDL0  = $0270         ;1-byte potentiometer 0
546 PADDL1  = $0271         ;1-byte potentiometer 1
547 PADDL2  = $0272         ;1-byte potentiometer 2
548 PADDL3  = $0273         ;1-byte potentiometer 3
549 PADDL4  = $0274         ;1-byte potentiometer 4
550 PADDL5  = $0275         ;1-byte potentiometer 5
551 PADDL6  = $0276         ;1-byte potentiometer 6
552 PADDL7  = $0277         ;1-byte potentiometer 7
553
554 STICK0  = $0278         ;1-byte joystick 0
555 STICK1  = $0279         ;1-byte joystick 1
556 STICK2  = $027A         ;1-byte joystick 2
557 STICK3  = $027B         ;1-byte joystick 3
558
559 PTRIG0  = $027C         ;1-byte paddle trigger 0
560 PTRIG1  = $027D         ;1-byte paddle trigger 1
561 PTRIG2  = $027E         ;1-byte paddle trigger 2
562 PTRIG3  = $027F         ;1-byte paddle trigger 3
563 PTRIG4  = $0280         ;1-byte paddle trigger 4
564 PTRIG5  = $0281         ;1-byte paddle trigger 5
565 PTRIG6  = $0281         ;1-byte paddle trigger 6
566 PTRIG7  = $0283         ;1-byte paddle trigger 7
567
568 STRIG0  = $0284         ;1-byte joystick trigger 0
569 STRIG1  = $0285         ;1-byte joystick trigger 1
570 STRIG2  = $0286         ;1-byte joystick trigger 2
571 STRIG3  = $0287         ;1-byte joystick trigger 3
572
573 ;CSTAT  = $0288         ;##old## cassette status register
574 HIBYTE  = $0288         ;##1200xl## 1-byte relocating loader high byte
575 WMODE   = $0289         ;1-byte cassette WRITE mode
576 BLIM    = $028A         ;1-byte cassette buffer limit
577 IMASK   = $028B         ;##rev2## (not used)
578 JVECK   = $028C         ;2-byte jump vector or temporary
579 NEWADR  = $028E         ;##1200xl## 2-byte relocating address
580 TXTROW  = $0290         ;TEXT ROWCRS
581 TXTCOL  = $0291         ;TEXT COLCRS
582 TINDEX  = $0293         ;TEXT INDEX
583 TXTMSC  = $0294         ;FOOLS CONVRT INTO NEW MSC
584 TXTOLD  = $0296         ;OLDROW & OLDCOL FOR TEXT (AND THEN SOME)
585 ;TMPX1  = $029C         ;##old## 1-byte temporary register
586 CRETRY  = $029C         ;##1200xl## 1-byte number of command frame retries
587 HOLD3   = $029D         ;1-byte temporary
588 SUBTMP  = $029E         ;1-byte temporary
589 HOLD2   = $029F         ;1-byte (not used)
590 DMASK   = $02A0         ;1-byte display (pixel location) mask
591 TMPLBT  = $02A1         ;1-byte (not used)
592 ESCFLG  = $02A2         ;ESCAPE FLAG
593 TABMAP  = $02A3         ;15-byte (120 bit) tab stop bit map
594 LOGMAP  = $02B2         ;LOGICAL LINE START BIT MAP
595 INVFLG  = $02B6         ;INVERSE VIDEO FLAG (TOGGLED BY ATARI KEY)
596 FILFLG  = $02B7         ;RIGHT FILL FLAG FOR DRAW
597 TMPROW  = $02B8         ;1-byte temporary row
598 TMPCOL  = $02B9         ;2-byte temporary column
599 SCRFLG  = $02BB         ;SET IF SCROLL OCCURS
600 HOLD4   = $02BC         ;TEMP CELL USED IN DRAW ONLY
601 ;HOLD5  = $02BD         ;##old## DITTO
602 DRETRY  = $02BD         ;##1200xl## 1-byte number of device retries
603 SHFLOK  = $02BE         ;1-byte shift/control lock flags
604 BOTSCR  = $02BF         ;BOTTOM OF SCREEN   24 NORM 4 SPLIT
605
606 PCOLR0  = $02C0         ;1-byte player-missile 0 color/luminance
607 PCOLR1  = $02C1         ;1-byte player-missile 1 color/luminance
608 PCOLR2  = $02C2         ;1-byte player-missile 2 color/luminance
609 PCOLR3  = $02C3         ;1-byte player-missile 3 color/luminance
610
611 COLOR0  = $02C4         ;1-byte playfield 0 color/luminance
612 COLOR1  = $02C5         ;1-byte playfield 1 color/luminance
613 COLOR2  = $02C6         ;1-byte playfield 2 color/luminance
614 COLOR3  = $02C7         ;1-byte playfield 3 color/luminance
615
616 COLOR4  = $02C8         ;1-byte background color/luminance
617
618 PARMBL  = $02C9         ;##rev2## 6-byte relocating loader parameter
619 RUNADR  = $02C9         ;##1200xl## 2-byte run address
620 HIUSED  = $02CB         ;##1200xl## 2-byte highest non-zero page address
621 ZHIUSE  = $02CD         ;##1200xl## 2-byte highest zero page address
622
623 OLDPAR  = $02CF         ;##rev2## 6-byte relocating loader parameter
624 GBYTEA  = $02CF         ;##1200xl## 2-byte GET-BYTE routine address
625 LOADAD  = $02D1         ;##1200xl## 2-byte non-zero page load address
626 ZLOADA  = $02D3         ;##1200xl## 2-byte zero page load address
627
628 DSCTLN  = $02D5         ;##1200xl## 2-byte disk sector length
629 ACMISR  = $02D7         ;##1200xl## 2-byte ACMI interrupt service routine
630 KRPDEL  = $02D9         ;##1200xl## 1-byte auto-repeat delay
631 KEYREP  = $02DA         ;##1200xl## 1-byte auto-repeat rate
632 NOCLIK  = $02DB         ;##1200xl## 1-byte key click disable
633 HELPFG  = $02DC         ;##1200xl## 1-byte HELP key flag (0 = no HELP)
634 DMASAV  = $02DD         ;##1200xl## 1-byte SDMCTL save/restore
635 PBPNT   = $02DE         ;##1200xl## 1-byte printer buffer pointer
636 PBUFSZ  = $02DF         ;##1200xl## 1-byte printer buffer size
637
638 GLBABS  = $02E0         ;4-byte global variables for non-DOS users
639 RUNAD   = $02E0         ;##map## 2-byte binary file run address
640 INITAD  = $02E2         ;##map## 2-byte binary file initialization address
641
642 RAMSIZ  = $02E4         ;RAM SIZE (HI BYTE ONLY)
643 MEMTOP  = $02E5         ;TOP OF AVAILABLE USER MEMORY
644 MEMLO   = $02E7         ;BOTTOM OF AVAILABLE USER MEMORY
645 HNDLOD  = $02E9         ;##1200xl## 1-byte user load flag
646 DVSTAT  = $02EA         ;STATUS BUFFER
647 CBAUDL  = $02EE         ;1-byte low cassette baud rate
648 CBAUDH  = $02EF         ;1-byte high cassette baud rate
649 CRSINH  = $02F0         ;CURSOR INHIBIT (00 = CURSOR ON)
650 KEYDEL  = $02F1         ;KEY DELAY
651 CH1     = $02F2         ;1-byte prior keyboard character
652 CHACT   = $02F3         ;CHACTL REGISTER RAM
653 CHBAS   = $02F4         ;CHBAS REGISTER RAM
654
655 NEWROW  = $02F5         ;##1200xl## 1-byte draw destination row
656 NEWCOL  = $02F6         ;##1200xl## 2-byte draw destination column
657 ROWINC  = $02F8         ;##1200xl## 1-byte draw row increment
658 COLINC  = $02F9         ;##1200xl## 1-byte draw column increment
659
660 CHAR    = $02FA         ;1-byte internal character
661 ATACHR  = $02FB         ;ATASCII CHARACTER
662 CH      = $02FC         ;GLOBAL VARIABLE FOR KEYBOARD
663 FILDAT  = $02FD         ;RIGHT FILL DATA <DRAW>
664 DSPFLG  = $02FE         ;DISPLAY FLAG   DISPLAY CNTLS IF NON-ZERO
665 SSFLAG  = $02FF         ;START/STOP FLAG FOR PAGING (CNTL 1). CLEARE
666
667 ;-------------------------------------------------------------------------
668 ; Page Three Address Equates
669 ;-------------------------------------------------------------------------
670
671 DCB     = $0300         ;DEVICE CONTROL BLOCK
672 DDEVIC  = $0300         ;PERIPHERAL UNIT 1 BUS I.D. NUMBER
673 DUNIT   = $0301         ;UNIT NUMBER
674 DCOMND  = $0302         ;BUS COMMAND
675 DSTATS  = $0303         ;COMMAND TYPE/STATUS RETURN
676 DBUFLO  = $0304         ;1-byte low data buffer address
677 DBUFHI  = $0305         ;1-byte high data buffer address
678 DTIMLO  = $0306         ;DEVICE TIME OUT IN 1 SECOND UNITS
679 DUNUSE  = $0307         ;UNUSED BYTE
680 DBYTLO  = $0308         ;1-byte low number of bytes to transfer
681 DBYTHI  = $0309         ;1-byte high number of bytes to transfer
682 DAUX1   = $030A         ;1-byte first command auxiliary
683 DAUX2   = $030B         ;1-byte second command auxiliary
684
685 TIMER1  = $030C         ;INITIAL TIMER VALUE
686 ;ADDCOR = $030E         ;##old## ADDITION CORRECTION
687 JMPERS  = $030E         ;##1200xl## 1-byte jumper options
688 CASFLG  = $030F         ;CASSETTE MODE WHEN SET
689 TIMER2  = $0310         ;2-byte final baud rate timer value
690 TEMP1   = $0312         ;TEMPORARY STORAGE REGISTER
691 ;TEMP2  = $0314         ;##old## TEMPORARY STORAGE REGISTER
692 TEMP2   = $0313         ;##1200xl## 1-byte temporary 
693 PTIMOT  = $0314         ;##1200xl## 1-byte printer timeout
694 TEMP3   = $0315         ;TEMPORARY STORAGE REGISTER
695 SAVIO   = $0316         ;SAVE SERIAL IN DATA PORT
696 TIMFLG  = $0317         ;TIME OUT FLAG FOR BAUD RATE CORRECTION
697 STACKP  = $0318         ;SIO STACK POINTER SAVE CELL
698 TSTAT   = $0319         ;TEMPORARY STATUS HOLDER
699
700 HATABS  = $031A         ;35-byte handler address table (was 38 bytes)
701 PUPBT1  = $033D         ;##1200xl## 1-byte power-up validation byte 1
702 PUPBT2  = $033E         ;##1200xl## 1-byte power-up validation byte 2
703 PUPBT3  = $033F         ;##1200xl## 1-byte power-up validation byte 3
704
705 IOCB    = $0340         ;I/O CONTROL BLOCKS
706 ICHID   = $0340         ;HANDLER INDEX NUMBER (FF=IOCB FREE)
707 ICDNO   = $0341         ;DEVICE NUMBER (DRIVE NUMBER)
708 ICCOM   = $0342         ;COMMAND CODE
709 ICSTA   = $0343         ;STATUS OF LAST IOCB ACTION
710 ICBAL   = $0344         ;1-byte low buffer address
711 ICBAH   = $0345         ;1-byte high buffer address
712 ICPTL   = $0346         ;1-byte low PUT-BYTE routine address - 1
713 ICPTH   = $0347         ;1-byte high PUT-BYTE routine address - 1
714 ICBLL   = $0348         ;1-byte low buffer length
715 ICBLH   = $0349         ;1-byte high buffer length
716 ICAX1   = $034A         ;1-byte first auxiliary information
717 ICAX2   = $034B         ;1-byte second auxiliary information
718 ICAX3   = $034C         ;1-byte third auxiliary information
719 ICAX4   = $034D         ;1-byte fourth auxiliary information
720 ICAX5   = $034E         ;1-byte fifth auxiliary information
721 ICSPR   = $034F         ;SPARE BYTE
722
723 PRNBUF  = $03C0         ;PRINTER BUFFER
724 SUPERF  = $03E8         ;##1200xl## 1-byte editor super function flag
725 CKEY    = $03E9         ;##1200xl## 1-byte cassette boot request flag
726 CASSBT  = $03EA         ;##1200xl## 1-byte cassette boot flag
727 CARTCK  = $03EB         ;##1200xl## 1-byte cartridge equivalence check
728 DERRF   = $03EC         ;##rev2## 1-byte screen OPEN error flag
729
730 ; Remainder of Page Three Not Cleared upon Reset
731
732 ACMVAR  = $03ED         ;##1200xl## 11 bytes reserved for ACMI
733 BASICF  = $03F8         ;##rev2## 1-byte BASIC switch flag
734 MINTLK  = $03F9         ;##1200xl## 1-byte ACMI module interlock
735 GINTLK  = $03FA         ;##1200xl## 1-byte cartridge interlock
736 CHLINK  = $03FB         ;##1200xl## 2-byte loaded handler chain link
737 CASBUF  = $03FD         ;CASSETTE BUFFER
738
739 ;-------------------------------------------------------------------------
740 ; Page Four/Five Address Equates
741 ;-------------------------------------------------------------------------
742
743 ; USER AREA STARTS HERE AND GOES TO END OF PAGE FIVE
744 USAREA  = $0480         ;128 bytes reserved for application
745
746 LBPR1   = $057E         ;LBUFF PREFIX 1
747 LBPR2   = $057F         ;LBUFF PREFIX 2
748 LBUFF   = $0580         ;128-byte line buffer
749
750 PLYARG  = $05E0         ;6-byte floating point polynomial argument
751 FPSCR   = $05E6         ;6-byte floating point temporary
752 FPSCR1  = $05EC         ;6-byte floating point temporary
753
754 ;LBFEND = $05FF         ;##old## END OF LBUFF
755
756
757 DOS     = $0700
758
759 ;-------------------------------------------------------------------------
760 ; Cartridge Address Equates
761 ;-------------------------------------------------------------------------
762
763 CARTCS  = $BFFA         ;##rev2## 2-byte cartridge coldstart address
764 CART    = $BFFC         ;##rev2## 1-byte cartridge present indicator
765                         ;0=Cart Exists
766 CARTFG  = $BFFD         ;##rev2## 1-byte cartridge flags
767                         ;D7  0=Not a Diagnostic Cart
768                         ;    1=Is a Diagnostic cart and control is 
769                         ;      given to cart before any OS is init.
770                         ;D2  0=Init but Do not Start Cart
771                         ;    1=Init and Start Cart
772                         ;D0  0=Do not boot disk
773                         ;    1=Boot Disk
774 CARTAD  = $BFFE         ;##rev2## 2-byte cartridge start vector
775
776 ;-------------------------------------------------------------------------
777 ; CTIA/GTIA Address Equates
778 ;-------------------------------------------------------------------------
779
780 GTIA    = $D000         ;CTIA/GTIA area
781 .include "atari_gtia.inc"
782
783 ;-------------------------------------------------------------------------
784 ; PBI Address Equates
785 ;-------------------------------------------------------------------------
786
787 PBI     = $D100         ;##rev2## parallel bus interface area
788
789 ; Read Addresses
790
791 PDVI    = $D1FF         ;##rev2## parallel device IRQ status
792
793 ; Write Addresses
794
795 PDVS    = $D1FF         ;##rev2## parallel device select
796
797 ;-------------------------------------------------------------------------
798 ; POKEY Address Equates
799 ;-------------------------------------------------------------------------
800
801 POKEY     = $D200         ;POKEY area
802 .include  "atari_pokey.inc"
803
804 ;-------------------------------------------------------------------------
805 ; ANTIC Address Equates
806 ;-------------------------------------------------------------------------
807
808 ANTIC     = $D400         ;ANTIC area
809 .include  "atari_antic.inc"
810
811 ; PBI RAM Address Equates
812
813 PBIRAM  = $D600         ;##rev2## parallel bus interface RAM area
814
815 ; Parallel Device Address Equates
816
817 PDID1   = $D803         ;##rev2## parallel device ID 1
818 PDIDV   = $D805         ;##rev2## parallel device I/O vector
819 PDIRQV  = $D808         ;##rev2## parallel device IRQ vector
820 PDID2   = $D80B         ;##rev2## parallel device ID 2
821 PDVV    = $D80D         ;##rev2## parallel device vector table
822
823 ;-------------------------------------------------------------------------
824 ; PIA Address Equates
825 ;-------------------------------------------------------------------------
826
827 PIA     = $D300         ;PIA area
828
829 PORTA   = $D300         ;port A direction register or jacks one/two
830 PORTB   = $D301         ;port B direction register or memory management
831
832 PACTL   = $D302         ;port A control
833 PBCTL   = $D303         ;port B control
834
835 ;-------------------------------------------------------------------------
836 ; Floating Point Package Address Equates
837 ;-------------------------------------------------------------------------
838
839 AFP     = $D800         ;convert ASCII to floating point
840 FASC    = $D8E6         ;convert floating point to ASCII
841 IFP     = $D9AA         ;convert integer to floating point
842 FPI     = $D9D2         ;convert floating point to integer
843 ZFR0    = $DA44         ;zero FR0
844 ZF1     = $DA46         ;zero floating point number
845 FSUB    = $DA60         ;subtract floating point numbers
846 FADD    = $DA66         ;add floating point numbers
847 FMUL    = $DADB         ;multiply floating point numbers
848 FDIV    = $DB28         ;divide floating point numbers
849 PLYEVL  = $DD40         ;evaluate floating point polynomial
850 FLD0R   = $DD89         ;load floating point number
851 FLD0P   = $DD8D         ;load floating point number
852 FLD1R   = $DD98         ;load floating point number
853 PLD1P   = $DD9C         ;load floating point number
854 FST0R   = $DDA7         ;store floating point number
855 FST0P   = $DDAB         ;store floating point number
856 FMOVE   = $DDB6         ;move floating point number
857 LOG     = $DECD         ;calculate floating point logarithm
858 LOG10   = $DED1         ;calculate floating point base 10 logarithm
859 EXP     = $DDC0         ;calculate floating point exponential
860 EXP10   = $DDCC         ;calculate floating point base 10 exponential
861
862 ;-------------------------------------------------------------------------
863 ; Device Handler Vector Table Address Equates
864 ;-------------------------------------------------------------------------
865
866 EDITRV  = $E400         ;editor handler vector table
867 SCRENV  = $E410         ;screen handler vector table
868 KEYBDV  = $E420         ;keyboard handler vector table
869 PRINTV  = $E430         ;printer handler vector table
870 CASETV  = $E440         ;cassette handler vector table
871
872 ;-------------------------------------------------------------------------
873 ; Jump Vector Address Equates
874 ;-------------------------------------------------------------------------
875
876 DISKIV  = $E450         ;vector to initialize DIO
877 DSKINV  = $E453         ;vector to DIO
878 .ifdef __ATARIXL__
879 .ifndef SHRAM_HANDLERS
880 .import CIO_handler, SIO_handler, SETVBV_handler
881 .endif
882 .define CIOV    CIO_handler
883 .define SIOV    SIO_handler
884 .define SETVBV  SETVBV_handler
885 CIOV_org    = $E456     ;vector to CIO
886 SIOV_org    = $E459     ;vector to SIO
887 SETVBV_org  = $E45C     ;vector to set VBLANK parameters
888 .else
889 CIOV    = $E456         ;vector to CIO
890 SIOV    = $E459         ;vector to SIO
891 SETVBV  = $E45C         ;vector to set VBLANK parameters
892 .endif
893 SYSVBV  = $E45F         ;vector to process immediate VBLANK
894 XITVBV  = $E462         ;vector to process deferred VBLANK
895 SIOINV  = $E465         ;vector to initialize SIO
896 SENDEV  = $E468         ;vector to enable SEND
897 INTINV  = $E46B         ;vector to initialize interrupt handler
898 CIOINV  = $E46E         ;vector to initialize CIO
899 BLKBDV  = $E471         ;vector to power-up display
900 WARMSV  = $E474         ;vector to warmstart
901 COLDSV  = $E477         ;vector to coldstart
902 RBLOKV  = $E47A         ;vector to read cassette block
903 CSOPIV  = $E47D         ;vector to open cassette for input
904 VCTABL  = $E480         ;RAM vector initial value table
905 PUPDIV  = $E480         ;##rev2## vector to power-up display
906 SLFTSV  = $E483         ;##rev2## vector to self-test
907 PHENTV  = $E486         ;##rev2## vector to enter peripheral handler
908 PHUNLV  = $E489         ;##rev2## vector to unlink peripheral handler
909 PHINIV  = $E48C         ;##rev2## vector to initialize peripheral handler
910 GPDVV   = $E48F         ;##rev2## generic parallel device handler vector
911
912 ; NOTE: OS rom self-test labels are not included in this file
913
914 ;-------------------------------------------------------------------------
915 ; Some misc. stuff from the 400/800 rev.B source
916 ;-------------------------------------------------------------------------
917
918 ; THE FOLLOWING ARE IN BASIC CARTRIDGE:
919 SIN     = $BD81         ;FR0 <- SIN (FR0) DEGFLG (0=RAD,6=DEG) CARRY
920 COS     = $BD73         ;FR0 <- COS (FR0) CARRY
921 ATAN    = $BE43         ;FR0 <- ATAN(FR0) CARRY
922 SQR     = $BEB1         ;FR0 <- ROOT(FR0) CARRY
923
924 RADON   = 0             ;INDICATES RADIANS
925 DEGON   = 6             ;INDICATES DEGREES
926
927 ASCZER  = '0'           ;ASCII ZERO
928 COLON   = $3A           ;ASCII COLON 
929 CR      = $9B           ;SYSTEM EOL (CARRIAGE RETURN)
930
931 ;-------------------------------------------------------------------------
932 ; 6502
933 ;-------------------------------------------------------------------------
934
935 NMIVEC  = $FFFA
936 RESVEC  = $FFFC
937 IRQVEC  = $FFFE
938
939 ;-------------------------------------------------------------------------
940 ; BASIC
941 ;-------------------------------------------------------------------------
942
943 LOMEM   = $80           ;2-byte low memory pointer
944 VNTP    = $82           ;2-byte variable name table address
945 VNTD    = $84           ;2-byte variable name table end + 1
946 VVTP    = $86           ;2-byte variable value table
947 STMTAB  = $88           ;2-byte statement table address
948 STMCUR  = $8A           ;2-byte current statement pointer
949 STARP   = $8C           ;2-byte string and array table pointer
950 RUNSTK  = $8E           ;2-byte runtime stack address
951 BMEMTOP = $90           ;2-byte top of memory pointer
952 STOPLN  = $BA           ;2-byte stopped line number
953 ERRSAVE = $C3           ;1-byte error code
954 PTABW   = $C9           ;1-byte tab width
955
956 ;-------------------------------------------------------------------------
957 ; ATASCII CHARACTER DEFS
958 ;-------------------------------------------------------------------------
959
960 ATCLR   = $7D           ;CLEAR SCREEN CHARACTER
961 ATRUB   = $7E           ;BACK SPACE (RUBOUT)
962 ATTAB   = $7F           ;TAB
963 ATEOL   = $9B           ;END-OF-LINE
964 ATDELL  = $9C           ;delete line
965 ATINSL  = $9D           ;insert line
966 ATCTAB  = $9E           ;clear TAB
967 ATSTAB  = $9F           ;set TAB
968 ATBEL   = $FD           ;CONSOLE BELL
969 ATDEL   = $FE           ;delete char.
970 ATINS   = $FF           ;insert char.
971 ATURW   = $1C           ;UP-ARROW
972 ATDRW   = $1D           ;DOWN-ARROW
973 ATLRW   = $1E           ;LEFT-ARROW
974 ATRRW   = $1F           ;RIGHT-ARROW
975 ATESC   = $1B           ;ESCAPE
976
977 ;-------------------------------------------------------------------------
978 ; OFFSETS INTO SECTSIZETAB (DIO functions)
979 ;-------------------------------------------------------------------------
980
981 sst_flag     = 0        ; length 1
982 sst_sectsize = 1        ;        2
983 sst_driveno  = 3        ;        1  (drive #)
984 sst_size     = 4        ; size of one entry
985                         ; if changed, adapt diopncls.s
986
987 ;-------------------------------------------------------------------------
988 ; OFFSETS INTO dio_phys_pos
989 ;-------------------------------------------------------------------------
990
991 diopp_head   = 0        ; head
992 diopp_track  = 1        ; track / cylinder
993 diopp_sector = 3        ; sector
994 diopp_size   = 5        ; size of structure
995
996 ;-------------------------------------------------------------------------
997 ; VALUES for dos_type
998 ;-------------------------------------------------------------------------
999
1000 ATARIDOS     = 0
1001 SPARTADOS    = 1
1002 OSADOS       = 2        ; OS/A+
1003 MYDOS        = 3
1004 XDOS         = 4
1005 NODOS        = 255
1006
1007 ;-------------------------------------------------------------------------
1008 ; End of atari.inc
1009 ;-------------------------------------------------------------------------