;
; STATIC DEFINES

;ORG    $1200
ORG 4608


DEFC CHR1   = $E0
DEFC CHR2   = $CE
DEFC CHR3   = $FD
DEFC CHR4   = $DD
DEFC CHR5   = $CD
DEFC CHR6   = $D0
DEFC MNTR   = $0000
DEFC GETKY  = $001B
DEFC PRNT   = $0012
;

.DG0    LD  DE,DSP1
    CALL    CPRNT
    LD  C,1
.DG1    LD  B,C
    CALL    DSQR
    CALL    TMDLY
;   JP  WAIT
    LD  A,$13
    CALL    PRNT
    LD  A,$11
    CALL    PRNT
    INC C
    LD  A,C
    CP  13
    JR  NZ,DG1
.WAIT   LD  DE,$2000
.DG2    DEC DE
    CALL    GETKY
    CP  '!'
    JP  Z,MNTR1
    LD  A,D
    OR  E
    JR  NZ,DG2
    JR  DG0
.MNTR1  JP  MNTR
;
; SUB ROUTINE
;
.DSQR0  LD  A,CHR1
    CALL    PRNT
.DSQR   DJNZ    DSQR0
    LD  A,CHR2
    ;ALL    PRNT
    LD  B,C
    JR  DSQR1_1
.DSQR1  LD  A,CHR3
.DSQR1_1 CALL   PRNT
    LD  A,$11
    CALL    PRNT
    LD  A,$14
    CALL    PRNT
    DJNZ    DSQR1
    LD  A,CHR4
    LD  B,C
    JR  DSQR2_1
.DSQR2  LD  A,CHR1
.DSQR2_1 CALL   PRNT
    LD  A,$14
    CALL    PRNT
    LD  A,$14
    CALL    PRNT
    DJNZ    DSQR2
    LD  A,CHR5
    LD  B,C
    JR  DSQR3_1
.DSQR3  LD  A,CHR3
.DSQR3_1 CALL   PRNT
    LD  A,$12
    CALL    PRNT
    LD  A,$14
    CALL    PRNT
    DJNZ    DSQR3
    LD  A,CHR6
    CALL    PRNT
    RET
;
.TMDLY  LD  DE,$2000
.TMDLY1 DEC DE
    LD  A,D
    OR  E
    JR  NZ,TMDLY1
    RET
;
.CPRNT  ;ENT
    LD  A,(DE)
    OR  A
    RET Z
    CALL    PRNT
    INC DE
    JR  CPRNT
;
.DSP1   DEFB    22
    DEFB    17
    DEFB    19
    DEFB    00
    ;END