2021-08-10 01:27:44 +00:00
|
|
|
* MISC.S
|
|
|
|
|
********
|
|
|
|
|
* Misc functions and API entry block
|
|
|
|
|
*
|
|
|
|
|
|
|
|
|
|
* OSBYTE $80 - ADVAL
|
|
|
|
|
************************************
|
|
|
|
|
* Read input device or buffer status
|
|
|
|
|
|
|
|
|
|
BYTE80 LDY #$00 ; Prepare return=&00xx
|
|
|
|
|
TXA ; X<0 - info about buffers
|
|
|
|
|
BMI ADVALBUF ; X>=0 - read input devices
|
|
|
|
|
CPX #$7F
|
|
|
|
|
BNE ADVALNONE
|
|
|
|
|
ADVALWAIT JSR KBDREAD
|
2021-08-12 20:58:13 +00:00
|
|
|
BCS ADVALWAIT
|
2021-08-10 01:27:44 +00:00
|
|
|
TAX
|
|
|
|
|
RTS
|
|
|
|
|
ADVALNONE LDX #$00 ; Input, just return 0
|
|
|
|
|
RTS
|
|
|
|
|
ADVALBUF INX
|
|
|
|
|
BEQ :ADVALKBD ; Fake keyboard buffer
|
|
|
|
|
INX
|
|
|
|
|
BEQ :ADVALOK ; Serial input, return 0
|
|
|
|
|
LDX #$01 ; For outputs, return 1 char free
|
|
|
|
|
RTS
|
|
|
|
|
:ADVALKBD BIT $C000 ; Test keyboard data/strobe
|
|
|
|
|
BPL :ADVALOK ; No Strobe, return 0
|
|
|
|
|
INX ; Strobe, return 1
|
|
|
|
|
:ADVALOK RTS
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
******************
|
|
|
|
|
* Helper functions
|
|
|
|
|
******************
|
|
|
|
|
|
|
|
|
|
* Beep
|
|
|
|
|
*
|
2021-08-12 20:58:13 +00:00
|
|
|
* Sound measurement shows the tone formula is:
|
|
|
|
|
* 1.230 MHz
|
|
|
|
|
* ------------- = cycles
|
|
|
|
|
* 8 * frequency
|
2021-08-10 01:27:44 +00:00
|
|
|
*
|
2021-08-12 20:58:13 +00:00
|
|
|
* cycles = BEEPX*5+10
|
2021-08-10 01:27:44 +00:00
|
|
|
*
|
2021-08-12 20:58:13 +00:00
|
|
|
* So:
|
|
|
|
|
* BEEPX = (cycles-10)/5
|
|
|
|
|
* So:
|
|
|
|
|
* BEEPX = ( 1.230 MHz )
|
|
|
|
|
* (------------- - 10 ) / 5
|
|
|
|
|
* (8 * frequency )
|
|
|
|
|
|
|
|
|
|
* BEEPX EQU 57 ; note=C5
|
|
|
|
|
BEEPX EQU 116 ; note=C4
|
|
|
|
|
BEEP PHA
|
|
|
|
|
PHX
|
|
|
|
|
PHY
|
|
|
|
|
LDY #$00 ; duration
|
|
|
|
|
:L1 LDX #BEEPX ; 2cy pitch 2cy
|
2021-08-10 01:27:44 +00:00
|
|
|
*------------------------------------------------
|
2021-08-12 20:58:13 +00:00
|
|
|
:L2 DEX ; 2cy BEEPX * 2cy
|
|
|
|
|
BNE :L2 ; 3cy/2cy (BEEPX-1) * 3cy + 1 * 2cy
|
2021-08-10 01:27:44 +00:00
|
|
|
*------------------------------------------------
|
2021-08-12 20:58:13 +00:00
|
|
|
* BEEPX*5-1cy
|
|
|
|
|
LDA $C030 ; 4cy BEEPX*5+5
|
|
|
|
|
DEY ; 2cy BEEPX*5+7
|
|
|
|
|
BNE :L1 ; 3cy/2cy BEEPX*5+10
|
|
|
|
|
PLY ;
|
2021-08-10 01:27:44 +00:00
|
|
|
PLX
|
|
|
|
|
PLA
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Delay approx 1/100 sec
|
2021-08-12 20:58:13 +00:00
|
|
|
************************
|
|
|
|
|
* Enter at DELAY with CS to test keyboard
|
|
|
|
|
* Enter at CENTI to ignore keyboard
|
|
|
|
|
*
|
|
|
|
|
CENTI CLC ; Don't test keyboard
|
|
|
|
|
DELAY PHX ; 3cy
|
|
|
|
|
PHY ; 3cy
|
|
|
|
|
LDY #10 ; 2cy 10 * 1/1000s
|
|
|
|
|
*------------------------------------------------
|
|
|
|
|
:L1 LDX #$48 ; 2cy $48 gives about 1/1000s
|
|
|
|
|
:L2 BCC :L3 ; 2cy/3cy Don't test kbd
|
|
|
|
|
LDA $C000 ; 4cy
|
|
|
|
|
BMI :L5 ; 2cy keypress, exit early
|
|
|
|
|
:L3 DEX ; 2cy
|
|
|
|
|
BNE :L2 ; 3cy/2cy -> 72*(2+2+4+2+2+3)-1
|
|
|
|
|
* ; = 1079 -> 0.00105s
|
|
|
|
|
*------------------------------------------------
|
|
|
|
|
:L4 DEY ; 2cy
|
|
|
|
|
BNE :L1 ; 3cy/2cy
|
|
|
|
|
:L5 PLY ; 4cy
|
|
|
|
|
PLX ; 4cy
|
|
|
|
|
RTS ; 6cy
|
2021-08-10 01:27:44 +00:00
|
|
|
|
|
|
|
|
* Print string pointed to by X,Y to the screen
|
|
|
|
|
OUTSTR TXA
|
|
|
|
|
|
|
|
|
|
* Print string pointed to by A,Y to the screen
|
|
|
|
|
PRSTR STA OSTEXT+0 ; String in A,Y
|
|
|
|
|
STY OSTEXT+1
|
|
|
|
|
:L1 LDA (OSTEXT) ; Ptr to string in ZP3
|
|
|
|
|
BEQ :S1
|
|
|
|
|
JSR OSASCI
|
|
|
|
|
INC OSTEXT
|
|
|
|
|
BNE :L1
|
|
|
|
|
INC OSTEXT+1
|
|
|
|
|
BRA :L1
|
|
|
|
|
:S1 RTS
|
|
|
|
|
|
|
|
|
|
* Print XY in hex
|
|
|
|
|
OUT2HEX TYA
|
|
|
|
|
JSR OUTHEX
|
|
|
|
|
TAX ; Continue into OUTHEX
|
|
|
|
|
|
|
|
|
|
* Print hex byte in A
|
|
|
|
|
OUTHEX PHA
|
|
|
|
|
LSR
|
|
|
|
|
LSR
|
|
|
|
|
LSR
|
|
|
|
|
LSR
|
|
|
|
|
AND #$0F
|
|
|
|
|
JSR PRNIB
|
|
|
|
|
PLA
|
|
|
|
|
AND #$0F ; Continue into PRNIB
|
|
|
|
|
* JSR PRNIB
|
|
|
|
|
* RTS
|
|
|
|
|
|
|
|
|
|
* Print hex nibble in A
|
|
|
|
|
PRNIB CMP #$0A
|
|
|
|
|
BCC :S1
|
|
|
|
|
CLC ; >= $0A
|
|
|
|
|
ADC #'A'-$0A
|
|
|
|
|
JSR OSWRCH
|
|
|
|
|
RTS
|
|
|
|
|
:S1 ADC #'0' ; < $0A
|
|
|
|
|
JMP OSWRCH
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
**********************************************************
|
|
|
|
|
* Interrupt Handlers, MOS redirection vectors etc.
|
|
|
|
|
**********************************************************
|
|
|
|
|
|
|
|
|
|
* IRQ/BRK handler
|
|
|
|
|
IRQBRKHDLR
|
|
|
|
|
PHA
|
|
|
|
|
* Mustn't enable IRQs within the IRQ handler
|
2021-08-14 05:18:35 +00:00
|
|
|
* Do not use WRTMAIN/WRTAUX macros
|
2021-08-10 01:27:44 +00:00
|
|
|
STA $C004 ; Write to main memory
|
|
|
|
|
STA $45 ; $45=A for ProDOS IRQ handlers
|
|
|
|
|
STA $C005 ; Write to aux memory
|
2021-08-14 05:18:35 +00:00
|
|
|
|
2021-08-10 01:27:44 +00:00
|
|
|
TXA
|
|
|
|
|
PHA
|
|
|
|
|
CLD
|
|
|
|
|
TSX
|
|
|
|
|
LDA $103,X ; Get PSW from stack
|
|
|
|
|
AND #$10
|
|
|
|
|
BEQ :IRQ ; IRQ
|
|
|
|
|
SEC
|
|
|
|
|
LDA $0104,X
|
|
|
|
|
SBC #$01
|
|
|
|
|
STA FAULT
|
|
|
|
|
LDA $0105,X
|
|
|
|
|
SBC #$00
|
|
|
|
|
STA FAULT+1
|
|
|
|
|
PLA
|
|
|
|
|
TAX
|
|
|
|
|
PLA
|
|
|
|
|
CLI
|
|
|
|
|
JMP (BRKV) ; Pass on to BRK handler
|
|
|
|
|
|
|
|
|
|
:IRQ >>> XF2MAIN,A2IRQ ; Bounce to Apple IRQ handler
|
|
|
|
|
IRQBRKRET
|
2021-08-14 05:18:35 +00:00
|
|
|
>>> ENTAUX
|
2021-08-10 01:27:44 +00:00
|
|
|
PLA ; TODO: Pass on to IRQ1V
|
|
|
|
|
TAX
|
|
|
|
|
PLA
|
|
|
|
|
NULLRTI RTI
|
|
|
|
|
|
2021-08-15 22:18:52 +00:00
|
|
|
* Invoked from GSBRK in main memory. On IIgs only.
|
|
|
|
|
GSBRKAUX >>> ENTAUX
|
|
|
|
|
JMP IRQBRKHDLR ; See if this works!!
|
|
|
|
|
|
2021-08-10 01:27:44 +00:00
|
|
|
PRERR LDY #$01
|
|
|
|
|
PRERRLP LDA (FAULT),Y
|
|
|
|
|
BEQ PRERR1
|
|
|
|
|
JSR OSWRCH
|
|
|
|
|
INY
|
|
|
|
|
BNE PRERRLP
|
|
|
|
|
NULLRTS
|
|
|
|
|
PRERR1 RTS
|
|
|
|
|
|
|
|
|
|
MOSBRKHDLR LDA #<MSGBRK
|
|
|
|
|
LDY #>MSGBRK
|
|
|
|
|
JSR PRSTR
|
|
|
|
|
JSR PRERR
|
|
|
|
|
JSR OSNEWL
|
|
|
|
|
JSR OSNEWL
|
|
|
|
|
STOP JMP STOP ; Cannot return from a BRK
|
|
|
|
|
|
|
|
|
|
MSGBRK DB $0D
|
|
|
|
|
ASC "ERROR: "
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
RDROM LDA #<OSRDRMM
|
|
|
|
|
LDY #>OSRDRMM
|
|
|
|
|
JMP PRSTR
|
|
|
|
|
OSRDRMM ASC 'OSRDDRM.'
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
EVENT LDA #<OSEVENM
|
|
|
|
|
LDY #>OSEVENM
|
|
|
|
|
JMP PRSTR
|
|
|
|
|
OSEVENM ASC 'OSEVEN.'
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
GSINTGO LDA #<OSINITM
|
|
|
|
|
LDY #>OSINITM
|
|
|
|
|
JMP PRSTR
|
|
|
|
|
OSINITM ASC 'GSINITM.'
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
GSRDGO LDA #<OSREADM
|
|
|
|
|
LDY #>OSREADM
|
|
|
|
|
JMP PRSTR
|
|
|
|
|
OSREADM ASC 'GSREAD.'
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Default page 2 contents
|
|
|
|
|
DEFVEC DW NULLRTS ; $200 USERV
|
|
|
|
|
DW MOSBRKHDLR ; $202 BRKV
|
|
|
|
|
DW NULLRTI ; $204 IRQ1V
|
|
|
|
|
DW NULLRTI ; $206 IRQ2V
|
|
|
|
|
DW CLIHND ; $208 CLIV
|
|
|
|
|
DW BYTEHND ; $20A BYTEV
|
|
|
|
|
DW WORDHND ; $20C WORDV
|
|
|
|
|
DW WRCHHND ; $20E WRCHV
|
|
|
|
|
DW RDCHHND ; $210 RDCHV
|
|
|
|
|
DW FILEHND ; $212 FILEV
|
|
|
|
|
DW ARGSHND ; $214 ARGSV
|
|
|
|
|
DW BGETHND ; $216 BGETV
|
|
|
|
|
DW BPUTHND ; $218 BPUTV
|
|
|
|
|
DW GBPBHND ; $21A GBPBV
|
|
|
|
|
DW FINDHND ; $21C FINDV
|
|
|
|
|
DW FSCHND ; $21E FSCV
|
|
|
|
|
ENDVEC
|
|
|
|
|
|
|
|
|
|
*
|
|
|
|
|
* Acorn MOS entry points at the top of RAM
|
|
|
|
|
* Copied from loaded code to high memory
|
|
|
|
|
*
|
|
|
|
|
|
|
|
|
|
* Base of API entries here in loaded code
|
|
|
|
|
MOSVEC
|
|
|
|
|
* Real base of API entries in real memory
|
|
|
|
|
MOSAPI EQU $FFB6
|
|
|
|
|
ORG MOSAPI
|
|
|
|
|
|
|
|
|
|
* OPTIONAL ENTRIES
|
|
|
|
|
* ----------------
|
|
|
|
|
*OSSERV JMP NULLRTS ; FF95 OSSERV
|
|
|
|
|
*OSCOLD JMP NULLRTS ; FF98 OSCOLD
|
|
|
|
|
*OSPRSTR JMP OUTSTR ; FF9B PRSTRG
|
|
|
|
|
*OSFF9E JMP NULLRTS ; FF9E
|
|
|
|
|
*OSSCANHEX JMP RDHEX ; FFA1 SCANHX
|
|
|
|
|
*OSFFA4 JMP NULLRTS ; FFA4
|
|
|
|
|
*OSFFA7 JMP NULLRTS ; FFA7
|
|
|
|
|
*PRHEX JMP OUTHEX ; FFAA PRHEX
|
|
|
|
|
*PR2HEX JMP OUT2HEX ; FFAD PR2HEX
|
|
|
|
|
*OSFFB0 JMP NULLRTS ; FFB0
|
|
|
|
|
*OSWRRM JMP NULLRTS ; FFB3 OSWRRM
|
|
|
|
|
|
|
|
|
|
* COMPULSARY ENTRIES
|
|
|
|
|
* ------------------
|
|
|
|
|
VECSIZE DB ENDVEC-DEFVEC ; FFB6 VECSIZE Size of vectors
|
|
|
|
|
VECBASE DW DEFVEC ; FFB7 VECBASE Base of default vectors
|
|
|
|
|
OSRDRM JMP RDROM ; FFB9 OSRDRM Read byte from paged ROM
|
|
|
|
|
OSCHROUT JMP OUTCHAR ; FFBC CHROUT Send char to VDU driver
|
|
|
|
|
OSEVEN JMP EVENT ; FFBF OSEVEN Signal an event
|
|
|
|
|
GSINIT JMP GSINTGO ; FFC2 GSINIT Init string reading
|
|
|
|
|
GSREAD JMP GSRDGO ; FFC5 GSREAD Parse general string
|
|
|
|
|
NVWRCH JMP WRCHHND ; FFC8 NVWRCH Nonvectored WRCH
|
|
|
|
|
NVRDCH JMP RDCHHND ; FFCB NVRDCH Nonvectored RDCH
|
|
|
|
|
OSFIND JMP (FINDV) ; FFCE OSFIND
|
|
|
|
|
OSGBPB JMP (GBPBV) ; FFD1 OSGBPB
|
|
|
|
|
OSBPUT JMP (BPUTV) ; FFD4 OSBPUT
|
|
|
|
|
OSBGET JMP (BGETV) ; FFD7 OSBGET
|
|
|
|
|
OSARGS JMP (ARGSV) ; FFDA OSARGS
|
|
|
|
|
OSFILE JMP (FILEV) ; FFDD OSFILE
|
|
|
|
|
OSRDCH JMP (RDCHV) ; FFE0 OSRDCH
|
|
|
|
|
OSASCI CMP #$0D ; FFE3 OSASCI
|
|
|
|
|
BNE OSWRCH
|
|
|
|
|
OSNEWL LDA #$0A ; FFE7 OSNEWL
|
|
|
|
|
JSR OSWRCH
|
|
|
|
|
OSWRCR LDA #$0D ; FFEC OSWRCR
|
|
|
|
|
OSWRCH JMP (WRCHV) ; FFEE OSWRCH
|
|
|
|
|
OSWORD JMP (WORDV) ; FFF1 OSWORD
|
|
|
|
|
OSBYTE JMP (BYTEV) ; FFF4 OSBYTE
|
|
|
|
|
OSCLI JMP (CLIV) ; FFF7 OSCLI
|
|
|
|
|
NMIVEC DW NULLRTI ; FFFA NMIVEC
|
|
|
|
|
RSTVEC DW STOP ; FFFC RSTVEC
|
|
|
|
|
IRQVEC
|
|
|
|
|
|
|
|
|
|
* Assembler doesn't like running up to $FFFF, so we bodge a bit
|
|
|
|
|
MOSEND
|
|
|
|
|
ORG MOSEND-MOSAPI+MOSVEC
|
|
|
|
|
DW IRQBRKHDLR ; FFFE IRQVEC
|
|
|
|
|
MOSVEND
|
|
|
|
|
|
|
|
|
|
* Buffer for one 512 byte disk block in aux mem
|
|
|
|
|
AUXBLK DS $200
|
|
|
|
|
|
