Untitled

;Map Hardware

HWN I

:HW_MAP

SUB I, 1

HWQ I

IFE B, 0x7349

  IFE A, 0xf615

    SET [MONITOR], I

IFE B, 0x30cf

  IFE A, 0x7406

    SET [KEYBOARD], I

IFE B, 0x12d0

  IFE A, 0xb402

    SET [CLOCK], I

IFN I, 0

  SET PC, HW_MAP

;Map Hardware end

 

;Set up LEM1802 in MEM_MAP_SCREEN mode

SET A, 0

SET B, 0x8000

HWI [MONITOR]

 

:LOGO1 DAT " __   __                                          ", 0

:LOGO2 DAT " \\ \\ / /___  _  _  __ _  __ _  ___  _ _           ", 0

:LOGO3 DAT "  \\ V // _ \\| || |/ _` |/ _` |/ -_)| '_|          ", 0

:LOGO4 DAT "   \\_/ \\___/ \\_, |\\__,_|\\__, |\\___||_|            ", 0 :LOGO5 DAT "             |__/       |___/                     ", 0

 

 

SET J, 0

;Draw logo

:LOGO_LOOP1

SET [0x8000+Z], LOGO1

ADD J, 1

IFE LOGO1, 0

        SET PC, LOGO_LOOP2

SET PC, LOGO_LOOP1

 

:LOGO_LOOP2

SET [0x8000+Z], LOGO2

ADD J, 1

IFE LOGO2, 0

        SET PC, LOGO_LOOP3

SET PC, LOGO_LOOP2

 

:LOGO_LOOP3

SET [0x8000+Z], LOGO3

ADD J, 1

IFE LOGO3, 0

        SET PC, LOGO_LOOP4

SET PC, LOGO_LOOP3

 

:LOGO_LOOP4

SET [0x8000+Z], LOGO4

ADD J, 1

IFE LOGO4, 0

        SET PC, LOGO_LOOP5

SET PC, LOGO_LOOP4

 

:LOGO_LOOP5

SET [0x8000+Z], LOGO5

ADD J, 1

IFE LOGO5, 0

        SET PC, MAIN

SET PC, LOGO_LOOP5

;Draw logo end

 

:MONITOR

DAT 0

:CLOCK

DAT 0

:KEYBOARD

DAT 0