mirror of
https://github.com/markpmlim/AppleIIModula2Interpreter.git
synced 2025-01-13 16:32:58 +00:00
Add files via upload
This commit is contained in:
markpmlim
GitHub
parent
4c9a46bd4c
commit
52da8af78d
242
Equates.S
Normal file
242
Equates.S
Normal file
@ -0,0 +1,242 @@
|
|||||||
|
;Name : EQUATES.S
|
||||||
|
;End of file : 5,936
|
||||||
|
|
||||||
|
********************************
|
||||||
|
* Disassembler: TFBD (Phoenix)
|
||||||
|
* References:
|
||||||
|
* Lilith MCode Interpreter
|
||||||
|
* Medos-2: A Modula-2 Oriented Operating System
|
||||||
|
* for the Personal Computer Lilith
|
||||||
|
* The Personal Computer Lilith
|
||||||
|
* Modula2 Handbook
|
||||||
|
********************************
|
||||||
|
; Some ASCII codes used by the Modula2 Interpreter
|
||||||
|
;
|
||||||
|
CTRLC EQU $03
|
||||||
|
BELL EQU $07
|
||||||
|
BS EQU $08
|
||||||
|
LF EQU $0A
|
||||||
|
FF EQU $0C
|
||||||
|
CR EQU $0D
|
||||||
|
CTRLS EQU $13
|
||||||
|
SPACE EQU $20
|
||||||
|
DEL EQU $7F
|
||||||
|
;
|
||||||
|
; Apple II ZPage locations
|
||||||
|
;
|
||||||
|
WNDLFT EQU $20
|
||||||
|
WNDWDTH EQU $21
|
||||||
|
WNDTOP EQU $22
|
||||||
|
WNDBTM EQU $23
|
||||||
|
CH EQU $24
|
||||||
|
CV EQU $25
|
||||||
|
BASL EQU $28
|
||||||
|
BAS2L EQU $2A
|
||||||
|
INVFLG EQU $32
|
||||||
|
YSAV1 EQU $35
|
||||||
|
CSWL EQU $36
|
||||||
|
CSWH EQU $37
|
||||||
|
Z44 EQU $44
|
||||||
|
Z45 EQU $45
|
||||||
|
RNDL EQU $4E
|
||||||
|
RNDH EQU $4F
|
||||||
|
KBD EQU $C000
|
||||||
|
;
|
||||||
|
; Apple Hardware locations
|
||||||
|
;
|
||||||
|
KBSTRB EQU $C010
|
||||||
|
SPKR EQU $C030
|
||||||
|
BasicInt EQU $C300
|
||||||
|
BasicIn EQU $C305
|
||||||
|
BasicOut EQU $C307
|
||||||
|
XC30B EQU $C30B ;GENERIC SIGNATURE BYTE
|
||||||
|
XC30C EQU $C30C ;DEVICE SIGNATURE BYTE
|
||||||
|
PInit EQU $C30D
|
||||||
|
PRead EQU $C30E
|
||||||
|
PWrite EQU $C30F
|
||||||
|
PStat EQU $C310
|
||||||
|
ClrROM EQU $CFFF
|
||||||
|
; Offsets into Command Control Block
|
||||||
|
;
|
||||||
|
; Dummy Section of zpage locations
|
||||||
|
; used for the various registers
|
||||||
|
;
|
||||||
|
DSECT
|
||||||
|
ORG $80
|
||||||
|
PC DS 2 ;Interpreter's Program Counter
|
||||||
|
IReg DS 2 ;instruction register
|
||||||
|
Z84 DS 2 ;General purpose locations
|
||||||
|
Z86 DS 2
|
||||||
|
Z88 DS 2
|
||||||
|
Z8A DS 2
|
||||||
|
Z8C DS 2
|
||||||
|
Z8E DS 2
|
||||||
|
;
|
||||||
|
; Ref: page 18 MeDOS-2 manual
|
||||||
|
; 4 regs point to the stack frame of the currently
|
||||||
|
; executed process
|
||||||
|
; P - points to the process descriptor at the
|
||||||
|
; beginning of the stack frame
|
||||||
|
; L - points to the activation rec on top of stack frame
|
||||||
|
; S - points to 1st free location in the stack frame
|
||||||
|
; H - points to the end of stack (H for high limit)
|
||||||
|
; addr of stack limit
|
||||||
|
;
|
||||||
|
; F - points to the base addr of the code frame
|
||||||
|
; G - points to the base addr of the data frame
|
||||||
|
; The first word of the data frame gives the
|
||||||
|
; reference to the corresponding code frame
|
||||||
|
;
|
||||||
|
FReg DS 2 ;Code frame base address
|
||||||
|
GReg DS 2 ;Corr Data frame base address
|
||||||
|
HReg DS 2 ;Stack limit address (himem)
|
||||||
|
LReg DS 2 ;Local segment base address
|
||||||
|
SReg DS 2 ;Procedure Stack ptr (TOS)
|
||||||
|
PReg DS 2 ;Process base address
|
||||||
|
MReg DS 2 ;Process interrupt mask
|
||||||
|
ExprStkP DS 2 ;Save area for index into ExprStack
|
||||||
|
ExprStack DS 32 ;Expression Stack ($A0-$BF) 16 words
|
||||||
|
ZTemp DS 1
|
||||||
|
FPTemp DS 4 ;work area for temp FP
|
||||||
|
Acc1 DS 6
|
||||||
|
Acc2 DS 6
|
||||||
|
DEND
|
||||||
|
********************************
|
||||||
|
* Ref: Appendix C of interpreter docs Fixed addr section
|
||||||
|
*
|
||||||
|
X0800 EQU $0800 ;F-register of module 0 (SYSTEM)
|
||||||
|
;
|
||||||
|
; The data frame table holds addrs of the
|
||||||
|
; data frames of loaded modules. All modules
|
||||||
|
; are accessed through this table. The index
|
||||||
|
; to an entry in this table is called the
|
||||||
|
; module number.
|
||||||
|
; MeDOS-2 ref pg 15, Appendix C of interp doc
|
||||||
|
;
|
||||||
|
DFTab EQU $0840 ;data frame table
|
||||||
|
********************************
|
||||||
|
* Trap Error Numbers
|
||||||
|
* Ref Lilith mcode interpreter manual
|
||||||
|
*
|
||||||
|
end EQU 0
|
||||||
|
instrChk EQU 1 ;illegal instruction
|
||||||
|
prioChk EQU 2 ;priority error
|
||||||
|
storageChk EQU 3 ;storage overflow
|
||||||
|
rangeChk EQU 4 ;range violation
|
||||||
|
addrChk EQU 5 ;NIL access/invalid computed addr
|
||||||
|
realOvfl EQU 6 ;floating point overflow
|
||||||
|
cardOvfl EQU 7 ;cardinal overflow
|
||||||
|
intOvfl EQU 8 ;integer overflow
|
||||||
|
funcErr EQU 9 ;function return error
|
||||||
|
halt EQU 10 ;halt called
|
||||||
|
assertErr EQU 11 ;assertion error
|
||||||
|
stopped EQU 13
|
||||||
|
;
|
||||||
|
; Offsets into an unpacked floating point number
|
||||||
|
;
|
||||||
|
FMant0 EQU 0 ;Mantissa
|
||||||
|
FMant1 EQU 1
|
||||||
|
FMant2 EQU 2
|
||||||
|
FMant3 EQU 3
|
||||||
|
FSign EQU 4 ;Sign
|
||||||
|
FExp EQU 5 ;Exponent
|
||||||
|
;
|
||||||
|
false EQU 0
|
||||||
|
true EQU 1
|
||||||
|
;
|
||||||
|
; Data Structure of File is given below:
|
||||||
|
; File = RECORD
|
||||||
|
; id : CARDINAL;
|
||||||
|
; eof : BOOLEAN;
|
||||||
|
; res : Response;
|
||||||
|
; tmp : BOOLEAN;
|
||||||
|
; name : ARRAY[0..29] OF CHAR;
|
||||||
|
; data : ARRAY [0..127] OF CARDINAL;
|
||||||
|
; ts : ARRAY [0..127] OF CARDINAL;
|
||||||
|
; wrk : ARRAY [0..22] OF CARDINAL;
|
||||||
|
; END;
|
||||||
|
;
|
||||||
|
DSECT
|
||||||
|
f.id DS 2 ;file ref #
|
||||||
|
f.eof DS 2 ;Indicate if DOS call was successful
|
||||||
|
f.res DS 2 ;error code
|
||||||
|
f.tmp DS 2
|
||||||
|
f.name DS 30 ;FileName
|
||||||
|
f.data DS 256
|
||||||
|
f.st DS 256 ;sector
|
||||||
|
f.wrk DS 46 ;Use as a DOS FCB/DCB
|
||||||
|
DEND
|
||||||
|
********************************
|
||||||
|
* Apple DOS 3.3 page 3 vectors
|
||||||
|
*
|
||||||
|
CallFM EQU $03D6 ;DOS File Manager ($AAFD)
|
||||||
|
X03DC EQU $03DC ;Subrtn to locate input parm list for File Manager ($B5BB)
|
||||||
|
X03E3 EQU $03E3 ;Subrtn to locate input parm list for RWTS ($B7E8)
|
||||||
|
SOFTEV EQU $03F2
|
||||||
|
;
|
||||||
|
; DOS 3.3 equates
|
||||||
|
;
|
||||||
|
DOSENT EQU $AB06 ;File Mgr Main entry
|
||||||
|
DCBSUP EQU $ABDC ;Init File Mgr work area
|
||||||
|
RDVTOC EQU $AFF7 ;Read/Write VTOC buffer
|
||||||
|
RDVDIR EQU $B011 ;Read a dir sector
|
||||||
|
VDINC EQU $B230 ;Advance index into next dir entry
|
||||||
|
TEMP1 EQU $B39C ;Dir index
|
||||||
|
TEMP2 EQU $B39D
|
||||||
|
CVTAB EQU $B3A4 ;Decimal conversion table
|
||||||
|
FTTAB EQU $B3A7 ;file type table
|
||||||
|
VSECAL EQU $B3F3 ;sector allocation (bitmap)
|
||||||
|
VDFILE EQU $B4C6 ;1st dir entry & track of T/S list
|
||||||
|
CCBREQ EQU $B5BB ;USER REQUEST BYTE (opcode)
|
||||||
|
CCBDRV EQU $B5C0 ;drive
|
||||||
|
CCBSLT EQU $B5C1 ;slot
|
||||||
|
CCBFCB EQU $B5C7 ;FCB PTR (Addr of File Mgr WA)
|
||||||
|
FCBDCB EQU $B5D1 ;FILE DATA CONTROL BLOCK
|
||||||
|
DCBSLT EQU $B5F7 ;slot # x 16
|
||||||
|
DCBDRV EQU $B5F8 ;drive #
|
||||||
|
DCBVOL EQU $B5F9 ;vol # (complemented)
|
||||||
|
;
|
||||||
|
; Command Control Block request codes (lifted fr DOS source)
|
||||||
|
;
|
||||||
|
CRQNUL EQU 0 ; 0-NO REQUEST
|
||||||
|
CRQOPN EQU 1 ; 1-OPEN FILE
|
||||||
|
CRQCLS EQU 2 ; 2-CLOSE FILE
|
||||||
|
CRQRD EQU 3 ; 3-READ DATA
|
||||||
|
CRQWR EQU 4 ; WRITE DATA
|
||||||
|
CRQDEL EQU 5 ; 5-DELETE FILE
|
||||||
|
CRQDIR EQU 6 ; 6-READ DIRECTORY
|
||||||
|
CRQLCK EQU 7 ; 7-LOCK FILE
|
||||||
|
CRQUNL EQU 8 ; 8-UNLOCK FILE
|
||||||
|
CRQRNM EQU 9 ; 9-RENAME
|
||||||
|
CRQPOS EQU 10 ; 10-POSITION FILE
|
||||||
|
CRQFMT EQU 11 ; 11-FORMAT
|
||||||
|
CRQVAR EQU 12 ; 12 - VERIFY
|
||||||
|
CRQMAX EQU 13
|
||||||
|
oCCBREQ EQU 0
|
||||||
|
oCCBRQM EQU 1 ;Request Modifier Byte
|
||||||
|
CRMNBT EQU 1 ; R/W NEXT BYTE
|
||||||
|
CRMNBL EQU 2 ; R/W NEXT BLOCK
|
||||||
|
oCCBRLN EQU 2
|
||||||
|
oCCBFN2 EQU 2
|
||||||
|
oCCBVOL EQU 4
|
||||||
|
;
|
||||||
|
oCCBDRV EQU 5
|
||||||
|
oCCBBLN EQU 6
|
||||||
|
oCCBSLT EQU 6
|
||||||
|
oCCBFUC EQU 7
|
||||||
|
oCCBDAT EQU 8
|
||||||
|
oCCBBBA EQU 8
|
||||||
|
oCCBFN1 EQU 8 ;Ptr to filename
|
||||||
|
;
|
||||||
|
oCCBSTA EQU 10 ;Result Status
|
||||||
|
CREFNF EQU 6 ; FILE NOT FOUND
|
||||||
|
CRENSA EQU 9
|
||||||
|
;
|
||||||
|
oCCBFCB EQU 12 ;File Control Block ptr
|
||||||
|
oCCBDBP EQU 14 ;Ptr to Dir Buf
|
||||||
|
oCCBSBP EQU 16 ;Ptr to SECTOR BUF
|
||||||
|
oDCBCRR EQU 25 ;current relative record
|
||||||
|
oDCBCRB EQU 27 ;current relative byte
|
||||||
|
; Offsets into I/O Block
|
||||||
|
oIBSLOT EQU 1
|
||||||
|
oIBPDRV EQU 16
|
||||||
89
LoadInterP.S
Normal file
89
LoadInterP.S
Normal file
@ -0,0 +1,89 @@
|
|||||||
|
;Name : LOADINTERP.S
|
||||||
|
;End of file : 1,370
|
||||||
|
|
||||||
|
LST OFF
|
||||||
|
;---------------------------------------------------------;
|
||||||
|
; Disassembled with The Flaming Bird Disassembler ;
|
||||||
|
; (c) Phoenix corp. 1992,93 - All rights reserved ;
|
||||||
|
;---------------------------------------------------------;
|
||||||
|
; TFBD generated equates
|
||||||
|
; (c) PHC 1992,93
|
||||||
|
;
|
||||||
|
CTRLD EQU $84
|
||||||
|
ROMIN2 EQU $C081
|
||||||
|
LCBANK2 EQU $C083
|
||||||
|
MeDOSEnt EQU $D000
|
||||||
|
HOME EQU $FC58
|
||||||
|
CROUT EQU $FD8E
|
||||||
|
COUT EQU $FDED
|
||||||
|
RESETV EQU $FFFC
|
||||||
|
;
|
||||||
|
ORG $3000
|
||||||
|
JSR HOME
|
||||||
|
LDA ROMIN2 ;Enable Apple II ROM
|
||||||
|
LDA ROMIN2
|
||||||
|
JSR CROUT
|
||||||
|
;
|
||||||
|
; Load Modula-2 Interpreter
|
||||||
|
;
|
||||||
|
LDA #CTRLD
|
||||||
|
JSR COUT
|
||||||
|
LDY #0
|
||||||
|
LoadLup1 LDA LOADINTERP,Y
|
||||||
|
BEQ IntLoaded
|
||||||
|
JSR COUT
|
||||||
|
INY
|
||||||
|
BNE LoadLup1
|
||||||
|
;
|
||||||
|
; Load SEK.ABS file
|
||||||
|
; SEK - Sequential Executive Kernel
|
||||||
|
;
|
||||||
|
IntLoaded JSR CROUT
|
||||||
|
JSR CROUT
|
||||||
|
LDA #CTRLD
|
||||||
|
JSR COUT
|
||||||
|
LDY #0
|
||||||
|
LoadLup2 LDA LOADSEK,Y
|
||||||
|
BEQ SekLoaded
|
||||||
|
JSR COUT
|
||||||
|
INY
|
||||||
|
BNE LoadLup2
|
||||||
|
;
|
||||||
|
SekLoaded JSR CROUT
|
||||||
|
LDA LCBANK2 ;Switch in LC bank2
|
||||||
|
LDA LCBANK2
|
||||||
|
LDA #0
|
||||||
|
STA RESETV
|
||||||
|
LDA #0
|
||||||
|
STA RESETV+1
|
||||||
|
;
|
||||||
|
; Patch LOCATIONS $00-$0A with the instructions
|
||||||
|
; 0000: LDA $C081
|
||||||
|
; 0003: LDA $C081
|
||||||
|
;
|
||||||
|
LDA #$AD ;Abs load instruction
|
||||||
|
STA $00
|
||||||
|
STA $03
|
||||||
|
LDA #$81
|
||||||
|
STA $00+1
|
||||||
|
STA $03+1
|
||||||
|
LDA #$C0
|
||||||
|
STA $00+2
|
||||||
|
STA $03+2
|
||||||
|
;
|
||||||
|
; 0008: JMP $FAA6 - Return zero
|
||||||
|
;
|
||||||
|
LDA #$4C
|
||||||
|
STA $06
|
||||||
|
LDA #$A6
|
||||||
|
STA $06+1
|
||||||
|
LDA #$FA
|
||||||
|
STA $06+2
|
||||||
|
JMP MeDOSEnt ;XFER CONTROL TO MeDOS
|
||||||
|
;
|
||||||
|
MSB ON
|
||||||
|
LOADINTERP ASC "BLOAD INTERP,A$D000"
|
||||||
|
DB 0
|
||||||
|
LOADSEK ASC "BLOAD SEK.ABS"
|
||||||
|
DB 0
|
||||||
|
MSB OFF
|
||||||
BIN
Modula2_Src.2mg
Normal file
BIN
Modula2_Src.2mg
Normal file
Binary file not shown.
8
Readme.md
Normal file
8
Readme.md
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
The disassembly of the Modula2 Interpreter for DOS3.3 was done with The Flaming Bird Disassembler (TFBD) downloadable from BrutalDeluxe's website (http://www.brutaldeluxe.fr).
|
||||||
|
|
||||||
|
Acknowledgements: The disassembly of the interpreter would not be possible without help from Willie Kusche.
|
||||||
|
|
||||||
|
Tools required:
|
||||||
|
1) ProDOS version of EdAsm
|
||||||
|
2) HexEditor e.g HxD (Windows) Hex Fiend(macOS)
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user