format zx81
;labelusenumeric
MEMAVL     =   MEM_2K
STARTMODE  EQU SLOW_MODE
DFILETYPE  EQU COLLAPSED
include 'ZX81.INC'
//
//   (C) 2022 NICKMANN Studio - Laszlo Nickmann
//
//          Start: RAND USR 16514
//
1       REM _asm
        LD DE,PIC_STAR                    //  3
        LD HL,($400C)                     //  3
        INC HL                            //  1
Cycle1: LD A,(DE)                         //  1
        CP $FF                            //  2
        JR Z,Cycle1                       //  2
        INC DE                            //  1
        LD B,$00                          //  2
        BIT 7,A                           //  2
        JR Z,Cycle2                       //  2
        RES 7,A                           //  2
        LD B,$17                          //  2
Cycle2: LD (HL),B                         //  1
        INC HL                            //  1
        DEC A                             //  1
        JR NZ,Cycle2                      //  2
        JR Cycle1                         //  2
PIC_STAR: // database (Compressed)    SUB =  30
        db $71,$81,$07,$81,$19,$82,$05,$82 // 8
        db $19,$83,$03,$83,$19,$84,$01,$84 // 8
        db $15,$91,$12,$8F,$14,$8D,$16,$8B // 8
        db $18,$89,$18,$8B,$16,$8D,$14,$8F // 8
        db $12,$91,$15,$84,$01,$84,$19,$83 // 8
        db $03,$83,$19,$82,$05,$82,$19,$81 // 8
        db $07,$81,$FF                     // 3
END _asm                          // TOTAL = 81
include 'ZX81DISP.INC'
VARS_ADDR: db 80h
WORKSPACE: assert ($-MEMST)<MEMAVL