2017-12-22 21:24:30 +00:00
|
|
|
|
NEW
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2017-12-22 21:24:30 +00:00
|
|
|
|
AUTO 4,1
|
2016-10-07 15:28:17 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
* DRV.DiskII
|
2018-06-19 05:55:12 +00:00
|
|
|
|
* X = IOCTL
|
2018-06-20 15:02:09 +00:00
|
|
|
|
* Y,A = PTR to S.IOCTL
|
2017-10-18 15:32:56 +00:00
|
|
|
|
* pDev -> Dev Header AUX!!!
|
|
|
|
|
* $42 Command Number
|
|
|
|
|
* $43 Unit Number
|
|
|
|
|
* $44-$45 Buffer Pointer
|
|
|
|
|
* $46-$47 Block Number
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.DiskII cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.1 .DA DRV.DiskII.S status
|
|
|
|
|
.DA DRV.DiskII.RW Read
|
|
|
|
|
.DA DRV.DiskII.RW Write
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA A2osX.BadCall Format
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
DRV.DiskII.S >LDYAI DRV.DiskII.Stat
|
2017-10-18 15:32:56 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.DiskII.RW >STYA A2osX.RW.SrcDst+1
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.BlkDevice.GetCmdAndDevAX
|
2017-11-22 16:27:50 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
ldy #$D0
|
|
|
|
|
.HS 2C bit abs
|
|
|
|
|
A2osX.RamDrv.RW1
|
|
|
|
|
ldy #$FF
|
|
|
|
|
|
|
|
|
|
sty A2osX.RW.Drv+2
|
|
|
|
|
|
|
|
|
|
jsr GO.ProDOS
|
|
|
|
|
stx $42
|
|
|
|
|
sta $43
|
|
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
|
|
|
|
|
|
A2osX.RW.SrcDst lda $ffff,y Self Modified
|
|
|
|
|
sta $44,y
|
|
|
|
|
dey
|
|
|
|
|
bpl A2osX.RW.SrcDst
|
|
|
|
|
|
|
|
|
|
A2osX.RW.Drv jsr $0000
|
|
|
|
|
cli
|
|
|
|
|
jsr GO.A2osX
|
|
|
|
|
rts
|
2017-10-18 15:32:56 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.DiskII.Stat .DA #S.DSTAT.S.BLOCK+S.DSTAT.S.WRITE+S.DSTAT.S.READ
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA 280
|
|
|
|
|
.DA #0
|
|
|
|
|
>PSTR "Disk II 5.25"
|
|
|
|
|
.BS 4
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.DA #S.DSTAT.T.DISKII
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA #0
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.DA KVER
|
2017-10-18 15:32:56 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
* DRV.RamDrive
|
2018-06-19 05:55:12 +00:00
|
|
|
|
* X = IOCTL
|
2018-06-20 15:02:09 +00:00
|
|
|
|
* Y,A = PTR to S.IOCTL
|
2017-11-07 16:28:34 +00:00
|
|
|
|
* pDev -> Dev Header AUX!!!
|
|
|
|
|
* $42 Command Number
|
|
|
|
|
* $43 Unit Number
|
|
|
|
|
* $44-$45 Buffer Pointer
|
|
|
|
|
* $46-$47 Block Number
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.RamDrive cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.1 .DA DRV.RamDrive.S status
|
|
|
|
|
.DA DRV.RamDrive.RW Read
|
|
|
|
|
.DA DRV.RamDrive.RW Write
|
2017-11-07 16:28:34 +00:00
|
|
|
|
.DA A2osX.BadCall Format
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
DRV.RamDrive.S jsr DRV.BlkDevice.GetCmdAndDevAX
|
2017-11-22 16:27:50 +00:00
|
|
|
|
jsr GO.ProDOS
|
|
|
|
|
stx $42
|
|
|
|
|
sta $43
|
|
|
|
|
jsr $FF00
|
|
|
|
|
jsr GO.A2osX
|
2017-11-07 16:28:34 +00:00
|
|
|
|
bcs .9
|
2018-06-20 15:02:09 +00:00
|
|
|
|
stx DRV.RamDrive.Stat+S.DSTAT.SIZE
|
|
|
|
|
sty DRV.RamDrive.Stat+S.DSTAT.SIZE+1
|
2017-11-07 16:28:34 +00:00
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
>LDYAI DRV.RamDrive.Stat
|
2017-11-07 16:28:34 +00:00
|
|
|
|
clc
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.RamDrive.RW >STYA A2osX.RW.SrcDst+1
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.BlkDevice.GetCmdAndDevAX
|
2017-11-22 16:27:50 +00:00
|
|
|
|
bra A2osX.RamDrv.RW1
|
2017-11-07 16:28:34 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.RamDrive.Stat
|
2017-11-07 16:28:34 +00:00
|
|
|
|
.DA #S.DSTAT.S.BLOCK+S.DSTAT.S.WRITE+S.DSTAT.S.READ
|
|
|
|
|
.BS 3
|
|
|
|
|
>PSTR "ProDOS /RAM Disk"
|
|
|
|
|
.DA #S.DSTAT.T.RAM
|
|
|
|
|
.DA #0
|
2018-06-25 05:59:43 +00:00
|
|
|
|
.DA KVER
|
2017-11-07 16:28:34 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
* DRV.BlkDevice
|
2018-06-19 05:55:12 +00:00
|
|
|
|
* X = IOCTL
|
2018-06-20 15:02:09 +00:00
|
|
|
|
* Y,A = PTR to S.IOCTL
|
2017-10-18 15:32:56 +00:00
|
|
|
|
* pDev -> Dev Header
|
|
|
|
|
* $42 Command Number
|
|
|
|
|
* $43 Unit Number
|
|
|
|
|
* $44-$45 Buffer Pointer
|
|
|
|
|
* $46-$47 Block Number
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.1 .DA DRV.BlkDevice.S status
|
|
|
|
|
.DA DRV.BlkDevice.RW
|
|
|
|
|
.DA DRV.BlkDevice.RW
|
|
|
|
|
.DA DRV.BlkDevice.F
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
.DA A2osX.BadCall
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
DRV.BlkDevice.S jsr DRV.BlkDevice.GetCmdAndDev
|
2017-10-18 15:32:56 +00:00
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.BlkDevice.Go
|
2017-10-18 15:32:56 +00:00
|
|
|
|
bcs .9
|
2018-06-22 06:24:35 +00:00
|
|
|
|
stx DRV.BlkDevice.Stat+S.DSTAT.SIZE
|
|
|
|
|
sty DRV.BlkDevice.Stat+S.DSTAT.SIZE+1
|
2017-10-18 15:32:56 +00:00
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
>LDYAI DRV.BlkDevice.Stat
|
2017-10-18 15:32:56 +00:00
|
|
|
|
clc
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.RW
|
2018-06-22 06:24:35 +00:00
|
|
|
|
>STYA DRV.BlkDevice.GetParam.1+1
|
2017-10-18 15:32:56 +00:00
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsrDRV.BlkDevice.GetCmdAndDev
|
2017-10-18 15:32:56 +00:00
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.BlkDevice.GetParam
|
|
|
|
|
bra DRV.BlkDevice.Go
|
2017-10-18 15:32:56 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
DRV.BlkDevice.F jsr DRV.BlkDevice.GetCmdAndDev
|
2017-10-18 15:32:56 +00:00
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.Go
|
2018-06-22 06:24:35 +00:00
|
|
|
|
ldy #S.NODE.DEV.ROMPTR
|
2017-10-18 15:32:56 +00:00
|
|
|
|
lda (pDev),y
|
|
|
|
|
sta .8+1
|
|
|
|
|
iny
|
|
|
|
|
lda (pDev),y
|
|
|
|
|
sta .8+2
|
|
|
|
|
.8 jmp $ffff
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.GetParam
|
2017-10-18 15:32:56 +00:00
|
|
|
|
ldy #3
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.GetParam.1
|
2017-10-18 15:32:56 +00:00
|
|
|
|
lda $ffff,y Self Modified
|
|
|
|
|
sta $44,y
|
|
|
|
|
dey
|
2018-06-22 06:24:35 +00:00
|
|
|
|
bpl DRV.BlkDevice.GetParam.1
|
2017-10-18 15:32:56 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.GetCmdAndDev
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.BlkDevice.GetCmdAndDevAX
|
2017-10-18 15:32:56 +00:00
|
|
|
|
stx $42
|
|
|
|
|
sta $43
|
|
|
|
|
rts
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.GetCmdAndDevAX
|
2017-10-18 15:32:56 +00:00
|
|
|
|
txa
|
|
|
|
|
lsr
|
|
|
|
|
tax CMD
|
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
ldy #S.NODE.DEV.DEVID Drive 1, or 2
|
2017-10-18 15:32:56 +00:00
|
|
|
|
lda (pDev),y
|
|
|
|
|
dec O or 1
|
|
|
|
|
lsr in Carry
|
|
|
|
|
php
|
|
|
|
|
|
2018-06-22 06:24:35 +00:00
|
|
|
|
ldy #S.NODE.DEV.BUSID
|
2017-10-18 15:32:56 +00:00
|
|
|
|
lda (pDev),y
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
asl
|
|
|
|
|
plp
|
|
|
|
|
ror DSSS0000
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.BlkDevice.Stat
|
|
|
|
|
.DA #S.DSTAT.S.BLOCK+S.DSTAT.S.WRITE+S.DSTAT.S.READ
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.BS 3
|
|
|
|
|
>PSTR "ProDOS Block Dev"
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.DA #S.DSTAT.T.PRODOS
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA #0
|
2018-06-25 05:59:43 +00:00
|
|
|
|
.DA KVER
|
2017-10-18 15:32:56 +00:00
|
|
|
|
*--------------------------------------
|
2017-03-21 16:29:15 +00:00
|
|
|
|
* Smartport Driver
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.1 .DA DRV.SmartPort.S STATUS
|
|
|
|
|
.DA DRV.SmartPort.P BR
|
|
|
|
|
.DA DRV.SmartPort.P BW
|
|
|
|
|
.DA DRV.SmartPort.NP FORMAT
|
|
|
|
|
.DA DRV.SmartPort.P CONTROL
|
|
|
|
|
.DA DRV.SmartPort.NP INIT
|
|
|
|
|
.DA DRV.SmartPort.NP OPEN
|
|
|
|
|
.DA DRV.SmartPort.NP CLOSE
|
|
|
|
|
.DA DRV.SmartPort.P R
|
|
|
|
|
.DA DRV.SmartPort.P W
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
DRV.SmartPort.S jsr DRV.SmartPort.GetDev
|
2017-10-27 06:36:46 +00:00
|
|
|
|
>LDYAI K.S.DSTAT
|
2018-06-22 14:59:24 +00:00
|
|
|
|
>STYA K.S.IOCTL+S.IOCTL.BUFPTR
|
|
|
|
|
lda #S.IOCTL.STATCODE.GETDIB
|
|
|
|
|
sta K.S.IOCTL+S.IOCTL.CTRLCODE
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.SmartPort.Go
|
2017-03-21 16:29:15 +00:00
|
|
|
|
bcs .9
|
2017-10-27 06:36:46 +00:00
|
|
|
|
>LDYAI K.S.DSTAT
|
2017-03-21 16:29:15 +00:00
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
DRV.SmartPort.P jsr DRV.SmartPort.GetParam
|
|
|
|
|
bra DRV.SmartPort.Go
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort.NP
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.SmartPort.GetDev
|
2017-03-21 16:29:15 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort.Go
|
2018-06-22 06:24:35 +00:00
|
|
|
|
ldy #S.NODE.DEV.ROMPTR
|
2017-03-21 16:29:15 +00:00
|
|
|
|
lda (pDev),y
|
|
|
|
|
sta .8+1
|
|
|
|
|
iny
|
|
|
|
|
lda (pDev),y
|
|
|
|
|
sta .8+2
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-03-21 16:29:15 +00:00
|
|
|
|
.8 jsr $ffff
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort.Go.Cmd
|
2017-03-21 16:29:15 +00:00
|
|
|
|
.BS 1
|
2018-06-22 06:24:35 +00:00
|
|
|
|
.DA K.S.IOCTL
|
2017-03-21 16:29:15 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort.GetParam
|
2017-03-21 16:29:15 +00:00
|
|
|
|
>STYA ZPDRV Get Ptr To ParamList
|
2018-06-22 06:24:35 +00:00
|
|
|
|
jsr DRV.BlkDevice.GetCmdAndDev
|
2017-03-21 16:29:15 +00:00
|
|
|
|
|
|
|
|
|
ldy #7
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPDRV),y
|
2018-06-22 06:24:35 +00:00
|
|
|
|
sta K.S.IOCTL+2,y
|
2017-03-21 16:29:15 +00:00
|
|
|
|
dey
|
|
|
|
|
bpl .1
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort.GetDev
|
2017-03-21 16:29:15 +00:00
|
|
|
|
txa
|
2017-04-10 06:07:14 +00:00
|
|
|
|
lsr
|
2018-06-22 06:24:35 +00:00
|
|
|
|
sta DRV.SmartPort.Go.Cmd
|
2017-03-21 16:29:15 +00:00
|
|
|
|
tax
|
2018-06-22 06:24:35 +00:00
|
|
|
|
lda DRV.SmartPort.Cnt,x
|
2018-06-22 14:59:24 +00:00
|
|
|
|
sta K.S.IOCTL+S.IOCTL.CNT
|
2017-03-21 16:29:15 +00:00
|
|
|
|
rts
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SmartPort.Cnt
|
2017-09-13 06:17:46 +00:00
|
|
|
|
.HS 03030301030101010404
|
2017-03-21 16:29:15 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-21 16:27:07 +00:00
|
|
|
|
* NULL DEVICE
|
|
|
|
|
*--------------------------------------
|
2018-06-21 15:12:10 +00:00
|
|
|
|
DRV.NULL cld
|
2018-06-20 15:02:09 +00:00
|
|
|
|
jmp (.1,x)
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.1 .DA .2 STATUS
|
2017-09-13 06:17:46 +00:00
|
|
|
|
.DA A2osX.BADCALL READBLOCK
|
|
|
|
|
.DA A2osX.BADCALL WRITEBLOCK
|
|
|
|
|
.DA A2osX.BADCALL FORMAT
|
|
|
|
|
.DA A2osX.BADCALL CONTROL
|
|
|
|
|
.DA A2osX.BADCALL INIT
|
|
|
|
|
.DA A2osX.BADCALL OPEN
|
|
|
|
|
.DA A2osX.BADCALL CLOSE
|
|
|
|
|
.DA A2osX.BADCALL READ
|
|
|
|
|
.DA .8 WRITE
|
2016-10-07 15:28:17 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.2 >LDYAI .3
|
2018-06-18 06:22:50 +00:00
|
|
|
|
.8 clc
|
2017-01-25 21:46:40 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
.3 .DA #S.DSTAT.S.WRITE+S.DSTAT.S.READ
|
2017-01-25 21:46:40 +00:00
|
|
|
|
.DA #0,#0,#0
|
2018-06-18 06:22:50 +00:00
|
|
|
|
>PSTR "NULL DEVICE"
|
|
|
|
|
.BS 5
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.DA #S.DSTAT.T.CHAR
|
2017-01-25 21:46:40 +00:00
|
|
|
|
.DA #0
|
2018-06-14 15:31:36 +00:00
|
|
|
|
.DA KVER
|
2017-01-25 21:46:40 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-21 16:27:07 +00:00
|
|
|
|
* SYS DEVICE
|
|
|
|
|
*--------------------------------------
|
2018-06-21 15:12:10 +00:00
|
|
|
|
DRV.SYS cld
|
2018-06-20 15:02:09 +00:00
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.1 .DA .2 STATUS
|
2017-09-13 06:17:46 +00:00
|
|
|
|
.DA A2osX.BADCALL READBLOCK
|
|
|
|
|
.DA A2osX.BADCALL WRITEBLOCK
|
|
|
|
|
.DA A2osX.BADCALL FORMAT
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.DA DRV.SYS.Control
|
2017-09-13 06:17:46 +00:00
|
|
|
|
.DA A2osX.BADCALL INIT
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.DA DRV.SYS.Open
|
2017-09-13 06:17:46 +00:00
|
|
|
|
.DA A2osX.BADCALL CLOSE
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.DA DRV.SYS.Read
|
|
|
|
|
.DA DRV.SYS.Write
|
2016-10-07 15:28:17 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.2 >LDYAI .3
|
2017-01-12 17:43:45 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-22 06:24:35 +00:00
|
|
|
|
.3 .DA #S.DSTAT.S.WRITE+S.DSTAT.S.READ
|
2017-01-12 17:43:45 +00:00
|
|
|
|
.DA #0,#0,#0
|
|
|
|
|
>PSTR "A2osX SYS Screen"
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.DA #S.DSTAT.T.CHAR
|
2017-01-12 17:43:45 +00:00
|
|
|
|
.DA #0
|
2018-06-14 15:31:36 +00:00
|
|
|
|
.DA KVER
|
2017-01-12 17:43:45 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.Open lda #1
|
|
|
|
|
sta A2osX.SCRNDEVS+1
|
|
|
|
|
jsr DRV.SYS.Home
|
2016-11-13 21:03:31 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.Control sta SETTEXT
|
2016-11-13 21:03:31 +00:00
|
|
|
|
sta SETALTCHAR
|
|
|
|
|
sta SET80DISP
|
|
|
|
|
sta CLR80STORE
|
2018-06-20 15:02:09 +00:00
|
|
|
|
sta SETPAGE2
|
|
|
|
|
lda #2
|
2016-12-05 17:04:42 +00:00
|
|
|
|
sta A2osX.ASCREEN
|
2016-10-07 15:28:17 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.Read lda A2osX.ASCREEN
|
|
|
|
|
cmp #2 is SYS active?
|
2016-10-07 15:28:17 +00:00
|
|
|
|
bne .9
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
lda OPENAPPLE
|
|
|
|
|
bmi .9 Open apple key, not for us...
|
|
|
|
|
lda KBD
|
|
|
|
|
bpl .9
|
|
|
|
|
sta KBDSTROBE
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
and #$7F
|
2017-02-08 16:42:32 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
.9 lda #0 Error = no event
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.Write phx
|
2016-10-07 15:28:17 +00:00
|
|
|
|
phy
|
|
|
|
|
cmp #' '
|
2017-11-22 16:27:50 +00:00
|
|
|
|
bcs .7
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
cmp #10
|
|
|
|
|
bne .1
|
2018-06-20 15:02:09 +00:00
|
|
|
|
jsr DRV.SYS.LF
|
2016-10-07 15:28:17 +00:00
|
|
|
|
bra .8
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
.1 cmp #13
|
|
|
|
|
bne .2
|
2018-06-20 15:02:09 +00:00
|
|
|
|
jsr DRV.SYS.CR
|
2016-10-07 15:28:17 +00:00
|
|
|
|
bra .8
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
.2 ora #$20
|
|
|
|
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
|
|
|
|
.7 ora #$80
|
2018-06-20 15:02:09 +00:00
|
|
|
|
ldy DRV.SYS.CH
|
|
|
|
|
ldx DRV.SYS.CV
|
|
|
|
|
jsr DRV.SYS.SetCharAtYX
|
|
|
|
|
jsr DRV.SYS.FSOut
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
.8 ply
|
|
|
|
|
plx
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.FSOut lda DRV.SYS.CH
|
2016-10-07 15:28:17 +00:00
|
|
|
|
cmp #79
|
2017-02-28 16:58:36 +00:00
|
|
|
|
bne .1
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
stz DRV.SYS.CH
|
|
|
|
|
bra DRV.SYS.LF
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.1 inc DRV.SYS.CH
|
2016-10-07 15:28:17 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.CR jsr DRV.SYS.ClrEOL
|
|
|
|
|
stz DRV.SYS.CH
|
2017-02-28 16:58:36 +00:00
|
|
|
|
rts
|
2016-10-07 15:28:17 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.LF ldx DRV.SYS.CV
|
2016-10-07 15:28:17 +00:00
|
|
|
|
cpx #23
|
2018-06-20 15:02:09 +00:00
|
|
|
|
beq DRV.SYS.Scroll
|
|
|
|
|
inc DRV.SYS.CV
|
2016-10-07 15:28:17 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.ClrEOL ldx DRV.SYS.CV
|
2016-10-07 15:28:17 +00:00
|
|
|
|
lda #$A0
|
2018-06-20 15:02:09 +00:00
|
|
|
|
ldy DRV.SYS.CH
|
2016-10-07 15:28:17 +00:00
|
|
|
|
.1 cpy #79
|
|
|
|
|
beq .2
|
2018-06-20 15:02:09 +00:00
|
|
|
|
jsr DRV.SYS.SetCharAtYX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
iny
|
|
|
|
|
bne .1
|
|
|
|
|
.2 rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.ScrollAux
|
2017-11-23 16:51:52 +00:00
|
|
|
|
sta SETREADAUX
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPDRV+2),y
|
|
|
|
|
sta (ZPDRV),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
sta CLRREADAUX
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.Scroll ldx #1
|
|
|
|
|
.1 jsr DRV.SYS.SetBaseX
|
2017-11-22 16:27:50 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
inx
|
2018-06-20 15:02:09 +00:00
|
|
|
|
lda DRV.SYS.BASEL,x
|
2016-10-07 15:28:17 +00:00
|
|
|
|
sta ZPDRV+2
|
2018-06-20 15:02:09 +00:00
|
|
|
|
lda DRV.SYS.BASEH,x
|
2016-10-07 15:28:17 +00:00
|
|
|
|
sta ZPDRV+3
|
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
ldx #DRV.SYS.Scroll-DRV.SYS.ScrollAux-1
|
2017-11-23 16:51:52 +00:00
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.2 lda DRV.SYS.ScrollAux,x
|
2017-11-23 16:51:52 +00:00
|
|
|
|
sta $102,x
|
|
|
|
|
dex
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
ldy #39
|
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta SETWRITEAUX
|
2017-11-23 16:51:52 +00:00
|
|
|
|
jsr $102
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta CLRWRITEAUX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
|
2017-02-07 07:27:27 +00:00
|
|
|
|
ldy #39
|
2017-11-21 16:27:07 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
.3 lda (ZPDRV+2),y
|
|
|
|
|
sta (ZPDRV),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .3
|
|
|
|
|
|
|
|
|
|
cpx #23
|
|
|
|
|
bne .1 Fall in ClrLineAtX for last line
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.ClrLineAtX
|
|
|
|
|
jsr DRV.SYS.SetBaseX
|
2017-02-07 07:27:27 +00:00
|
|
|
|
|
2017-11-21 16:27:07 +00:00
|
|
|
|
lda #$A0
|
|
|
|
|
ldy #39
|
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
.1 sta SETWRITEAUX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
sta (ZPDRV),y
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta CLRWRITEAUX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
sta (ZPDRV),y
|
|
|
|
|
dey
|
|
|
|
|
bpl .1
|
2017-11-21 16:27:07 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.Home ldx #23
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
.1 jsr DRV.SYS.ClrLineAtX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
dex
|
|
|
|
|
bne .1
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2018-06-20 15:02:09 +00:00
|
|
|
|
stz DRV.SYS.CH
|
2016-10-07 15:28:17 +00:00
|
|
|
|
lda #1
|
2018-06-20 15:02:09 +00:00
|
|
|
|
sta DRV.SYS.CV
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2016-10-07 15:28:17 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.SetCharAtYX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
cmp #$40
|
|
|
|
|
bcc .1
|
|
|
|
|
cmp #$5F
|
|
|
|
|
bcs .1
|
|
|
|
|
and #$3F
|
2017-09-13 06:17:46 +00:00
|
|
|
|
|
2017-11-05 21:23:21 +00:00
|
|
|
|
.1 phy
|
2016-10-07 15:28:17 +00:00
|
|
|
|
pha
|
2018-06-20 15:02:09 +00:00
|
|
|
|
jsr DRV.SYS.SetBaseX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
tya
|
|
|
|
|
lsr
|
|
|
|
|
tay
|
2017-11-21 16:27:07 +00:00
|
|
|
|
|
2017-11-05 21:23:21 +00:00
|
|
|
|
pla
|
|
|
|
|
|
2017-11-21 16:27:07 +00:00
|
|
|
|
bcs .2
|
|
|
|
|
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta SETWRITEAUX
|
2016-10-07 15:28:17 +00:00
|
|
|
|
sta (ZPDRV),y
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta CLRWRITEAUX
|
2018-06-25 05:59:43 +00:00
|
|
|
|
|
2017-11-05 21:23:21 +00:00
|
|
|
|
ply
|
|
|
|
|
rts
|
|
|
|
|
|
2017-11-21 16:27:07 +00:00
|
|
|
|
.2 sta (ZPDRV),y
|
2017-11-05 21:23:21 +00:00
|
|
|
|
ply
|
2016-10-07 15:28:17 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.SetBaseX
|
|
|
|
|
lda DRV.SYS.BASEL,x
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta ZPDRV
|
2018-06-20 15:02:09 +00:00
|
|
|
|
lda DRV.SYS.BASEH,x
|
2017-11-22 16:27:50 +00:00
|
|
|
|
sta ZPDRV+1
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.CH .BS 1
|
|
|
|
|
DRV.SYS.CV .BS 1
|
2016-10-07 15:28:17 +00:00
|
|
|
|
*--------------------------------------
|
2018-06-20 15:02:09 +00:00
|
|
|
|
DRV.SYS.BASEL .HS 00.80.00.80.00.80.00.80.28.A8.28.A8.28.A8.28.A8.50.D0.50.D0.50.D0.50.D0
|
|
|
|
|
DRV.SYS.BASEH .HS 08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B
|
2016-10-07 15:28:17 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2018-06-18 15:48:00 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.DRV
|
2017-03-29 15:48:15 +00:00
|
|
|
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
2016-10-07 15:28:17 +00:00
|
|
|
|
ASM
|