84 lines
1.9 KiB
PHP
84 lines
1.9 KiB
PHP
; ==================================================
|
|
; MONITOR program for Triumph Adler Alphatronic PC.
|
|
;
|
|
; Computer startup entry and common BASIC routines
|
|
; Disassembled by Romychs @ 2026-09-28
|
|
; ==================================================
|
|
|
|
|
|
; ---------------------------------------------------
|
|
; Restart entry point
|
|
; ---------------------------------------------------
|
|
RST0:
|
|
JP MB_INIT
|
|
RET
|
|
LD A ,(0xf3c3)
|
|
INC C
|
|
|
|
; ---------------------------------------------------
|
|
; Checks whether the current character in the program
|
|
; line being processed matches the expected character
|
|
; ---------------------------------------------------
|
|
SYNCHR:
|
|
LD A ,(HL)
|
|
EX (SP) ,HL
|
|
CP (HL)
|
|
INC HL
|
|
EX (SP) ,HL
|
|
JP NZ ,MB_SNERR
|
|
|
|
; ---------------------------------------------------
|
|
; CHRGTR
|
|
; ---------------------------------------------------
|
|
CHRGTR:
|
|
INC HL
|
|
LD A ,(HL)
|
|
CP ':'
|
|
RET NC
|
|
JP MB_CHRCON
|
|
|
|
; ---------------------------------------------------
|
|
; OUTDO
|
|
; ---------------------------------------------------
|
|
OUTDO:
|
|
PUSH AF
|
|
JP MB_OUTDO
|
|
.4 db 0
|
|
|
|
; --------------------------------------------------
|
|
; MB_DCOMPR
|
|
; --------------------------------------------------
|
|
DCOMPR:
|
|
LD A ,H
|
|
SUB D
|
|
RET NZ
|
|
LD A ,L
|
|
SUB E
|
|
RET
|
|
DB 1
|
|
|
|
; ---------------------------------------------------
|
|
MB_TTYPOS:
|
|
DB 0
|
|
|
|
; ---------------------------------------------------
|
|
; MB_SIGN
|
|
; ---------------------------------------------------
|
|
SIGN:
|
|
LD A ,(MB_DACC)
|
|
OR A
|
|
JP NZ ,MB_SIGN1
|
|
RET
|
|
|
|
; ---------------------------------------------------
|
|
; MB_GETYPR
|
|
; ---------------------------------------------------
|
|
GETYPTR:
|
|
LD A ,(MB_VALTYP) ;MB_GETYPR
|
|
CP TDBL
|
|
JP MB_GETYPR
|
|
|
|
; ---------------------------------------------------
|
|
START:
|
|
JP MON.BRKPNT
|