;********* BDOS ENTRY ************
;
D406 C3A1D4 JMP BDOS
;
D4A1 210000 BDOS:LXI H,$0000
D4A4 39 DAD SP
D4A5 229CD4 SHLD DSPWK
D4A8 31E0E8 LXI SP,DSP
D4AB C5 PUSH B
D4AC 21BDD4 LXI H,BDOSRT
D4AF E5 PUSH H
D4B0 69 MOV L,C
D4B1 2600 MVI H,00
D4B3 29 DAD H
D4B4 01C3D4 LXI B,FNCTBL
D4B7 09 DAD B
D4B8 7E MOV A,M
D4B9 23 INX H
D4BA 66 MOV H,M
D4BB 6F MOV L,A
D4BC E9 PCHL
D4BD C1 BDOSRT:POP B
;? LD SP,(DSPWK)
D4BE 2A9CD4 LHLD DSPWK
D4C1 F9 SPHL
D4C2 C9 RET
;
D4C3 15D5 FNCTBL:DW SYSRES;00
D4C5 18D5 DW CONIN;01
D4C7 35D5 DW CONOUT;02
D4C9 E8D5 DW RDRIN;03
D4CB EBD5 DW PUNOUT;04
D4CD EFD5 DW LSTOUT;05
D4CF F3D5 DW CONINOT;06
D4D1 07D6 DW IOBYTERD;07
D4D3 0BD6 DW IOBYTESET;08
D4D5 10D6 DW DEOUT;09
D4D7 1ED6 DW CONBFIN;0A
D4D9 93D7 DW CONCHK;0B
D4DB ACD7 DW VERRD;0C
;
;VERSION NO. READ FCALL 0C
;
D7AC 3E22 VERRD:MVI A,22
D7AE 6F MOV L,A
D7AF 2600 MVI H,00
D7B1 C9 RET
;
|