CPU-Z80-Disassembler

 view release on metacpan or  search on metacpan

t/data/zx48.asm  view on Meta::CPAN

        XOR     C               ; xor with inverse mask
        JR      NZ,L2573        ; forward to S-SCR-NXT if no match.

        DJNZ    L255D           ; back to S-SC-ROWS until all eight matched.

; continue if a match of all eight bytes was found

        POP     BC              ; discard the
        POP     BC              ; saved
        POP     BC              ; pointers
        LD      A,$80           ; the endpoint of character set
        SUB     B               ; subtract the counter
                                ; to give the code 32-127
        LD      BC,$0001        ; make one space in workspace.

        RST     30H             ; BC-SPACES creates the space sliding
                                ; the calculator stack upwards.
        LD      (DE),A          ; start is addressed by DE, so insert code
        JR      L257D           ; forward to S-SCR-STO

; ---

t/data/zx48_base.asm  view on Meta::CPAN

        xor c                   ; xor with inverse mask
        jr nz,S_SCR_NXT         ; forward to S-SCR-NXT if no match.

        djnz S_SC_ROWS          ; back to S-SC-ROWS until all eight matched.

; continue if a match of all eight bytes was found

        pop bc                  ; discard the
        pop bc                  ; saved
        pop bc                  ; pointers
        ld a,0x80               ; the endpoint of character set
        sub b                   ; subtract the counter
                                ; to give the code 32-127
        ld bc,0x0001            ; make one space in workspace.

        rst 0x30                ; BC-SPACES creates the space sliding
                                ; the calculator stack upwards.
        ld (de),a               ; start is addressed by DE, so insert code
        jr S_SCR_STO            ; forward to S-SCR-STO

; ---

t/data/zx48_benchmark.asm  view on Meta::CPAN

        xor c                   ; xor with inverse mask
        jr nz, S_SCR_NXT        ; forward to S-SCR-NXT if no match.

        djnz S_SC_ROWS          ; back to S-SC-ROWS until all eight matched.

; continue if a match of all eight bytes was found

        pop bc                  ; discard the
        pop bc                  ; saved
        pop bc                  ; pointers
        ld a, $80               ; the endpoint of character set
        sub b                   ; subtract the counter
                                ; to give the code 32-127
        ld bc, $0001            ; make one space in workspace.

        rst $30                 ; BC-SPACES creates the space sliding
                                ; the calculator stack upwards.
        ld (de), a              ; start is addressed by DE, so insert code
        jr S_SCR_STO            ; forward to S-SCR-STO

 view all matches for this distribution
 view release on metacpan -  search on metacpan