; Hardware detection
HWN I
:HW_MAP
SUB I, 1
HWQ I
IFE B, 0x7349 ; Get MONITOR
    IFE A, 0xf615
        SET [MONITOR], I
IFE B, 0x30cf
    IFE A, 0x7406
        SET [KEYBOARD], I ; Get KEYBOARD
IFE B, 0x12d0
    IFE A, 0xb402
        SET [CLOCK], I ;Get CLOCK
IFE B, 0x0206
    IFE A, 0x0001
        SET [SPEAKER], I ; Get Speaker [Exclusive from Benedek's Emulator]
IFN I, 0
    SET PC, HW_MAP ; If we haven't checked all, loop .
; End of Hardware detection
; Set screen border color to dark blue
SET A, 3
SET B, 0x1
HWI [MONITOR]
; Set monitor to MEM_MAP_SCREEN mode.
SET A, 0
SET B, 0x8000
HWI [MONITOR]

SET X, 0x8000 ; Paramter for DRW_PROMPT Subroutine
JSR DRW_PROMPT ; Execute DRW_PROMPT subroutine

SET A, 0
SET B, 494
HWI [SPEAKER]

SET I, 9
:MAIN

SET PC, MAIN

:DRW_PROMPT
IFE [PROMPT+J],0
    SET PC, POP
SET [X],[PROMPT+J]
BOR [X],0xF000
ADD J, 1
ADD X, 1
SET PC, DRW_PROMPT

:MONITOR
DAT 0
:KEYBOARD
DAT 0
:CLOCK
DAT 0
:SPEAKER
DAT 0
:PROMPT
DAT "root: $ ",0