]>
Commit | Line | Data |
---|---|---|
1 | title 'System Control Block Definition for CP/M3 BIOS'\r | |
2 | \r | |
3 | public @civec, @covec, @aivec, @aovec, @lovec, @bnkbf\r | |
4 | public @crdma, @crdsk, @vinfo, @resel, @fx, @usrcd\r | |
5 | public @mltio, @ermde, @erdsk, @media, @bflgs\r | |
6 | public @date, @hour, @min, @sec, ?erjmp, @mxtpa\r | |
7 | \r | |
8 | \r | |
9 | scb$base equ 0FE00H ; Base of the SCB\r | |
10 | \r | |
11 | @civec equ scb$base+22h ; Console Input Redirection\r | |
12 | ; Vector (word, r/w)\r | |
13 | @covec equ scb$base+24h ; Console Output Redirection\r | |
14 | ; Vector (word, r/w)\r | |
15 | @aivec equ scb$base+26h ; Auxiliary Input Redirection\r | |
16 | ; Vector (word, r/w)\r | |
17 | @aovec equ scb$base+28h ; Auxiliary Output Redirection\r | |
18 | ; Vector (word, r/w)\r | |
19 | @lovec equ scb$base+2Ah ; List Output Redirection\r | |
20 | ; Vector (word, r/w)\r | |
21 | @bnkbf equ scb$base+35h ; Address of 128 Byte Buffer\r | |
22 | ; for Banked BIOS (word, r/o)\r | |
23 | @crdma equ scb$base+3Ch ; Current DMA Address\r | |
24 | ; (word, r/o)\r | |
25 | @crdsk equ scb$base+3Eh ; Current Disk (byte, r/o)\r | |
26 | @vinfo equ scb$base+3Fh ; BDOS Variable "INFO"\r | |
27 | ; (word, r/o)\r | |
28 | @resel equ scb$base+41h ; FCB Flag (byte, r/o)\r | |
29 | @fx equ scb$base+43h ; BDOS Function for Error\r | |
30 | ; Messages (byte, r/o)\r | |
31 | @usrcd equ scb$base+44h ; Current User Code (byte, r/o)\r | |
32 | @mltio equ scb$base+4Ah ; Current Multi-Sector Count\r | |
33 | ; (byte,r/w)\r | |
34 | @ermde equ scb$base+4Bh ; BDOS Error Mode (byte, r/o)\r | |
35 | @erdsk equ scb$base+51h ; BDOS Error Disk (byte,r/o)\r | |
36 | @media equ scb$base+54h ; Set by BIOS to indicate\r | |
37 | ; open door (byte,r/w)\r | |
38 | @bflgs equ scb$base+57h ; BDOS Message Size Flag (byte,r/o)\r | |
39 | @date equ scb$base+58h ; Date in Days Since 1 Jan 78\r | |
40 | ; (word, r/w)\r | |
41 | @hour equ scb$base+5Ah ; Hour in BCD (byte, r/w)\r | |
42 | @min equ scb$base+5Bh ; Minute in BCD (byte, r/w)\r | |
43 | @sec equ scb$base+5Ch ; Second in BCD (byte, r/w)\r | |
44 | ?erjmp equ scb$base+5Fh ; BDOS Error Message Jump\r | |
45 | ; (word, r/w)\r | |
46 | @mxtpa equ scb$base+62h ; Top of User TPA\r | |
47 | ; (address at 6,7)(word, r/o)\r | |
48 | end\r |