mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 00:44:23 +00:00
727 lines
12 KiB
ArmAsm
727 lines
12 KiB
ArmAsm
* SYSTEM TABLE PROGRAM **
|
|
*
|
|
TASKNO EQU 16
|
|
IRTTW0 EQU 0
|
|
IRTTW1 EQU 1
|
|
IRTCR1 EQU 0
|
|
IRTCR1 EQU 0 CRT WRITE
|
|
*
|
|
*
|
|
TAMAX DC.B TASKNO TASK MAX
|
|
ECMAX DC.B 10 ECB MAX
|
|
STMAX DC.B 10 SOFT TIMER MAX
|
|
REMAX DC.B 10
|
|
IOMAX DC.B 10
|
|
TNUM DC.B 10
|
|
TIBTT DC.L TIB0
|
|
INITT DC.L INTBUF
|
|
TIBIXAT DC.L TIBIX
|
|
ECBAT DC.L ECB0
|
|
DATBAT DC.L DTTBA
|
|
RCBAT DC.L QARE
|
|
UCBIXTT DC.L UCBL
|
|
IOTOAT DC.L TIMOUT
|
|
INTIXTT DC.L IRTQ
|
|
IODTT DC.L IOAR
|
|
TRCBT DC.L TRBUF
|
|
TRCBL DC.L TRBUF+32
|
|
URS DC.L USER USER'S PROGRAM LOC
|
|
UES DC.L 0
|
|
UMTT DC.L 0
|
|
MAXPLNO DC.B 1
|
|
DC.B 0 YOBI
|
|
PIBADRR DC.L PIB
|
|
DEVTBL DC.L DVCTBL0 FPK
|
|
USRVET DC.L UTCB I/O UTCB LOC
|
|
*
|
|
*
|
|
*
|
|
TIB0 EQU * DBUG
|
|
DC $0101 ( 1-1 )
|
|
DC $0100
|
|
DC $0
|
|
DC.L $FD400
|
|
DC.L TCB0
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L $0
|
|
*
|
|
TIB1 EQU * FHS ( A-1 )
|
|
DC $0A01
|
|
DC $0100
|
|
DC $0
|
|
DC.L $3E200
|
|
DC.L TCB1
|
|
DC $500
|
|
DC.L FHSLQ
|
|
DC.L $3E204
|
|
DC $4018 MONITA TASK
|
|
DC.L $0
|
|
*
|
|
TIB2 EQU * IOS
|
|
DC $0B01
|
|
DC $0100
|
|
DC $0
|
|
DC.L $35D00
|
|
DC.L TCB2
|
|
DC $500
|
|
DC.L IOSQ
|
|
DC.L $3D504
|
|
DC.W $4018
|
|
DC.L $0
|
|
*
|
|
TIB3 EQU *
|
|
DC $0C01
|
|
DC $0101
|
|
DC $0
|
|
DC.L $3A000
|
|
DC.L TCB3
|
|
DC $500
|
|
DC.L DMTQ
|
|
DC.L $3A004
|
|
DC $4018
|
|
DC.L $0
|
|
*
|
|
TIB4 EQU * IOED ( D-1 )
|
|
DC $0D01
|
|
DC $0100
|
|
DC $0
|
|
DC.L $3F700
|
|
DC.L TCB4
|
|
DC $500
|
|
DC.L IOEDQ
|
|
DC.L $3F704
|
|
DC.W $4018
|
|
DC.L $0
|
|
*
|
|
TIB5 EQU * FDC ( E-1 )
|
|
DC $0E01
|
|
DC $0100
|
|
DC $0
|
|
DC.L $3EF00
|
|
DC.L TCB5
|
|
DC $500
|
|
DC.L FDCQ
|
|
DC.L $3EF04
|
|
DC.W $4018
|
|
DC.L $0
|
|
*
|
|
*
|
|
TIB6 EQU * TW0-IRT
|
|
DC $0000
|
|
DC $0000
|
|
DC $0500
|
|
DC.L IRTTW0
|
|
DC.L TCB50
|
|
DC.W $0000
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK6 STACK LOC
|
|
*
|
|
*
|
|
TIB7 EQU * TW1 -IRT1
|
|
DC $0
|
|
DC.W $0
|
|
DC.W $600
|
|
DC.L IRTTW1
|
|
DC.L TCB60
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK7 STACK LOC
|
|
*
|
|
TIB8 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0700 LAVE
|
|
DC.L $0 ENTRY
|
|
DC.L TCB70
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK8 STACK
|
|
*
|
|
*
|
|
TIB9 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB80
|
|
DC.W $0
|
|
DC.L 0
|
|
DC.L 0
|
|
DC.W $0
|
|
DC.L STACK9 STACK
|
|
*
|
|
*
|
|
TIB10 EQU *
|
|
DC.W $0
|
|
DC.W 0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB90
|
|
DC.W 0
|
|
DC.L 0
|
|
DC.L 0
|
|
DC.W 0
|
|
DC.L STACK10 STACK
|
|
*
|
|
*
|
|
TIB11 EQU *
|
|
DC.W $0
|
|
DC.W 0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB100
|
|
DC.W 0
|
|
DC.L 0
|
|
DC.L 0
|
|
DC.W 0
|
|
DC.L STACK11 STACK
|
|
*
|
|
*
|
|
TIB12 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB110
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK12 STACK
|
|
*
|
|
*
|
|
TIB13 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB120
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK13 STACK
|
|
*
|
|
*
|
|
TIB14 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB130
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK14 STACK
|
|
*
|
|
TIB15 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB140
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK15 STACK
|
|
*
|
|
*
|
|
TIB16 EQU *
|
|
DC.W $0 YOBI
|
|
DC.W $0
|
|
DC.W $0 LAVEL
|
|
DC.L $0 ENTRY
|
|
DC.L TCB150
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK16
|
|
*
|
|
*
|
|
TIB17 EQU *
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.L $0 ENTRY
|
|
DC.L TCB160
|
|
DC.W $0
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $0
|
|
DC.L STACK17
|
|
*
|
|
DS.B 100 YOBI
|
|
*
|
|
INTBUF EQU *
|
|
DC.B $3 3 KO
|
|
DC.L DATA1
|
|
DC.L DATA1+1999
|
|
DC.L DATA2
|
|
DC.L DATA2+1999
|
|
DC.L DATA3
|
|
DC.L DATA3+1999
|
|
DS.W 20
|
|
*
|
|
UCBL EQU *
|
|
DC.L UCB0 1
|
|
DC.L UCB4 2
|
|
DC.L UCB5 3
|
|
DC.L UCB6 4
|
|
DC.L UCB1 1
|
|
DC.L UCB2 2
|
|
DC.L UCB3 3
|
|
DC.L UCB7
|
|
DC.L UCB8
|
|
DC.L UCB9
|
|
*
|
|
UCB0 EQU * FPK 0
|
|
DC.B $4,$2 2 LEVEL
|
|
DC 0
|
|
DC 0
|
|
DC.L BCT10
|
|
DC.L $FF0101 SHARED RAM LOC
|
|
DC 0
|
|
DC.L $3FB00 ERROR EXIT
|
|
*
|
|
UCB1 DS 30 0
|
|
UCB2 DS 30 0
|
|
UCB3 DS 30 3
|
|
*
|
|
*
|
|
UCB4 EQU * CRT( R/W)
|
|
DC.B $0,$6 6 LEVEL
|
|
DC 0
|
|
DC 0
|
|
DC.L BCT4
|
|
DC.L $FEE015 AICA LOC
|
|
DC.B $11
|
|
DC.B 0
|
|
DC.B $0A
|
|
DC.L $0 CODE A
|
|
DC.B 0 ATTINTION TASK A
|
|
DC.B $0A
|
|
DC.B 0 ATT TASK B
|
|
DC.L $0 CODE B
|
|
*
|
|
*
|
|
UCB5 EQU *
|
|
DC.B $01,$05 TW0 ( IRT5)
|
|
DC 0
|
|
DC $5 5 SEC
|
|
DC.L BCT5
|
|
DC.L $FEE009 LOC
|
|
DC.L $0
|
|
*
|
|
*
|
|
UCB6 EQU * TW1
|
|
DC.B $1,$6 IRT6
|
|
DC $0
|
|
DC $5 5 SEC
|
|
DC.L BCT6
|
|
DC.L $FEE001 LOC
|
|
DC.L 0
|
|
*
|
|
UCB7 DS 30 7
|
|
UCB8 DS 30 8
|
|
UCB9 DS 30 9
|
|
*
|
|
IRTQ EQU *
|
|
DC.L 0 1 LEVEL
|
|
DC.L IRT2 2
|
|
DC.L 0 3
|
|
DC.L 0 4
|
|
DC.L IRT5 5
|
|
DC.L IRT6 6
|
|
DC.L 0 7
|
|
*
|
|
IRT2 EQU * FDC
|
|
DC.L $0
|
|
DC.L $FF0101
|
|
DC.W $0500
|
|
DC.W $0000
|
|
DC.W $1
|
|
*
|
|
IRT21 EQU * YOBI
|
|
DC.L $0 NEXT LINK
|
|
DC.L $0
|
|
DC.W $400
|
|
DC.W $0
|
|
DC.L 0 EXIT(ENTRY)
|
|
DC.L 0
|
|
*
|
|
*
|
|
IRT22 EQU * YOBI
|
|
DC.L $0 NEXT LINK
|
|
DC.L $0
|
|
DC.W $400 A
|
|
DC.W $0 B,C
|
|
DC.L $0 ENTRY
|
|
DC.L $0
|
|
*
|
|
*
|
|
IRT23 EQU * YOBI
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $400
|
|
DC.W $0 B,C
|
|
DC.L $0
|
|
DC.L $0
|
|
*
|
|
*
|
|
IRT5 EQU * TW0
|
|
DC.L $0
|
|
DC.L $FEE009 DEVIC NO.
|
|
DC.W $100
|
|
DC.W $0
|
|
DC.W $6
|
|
*
|
|
*
|
|
IRT51 EQU * YOBI
|
|
DC.L $0 NEXT LINK
|
|
DC.L $0 DEVIC NO.
|
|
DC.W $300
|
|
DC.W $0
|
|
DC.W $0 E1,F1
|
|
DC.L $0 ENTRY
|
|
DC.W $0 E1,F2
|
|
DC.L $0 D0
|
|
*
|
|
IRT52 EQU * YOBI
|
|
DC.L $0 NEXT LINK
|
|
DC.L $0 DEVIC NO.
|
|
DC.W $300
|
|
DC.W $0
|
|
DC.W $0 E1,F1
|
|
DC.L $0 D0
|
|
DC.W $0 E2,F2
|
|
DC.L $0 D0
|
|
*
|
|
*
|
|
IRT53 EQU * YOBI
|
|
DC.L $0
|
|
DC.L $0 DEVIC NO.
|
|
DC.W $300
|
|
DC.W $0
|
|
DC.W $0 E1,F1
|
|
DC.L $0 D0
|
|
DC.W $0 E2,F2
|
|
DC.L $0 D0
|
|
*
|
|
*
|
|
IRT6 EQU *
|
|
DC.L IRT61 CRT
|
|
DC.L $FEE1005
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $5
|
|
*
|
|
IRT61 EQU * TW1
|
|
DC.L 0
|
|
DC.L $FEE001
|
|
DC.W $100
|
|
DC.W $0
|
|
DC.W $7
|
|
*
|
|
IRT62 EQU * YOBI
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $300
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.L $0
|
|
*
|
|
IRT63 EQU * YOBI
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $300
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.L $0
|
|
*
|
|
IRT64 EQU * YOBI
|
|
DC.L $0
|
|
DC.L $0
|
|
DC.W $300
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.W $0
|
|
DC.L $0
|
|
*
|
|
*
|
|
*
|
|
IOAR EQU *
|
|
DC.W $0500 CRT
|
|
DC.W $0000
|
|
DC.W $0600 TW0
|
|
DC.W $0000
|
|
DC.W $0700 TW1
|
|
DC.W $0000
|
|
DC.W $0000
|
|
DC.W $0000
|
|
*
|
|
*
|
|
*
|
|
DVCTBL0 EQU *
|
|
DC.B 0
|
|
DC.B 4 MAX LOGICAL NO.
|
|
DC 3 FILE TASK
|
|
DC 2
|
|
DC 2
|
|
DC.B 0
|
|
DC.B 0
|
|
*
|
|
* FDC = 0
|
|
DC 'FD00'
|
|
DC $1F
|
|
DC 256
|
|
DC.B $33
|
|
DC.B 0 UCB NO.
|
|
DC.B $0 UINT NO.
|
|
DC.B $0E
|
|
*
|
|
*
|
|
*
|
|
DC 'FD01'
|
|
DC $1F
|
|
DC 256 BYTE
|
|
DC.B $33
|
|
DC.B 0 UCB NO.
|
|
DC.B 1 UNIT NO.
|
|
DC.B $0E
|
|
*
|
|
*
|
|
*
|
|
DC 'FD02'
|
|
DC $1F
|
|
DC 256
|
|
DC.B $33
|
|
DC.B 0 UCB NO.
|
|
DC.B 2 UNIT NO.
|
|
DC.B $0E
|
|
*
|
|
*
|
|
*
|
|
*
|
|
DC 'FD03'
|
|
DC $1F
|
|
DC 256
|
|
DC.B $33
|
|
DC.B 0 UCB NO.
|
|
DC.B 3 UNIT NO.
|
|
DC.B $0E
|
|
*
|
|
DC.B $FF,$FF,$FF,$FF,$FF END
|
|
*
|
|
*
|
|
PIB EQU *
|
|
DC.L POOL1S
|
|
DC.L POOL1E
|
|
*
|
|
*
|
|
TIBIX EQU *
|
|
DS.B 4*TASKNO 16*4
|
|
*
|
|
ECB0 EQU *
|
|
DS.B 20 1
|
|
DS.B 20 2
|
|
DS.B 20 3
|
|
DS.B 20 4
|
|
DS.B 20 5
|
|
DS.B 20 6
|
|
DS.B 20 7
|
|
DS.B 20 8
|
|
DS.B 20 9
|
|
DS.B 20 10
|
|
*
|
|
DTTBA EQU *
|
|
DS.B 24 1
|
|
DS.B 24 2
|
|
DS.B 24 3
|
|
DS.B 24 4
|
|
DS.B 24 5
|
|
DS.B 24 6
|
|
DS.B 24 7
|
|
DS.B 24 8
|
|
DS.B 24 9
|
|
DS.B 24 10
|
|
*
|
|
QARE EQU *
|
|
DS.B 8*10
|
|
*
|
|
BCT0 DS.B 16
|
|
BCT1 DS.B 16
|
|
BCT2 DS.B 16
|
|
BCT3 DS.B 16
|
|
BCT4 DS.B 16 CRT
|
|
BCT5 DS.B 16 TW0
|
|
BCT6 DS.B 16 TW1
|
|
BCT7 DS.B 16
|
|
BCT8 DS.B 16
|
|
BCT9 DS.B 16
|
|
BCT10 DS.B 30 FPK BCT
|
|
*
|
|
TIMOUT EQU * TIMER OUT TABLE
|
|
DS.B 10*6
|
|
*
|
|
TCB0 DS.B 130
|
|
TCB1 DS.B 128 Q BUFFER
|
|
TCB2 DS.B 128
|
|
TCB3 DS.B 128
|
|
TCB4 DS.B 128
|
|
TCB5 DS.B 128
|
|
TCB50 DS.B 128 TW-IRT0
|
|
TCB60 DS.B 128 TW-IRT1
|
|
TCB70 DS.B 128 CRT-IRT0 ( READ )
|
|
TCB80 DS.B 128 CRT-IRT1 (WRITE)
|
|
TCB90 DS.B 128 DENSO -IRT0 ( READ )
|
|
TCB100 DS.B 128 DENSO -IRT1 (WRITE )
|
|
TCB110 DS.B 128
|
|
TCB120 DS.B 128
|
|
TCB130 DS.B 128
|
|
TCB140 DS.B 128
|
|
TCB150 DS.B 128
|
|
TCB160 DS.B 128
|
|
*
|
|
*
|
|
FHSLQ DS.B $500
|
|
IOSQ DS.B $500
|
|
DMTQ DS.B $500
|
|
IOEDQ DS.B $500
|
|
FDCQ DS.B $500
|
|
*
|
|
TRBUF EQU *
|
|
DS.B 64 TRACE BUFFER
|
|
*
|
|
*
|
|
POOL1S EQU *
|
|
DS.B 15000
|
|
DS.B 512 YOBI
|
|
POOL1E EQU * POLL BUF END
|
|
*
|
|
*
|
|
STACK0 DS.W 30
|
|
STACK1 DS.W 30
|
|
STACK2 DS.W 30
|
|
STACK3 DS.W 30
|
|
STACK4 DS.W 30
|
|
STACK5 DS.W 30
|
|
STACK6 DS.W 30
|
|
STACK7 DS.W 30
|
|
STACK8 DS.W 30
|
|
STACK9 DS.W 30
|
|
STACK10 DS.W 30
|
|
STACK11 DS.W 30
|
|
STACK12 DS.W 30
|
|
STACK13 DS.W 30
|
|
STACK14 DS.W 30
|
|
STACK15 DS.W 30
|
|
STACK16 DS.W 30
|
|
STACK17 DS.W 30
|
|
*
|
|
*
|
|
UTCB EQU *
|
|
DC.L TW0UCB 0
|
|
DC.L TW1UCB 1
|
|
DC.L CRTUCB 2
|
|
DC.L DENUCB 3
|
|
DC.L 0 YOBI
|
|
DC.L 0
|
|
DC.L 0
|
|
*
|
|
*
|
|
TW0UCB EQU * TW0
|
|
DC.L 0 DVCENO.
|
|
DC.L TW0BUFA
|
|
DC.W 0 BUFCT
|
|
TW0BUFA DS.B 50 TW0-BUFFER
|
|
*
|
|
*
|
|
TW1UCB EQU * TW0
|
|
DC.L 0 DVCEN.
|
|
DC.L TW1BUFA
|
|
DC.W 0 BUFCT
|
|
TW1BUFA DS.B 50 TW1-BUFFER
|
|
*
|
|
*
|
|
CRTUCB EQU *
|
|
DC.L 0 DVCENO.
|
|
DC.L CRTWBF
|
|
DC.L CRTRBF
|
|
DC.W 0 FLAG
|
|
DC.W 0 W-BUFCT
|
|
DC.W 0 R-BUFCT
|
|
CRTWBF DS.B 128
|
|
CRTRBF DS.B 128
|
|
*
|
|
*
|
|
DENUCB EQU *
|
|
DC.L 0 DVCENO.
|
|
DC.L DENBUF DENSO-BUF
|
|
DC.W 0 FLAG
|
|
DC.W 0 DATA
|
|
DENBUF DS.B 128
|
|
*
|
|
*
|
|
DATA1 DS.B 2000
|
|
DATA2 DS.B 2000
|
|
DATA3 DS.B 2000
|
|
*
|
|
*
|
|
* USER'S EXTI ( )
|
|
USER EQU *
|
|
LEA USTBL,A0
|
|
*
|
|
JUS1 EQU *
|
|
MOVEA.L (A0),A1 USER-TBL LOC
|
|
BEQ JUS9
|
|
MOVE.B 1(A1),D0
|
|
MOVE.B 2(A1),D1
|
|
*
|
|
MOVE.B D0,(A1)
|
|
MOVE.B D1,2(A1)
|
|
ADDA.L #6,A0
|
|
BRA JUS1
|
|
*
|
|
JUS9 EQU *
|
|
MOVEA.L #$ABC,A1 DENSO DIVEC NO.
|
|
MOVE.B #3,D0
|
|
MOVE.B #$91,D1
|
|
MOVE.B D0,(A1)
|
|
MOVE.B D1,(A1)
|
|
*
|
|
MOVEA.L #$DCF,A1 DENSO-2 ADDRESS
|
|
MOVE.B D0,(A1)
|
|
MOVE.B D1,(A1)
|
|
RTS
|
|
*
|
|
USTBL EQU *
|
|
DC.L $0 ADDRESS
|
|
DC.B $0,$0
|
|
DC.L $0
|
|
DC.B $0,0
|
|
DC.L $0
|
|
DC.B $0,0
|
|
DC.L $0
|
|
DC.B 0,0
|
|
DC.L $0
|
|
DC.B 0,0
|
|
END
|