|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Types: TextFile
Names: »FIOEQU.SA«
└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »FIOEQU.SA«
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »FIOEQU.SA«
*******************************************
*
* EOS PASCAL
* VER 0.06
*
*******************************************
*
*
OFFSET 0
SC DS.L 1 STATEMENT COUNTER
HP DS.L 1 HEAP POINTER
DL0 DS.L 8 DISPLAY LEVEL 0
RMAOBCDS DS.L 1 RMA OBJECT CALL DESC
* RMA EXCEPTION DESC
TOPEXCDS DS.L 1 TOP EXCEPTION DESC
TSTFLG DS.B 1 TEST FLAG / SPARE
INEXC DS.B 1 IN EXCEPTION
EXCPR DS.L 2 EXCEPTION RESULT
* RMA MAP DESC
NRA DS.L 1 NEXT REQUEST ADDR
NMMU DS.B 1 NEXT MMU
DS.B 1 SPARE
TMD DS.L 1 TOP MAP DESC
* RMA FORMALS
FUNC1 DS.L 1 FUNCTION
FUNC2 DS.L 1
NOFOR1 DS.L 1 NUMBER OF FORMALS
DS.L 1
DS.L 1
FTEMP DS.L 1 FIRST TEMP
TVAL DS.L 1 TOP VAL
LVAL DS.L 1 LAST VAL
VALPTR DS.L 1 VAL POINTER
RTERRST DS.B 72 RUNTIME ERROR ROUTINE STORAGE
RTDSZ EQU * RUNTIME DATA SIZE
* EOS RESULT
OFFSET 0
ORGSYS DS.W 1
AUXCAUSE DS.B 1
ARGNO DS.B 1
ORGNO DS.W 1
FAMILY DS.B 1
CAUSE DS.B 1
* EOS MAP DESCRIPTOR OFFSETS FROM A4
OFFSET 0
LOADDR DS.L 1 LOGICAL ADDRESS
SEGLGTH DS.L 1 SEGMENT LENGTH
REQADDR DS.L 1 REQUEST ADDRESS
PTRADDR DS.L 1 POINTER ADDRESS
MMUNO DS.B 1 MMU NUMBER
DS.B 1 SPARE
PMD DS.L 1 PRIOR MAP DESC
* EOS OBJECT CALL DESC OFFSETS FROM A2
OFFSET 0
VALARG DS.L 1 VALUE ARGUMENT
LOWARG DS.L 1 LOW ARGUMENT
OLDHT DS.L 1 OLD HEAPTOP
POCD DS.L 1 PRIOR OBJ CALL DESC
* EOS SUBSEGMENT ARGUMENT
OFFSET 0
LENGTH DS.L 1
FIRST DS.L 1
USE DS.W 1
POINTER DS.L 1
* EOS RETURN VALUE DESC
OFFSET 0
RETLGTH DS.W 1
RETADDR DS.L 1
RETFROM DS.L 1
* EOS EXCEPTION DESC
OFFSET 0
GLBASE DS.L 1 GLOBALBASE
LOBASE DS.L 1 LOCALBASE
STACKT DS.L 1 STACKTOP
EXCPADDR DS.L 1 EXCEPTION ADDRESS
PEXCPDS DS.L 1 PRIOR EXCEPTION ADDRESS
* EOS TEST VARIABLE
TSTKNL EQU 0
TSTRTS1 EQU 1
TSTRTS2 EQU 2
TSTRTS3 EQU 3
TSTPAS1 EQU 5
TSTPAS2 EQU 6
TSTPAS3 EQU 7
KNLTXT EQU 1<<16+40
KNLHEX EQU 2<<16+40
EOSKNL EQU 7
TSTON EQU 0 1 = COMPILE TESTOUT, 0 = DON'T
* 2 = COMPILE TESTOUT (IGNORE FLAGS)
TSTOUT MACRO STRING,START,TOPÆ,FLAGÅ
IFNE (NARG-4)!TSTON
IFEQ (NARG-4)!(TSTON-1)
BTST.B #Ø4,TSTFLG(A5)
BEQ.S Ø@PASS
ENDC
MOVEM.L D0-D7/A0-A7,RTERRST+8(A5)
BRA.S Ø@TXE
Ø@TXB DC.W Ø1
Ø@TXE MOVE.L #Ø@TXB,D4
MOVE.L #Ø@TXE-Ø@TXB,D2
MOVE.L #KNLTXT,D5
TRAP #EOSKNL
LEA RTERRST+8(A5),A0
MOVE.L #64,D2
MOVE.L A0,D4
MOVE.L #KNLHEX,D5
TRAP #EOSKNL
MOVEM.L RTERRST+8(A5),D0-D7/A0-A7
LEA Ø2,A0
LEA Ø3,A1
SUB.L A0,A1
MOVE.L A1,D2
MOVE.L A0,D4
MOVE.L #KNLHEX,D5
TRAP #EOSKNL
MOVEM.L RTERRST+8(A5),D0-D7/A0-A7
Ø@PASS EQU *
ENDC
ENDM
«eof»