; ==================================================
; 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