A2osX/ProDOS.FX/ProDOS.S.txt

271 lines
6.7 KiB
Plaintext
Raw Normal View History

2019-10-16 06:09:13 +00:00
NEW
AUTO 3,1
.LIST OFF
.OP 65816
.OR $2000
2019-11-01 20:06:04 +00:00
* .TF PRODOS,TSYS
.TF PRODOS.FX
2019-10-16 06:09:13 +00:00
*--------------------------------------
.INB INC/ZP.I
.INB INC/IO.I
.INB INC/MONITOR.I
.INB INC/MLI.I
.INB INC/MLI.E.I
*--------------------------------------
MMStartUp .EQ $0202
NewHandle .EQ $0902
PtrToHand .EQ $2802
MessageCenter .EQ $1501
DisposeHandle .EQ $1002
MMShutDown .EQ $0302
ReadTimeHex .EQ $0D03
Int2Hex .EQ $220B
TLTextMountVolume .EQ $1201
*--------------------------------------
.MA SHORTMX
sep #$30
.EM
.MA SHORTM
sep #$20
.EM
.MA SHORTX
sep #$10
.EM
.MA LONGMX
rep #$30
.EM
.MA LONGM
rep #$20
.EM
.MA LONGX
rep #$10
.EM
*--------------------------------------
.MA IIGS
ldx ##]1
jsl $E10000
.EM
*--------------------------------------
P8QUIT .EQ $E0D000
GSOS .EQ $E100A8
GSOS2 .EQ $E100B0
OS_BOOT .EQ $E100BD indicates O/S initially booted*--------------------------------------
2019-11-01 20:06:04 +00:00
2019-10-16 06:09:13 +00:00
lookptr .EQ $0A
idapple .EQ $0C model machine id
idxl .EQ $10 general use 16 bit index pointer
devid .EQ $12
src .EQ $12
dst .EQ $14
cnt .EQ $16
cde .EQ $18
ecde .EQ $1A
wndbtm .EQ $23
pcl .EQ $3A
pch .EQ $3B
A1L .EQ $3C
A1H .EQ $3D
A2L .EQ $3E
A2H .EQ $3F
A3L .EQ $40
A4L .EQ $42
unitnum .EQ $43
buf .EQ $44 2-byte data buffer pointer which
2019-10-19 18:35:30 +00:00
*accsav .EQ $45 overlaps accsav (temp acc save byte)
2019-10-16 06:09:13 +00:00
bloknml .EQ $46 used mostly as 16 bit block # pointer
zpt .EQ $48 highly used zero page index pointer
datptr .EQ $4A ptr to data area of buffer.
sos .EQ $4C sos buffer pointer.
usrbuf .EQ $4E data ptr in user buffer.
* zero page variables for Bird's Better Bye
smparms .EQ $60 set mark parms
sm_refn .EQ $61 file reference number
fpos_lo .EQ $62 new file position (3 bytes)
fpos_mid .EQ $63
fpos_hi .EQ $64
lstpntr .EQ $65 device list pointer (16 bit)
valcnt .EQ $67 name counter
filecount .EQ $68 # of displayable files in directory
namelen .EQ $69 length of filename
gp_cnt .EQ $6A general purpose counter
dlevel .EQ $6B directory level
fnstore .EQ $6C filename storage pointer (16 bit)
entlen .EQ $6E directory entry length
entblk .EQ $6F directory entries/block
filecnt .EQ $70 directory file count (16 bit)
blkfl .EQ $72 block flag / file counter
topname .EQ $73 index # of top name in display
filetyps .EQ $74 128 byte table of filetypes
errnum .EQ $DE
*--------------------------------------
auxsp .EQ $0101
RAMXDRV .EQ $0200 load address for aux bank /RAM driver
inbuf .EQ $0200 keyboard buffer
pbuf .EQ $0280 prefix buffer
softev .EQ $03F2 RESET vector
pwredup .EQ $03F4 power up byte
nmivect .EQ $03FB nmi handler
txtp2 .EQ $0400 test location for aux card
vmode .EQ $04FB video firmware operating mode
2019-10-17 20:21:22 +00:00
2019-10-16 06:09:13 +00:00
ch80col .EQ $057B 80 column ch position
vline5 .EQ $0600 line 5 of display
vline10 .EQ $04A8 line 10 of display
vline11 .EQ $0528 line 11 of display
vline12 .EQ $05A8 line 12 of display
vline13 .EQ $0628 line 13 of display
vline14 .EQ $06A8 line 14 of display
vline16 .EQ $07A8 line 16 of display
vline23 .EQ $0750 line 23 of display
vline24 .EQ $07D0 line 24 of display
DirBlkBuf .EQ $0C00
dbuf .EQ $0C00 8 page directory buffer
vblock1 .EQ $0E00 ramdisk directory block
volbuf .EQ $0F00 volume buffer
dispadr .EQ $1000
iobuf .EQ $1400 i/o buffer
fbuf .EQ $1800 FCB buffer
op_buf .EQ $1C00 open file buffer (selector)
sysentry .EQ $2000 .SYS file load address
phaseoff .EQ $C080 disk port
motoroff .EQ $C088 disk port
motoron .EQ $C089 disk port
drv0en .EQ $C08A disk port
q6l .EQ $C08C disk port
q6h .EQ $C08D disk port
q7l .EQ $C08E disk port
q7h .EQ $C08F disk port
rdtcp .EQ $C108 Thunderclock read entry
wttcp .EQ $C10B Thunderclock write entry
auxmove .EQ $C311 move (3C)-(3E) to (42)
xfer .EQ $C314
rwts .EQ $D000 disk ii driver in bank 1
displc2 .EQ $D100 system death routine stored in bank 2
pathbuf .EQ $D700 pathname buffer
tclk_in .EQ $D742 clock driver in bank 2
fcbbuf .EQ $D800 fcb buffer
vcbbuf .EQ $D900 vcb buffer
bmbuf .EQ $DA00 512 byte bitmap buffer
gbuf .EQ $DC00 general purpose 512 byte block buffer
*--------------------------------------
2019-11-01 20:06:04 +00:00
.DUMMY
.OR $10
ZPPtr1 .BS 2
ZPPtr2 .BS 2
ZPInBufPtr .BS 2
ZPOutBufPtr .BS 2
ZPnCnt .BS 2
ZPInMask .BS 1
ZPBLOfsLBits .BS 1
ZPBLOfsHBits .BS 1
ZPBLLenBits .BS 1
.ED
2019-10-16 06:09:13 +00:00
*--------------------------------------
.INB USR/SRC/PRODOS.FX/PRODOS.S.LDR.A
.INB USR/SRC/PRODOS.FX/PRODOS.S.LDR.B
2019-11-01 20:06:04 +00:00
.INB USR/SRC/SHARED/X.UNPAK.S
PAKME.Table
PAKME.ILDR .DA ILDR
PAKME.GP .DA GP
PAKME.XRW .DA XRW
PAKME.XDOS .DA XDOS
PAKME.IRQ .DA IRQ
PAKME.RAM .DA RAM
PAKME.RAMX .DA RAMX
PAKME.TCLK .DA TCLK
PAKME.CCLK .DA CCLK
PAKME.SEL1 .DA SEL1
PAKME.SEL2 .DA SEL2
2019-10-16 06:09:13 +00:00
2019-11-01 20:06:04 +00:00
ILDR .DA #0
.DA ILDR.LEN
.PH $800
2019-10-31 06:54:28 +00:00
.INB USR/SRC/PRODOS.FX/PRODOS.S.ILDR
.EP
2019-11-01 20:06:04 +00:00
GP .DA #0
.DA GP.LEN
.PH $BF00
2019-10-16 06:09:13 +00:00
.INB USR/SRC/PRODOS.FX/PRODOS.S.GP
.EP
2019-11-01 20:06:04 +00:00
XRW .DA #0
.DA XRW.LEN
.PH $D000
.INB USR/SRC/PRODOS.FX/PRODOS.S.XRW
2019-10-16 06:09:13 +00:00
.EP
2019-11-01 20:06:04 +00:00
XDOS .DA #0
.DA XDOS.LEN
.PH $DE00
2019-10-16 06:09:13 +00:00
.INB USR/SRC/PRODOS.FX/PRODOS.S.XDOS.A
.INB USR/SRC/PRODOS.FX/PRODOS.S.XDOS.B
.INB USR/SRC/PRODOS.FX/PRODOS.S.XDOS.C
.INB USR/SRC/PRODOS.FX/PRODOS.S.XDOS.D
.INB USR/SRC/PRODOS.FX/PRODOS.S.XDOS.E
.INB USR/SRC/PRODOS.FX/PRODOS.S.XDOS.F
.EP
2019-11-01 20:06:04 +00:00
IRQ .DA #0
.DA IRQ.LEN
.PH $FF9B
.INB USR/SRC/PRODOS.FX/PRODOS.S.IRQ
.EP
RAM .DA #0
.DA RAM.LEN
.PH $FF00
.INB USR/SRC/PRODOS.FX/PRODOS.S.RAM
.EP
RAMX .DA #0
.DA RAMX.LEN
.PH $200
2019-10-16 06:09:13 +00:00
.INB USR/SRC/PRODOS.FX/PRODOS.S.RAMX
.EP
2019-11-01 20:06:04 +00:00
TCLK .DA #0
.DA TCLK.LEN
.PH $D742
.INB USR/SRC/PRODOS.FX/PRODOS.S.TCLK
2019-10-16 06:09:13 +00:00
.EP
2019-11-01 20:06:04 +00:00
CCLK .DA #0
.DA CCLK.LEN
.PH $D742
.INB USR/SRC/PRODOS.FX/PRODOS.S.CCLK
2019-10-16 06:09:13 +00:00
.EP
2019-11-01 20:06:04 +00:00
SEL1 .DA #0
.DA SEL1.LEN
.PH $1000
2019-10-16 06:09:13 +00:00
.INB USR/SRC/PRODOS.FX/PRODOS.S.SEL1
.EP
2019-11-01 20:06:04 +00:00
SEL2 .DA #0
.DA SEL2.LEN
.PH $1000
2019-10-16 06:09:13 +00:00
.INB USR/SRC/PRODOS.FX/PRODOS.S.SEL2
.EP
2019-11-01 20:06:04 +00:00
*--------------------------------------
.AS "PAKME" TAG
.DA $2000 BIN ORG
.DA #11 Chunk Count
.DA PAKME.Table Chunks
2019-10-16 06:09:13 +00:00
*--------------------------------------
MAN
SAVE USR/SRC/PRODOS.FX/PRODOS.S
ASM