;
;       Disassembled by:
;               DASMx object code disassembler
;               (c) Copyright 1996-2003   Conquest Consultants
;               Version 1.40 (Oct 18 2003)
;
;       File:           ptr230.bin
;
;       Size:           1024 bytes
;       Checksum:       9F0A
;       CRC-32:         A30171BD
;
;       Date:           Thu Aug 02 00:49:58 2018
;
;       CPU:            Intel 8048 (MCS-48 family)
;
;
;
        org     00000H
;
        jmp     L0059
;
        nop
        dis     i
        jmp     L005F
;
L0006:
        nop
        nop
        djnz    r1,L000C
        jmp     L01FF
L000C:
        jmp     L01FD
;
        nop
        nop
L0010:
        call    L0020
        mov     a,#0F1H
        movp3   a,@a
        mov     r1,a
        jmp     L03D3
;
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
L0020:
        inc     r0
        mov     a,r0
        xrl     a,#028H
        jz      L002D
        mov     a,r0
        xrl     a,#030H
        jz      L0033
        jmp     L0035
;
L002D:
        mov     r0,#020H
        nop
        nop
        jmp     L0035
;
L0033:
        mov     r0,#028H
L0035:
        in      a,p2
        anl     a,#0F0H
        mov     r1,a
        mov     a,@r0
        anl     a,#00FH
        orl     a,r1
        outl    p2,a
        ret
;
L003F:
        dis     tcnti
        mov     a,#078H
        mov     r1,a
L0043:
        mov     a,#0F6H
        mov     t,a
        strt    t
L0047:
        jtf     L004B
        jmp     L0047
;
L004B:
        stop    tcnt
        djnz    r1,L0043
        ret
L004F:
        jmp     L02A0
;
        nop
L0052:
        clr     f0
        clr     a
        mov     r5,a
        jmp     L006A
;
        nop
        nop
L0059:
        jni     L005F
        mov     r6,#082H
        jmp     L0061
;
L005F:
        mov     r6,#002H
L0061:
        in      a,p2
        anl     a,#010H
        rl      a
        rl      a
        orl     a,r6
        mov     r6,a
        jmp     L0052
;
L006A:
        mov     r0,#020H
        mov     @r0,#00EH
        inc     r0
        mov     @r0,#01CH
        inc     r0
        mov     @r0,#00DH
        inc     r0
        mov     @r0,#019H
        inc     r0
        mov     @r0,#00BH
        inc     r0
        mov     @r0,#013H
        inc     r0
        mov     @r0,#007H
        inc     r0
        mov     @r0,#016H
        inc     r0
        mov     @r0,#016H
        inc     r0
        mov     @r0,#007H
        inc     r0
        mov     @r0,#013H
        inc     r0
        mov     @r0,#00BH
        inc     r0
        mov     @r0,#019H
        inc     r0
        mov     @r0,#00DH
        inc     r0
        mov     @r0,#01CH
        inc     r0
        mov     @r0,#00EH
        mov     r0,#020H
        anl     p2,#0FEH
L009F:
        in      a,p1
        jb0     L00A4
        jmp     L00F7
;
L00A4:
        mov     a,r6
        jb0     L00A9
        jmp     L0101
;
L00A9:
        mov     a,r6
        jb7     L00AE
        jmp     L00B0
L00AE:
        jmp     L0109
;
L00B0:
        mov     a,r6
        jb6     L00B5
        jmp     L013E
;
L00B5:
        in      a,p1
        anl     a,#006H
        jnz     L00BC
        jmp     L014A
;
L00BC:
        xrl     a,#006H
        jnz     L00C4
        nop
        nop
        jmp     L014A
;
L00C4:
        orl     p2,#020H
        mov     a,r6
        jb7     L00CE
        in      a,p1
        jb2     L00CE
        jmp     L0162
;
L00CE:
        nop
        mov     a,r0
        anl     a,#008H
        jnz     L00D6
        jmp     L00DE
;
L00D6:
        mov     a,r0
        cpl     a
        anl     a,#00FH
        add     a,#020H
        mov     r0,a
        nop
L00DE:
        nop
        mov     a,r6
        jb1     L00E4
        jmp     L00E6
L00E4:
        jmp     L01C6
;
L00E6:
        mov     a,r6
        orl     a,#002H
        mov     r6,a
L00EA:
        mov     a,r6
        jb5     L00E4
        anl     p2,#0DFH
        call    L003F
        orl     p2,#020H
        mov     r2,#0E0H
        jmp     L01C6
;
L00F7:
        orl     p2,#0C0H
        anl     p2,#0DFH
        mov     a,r6
        anl     a,#0DEH
        mov     r6,a
        jmp     L009F
;
L0101:
        anl     p2,#0BFH
        call    L003F
        mov     r2,#0E0H
        jmp     L00A9
;
L0109:
        in      a,p1
        jb2     L010E
        jmp     L00B0
;
L010E:
        anl     p2,#0DFH
        orl     p2,#040H
        call    L003F
        orl     p2,#020H
        anl     p1,#02FH
        orl     p1,#01FH
        mov     a,r0
        jb3     L011F
        jmp     L0121
L011F:
        jmp     L0128
;
L0121:
        mov     a,r0
        cpl     a
        anl     a,#00FH
        add     a,#020H
        mov     r0,a
L0128:
        call    L0020
        jmp     L017E
;
L012C:
        mov     a,r6
        anl     a,#0DFH
        mov     r6,a
L0130:
        anl     p2,#09FH
        orl     p1,#0FFH
        anl     p1,#0EFH
        call    L003F
        mov     a,r6
        anl     a,#0FCH
        mov     r6,a
        jmp     L00B0
;
L013E:
        in      a,p1
        jb1     L0143
        jmp     L014A
;
L0143:
        orl     p2,#020H
        in      a,p1
        jb2     L0162
        jmp     L00CE
;
L014A:
        anl     p2,#0DFH
        jnt0    L0150
        jmp     L0155
;
L0150:
        clr     f0
        orl     p2,#080H
        jmp     L009F
;
L0155:
        jf0     L015E
        anl     p2,#07FH
        mov     r2,#0E0H
        cpl     f0
        jmp     L03A6
;
L015E:
        jnt1    L0162
        jmp     L00CE
;
L0162:
        nop
        mov     a,r0
        anl     a,#008H
        jz      L016A
        jmp     L0172
;
L016A:
        mov     a,r0
        cpl     a
        anl     a,#00FH
        add     a,#020H
        mov     r0,a
        nop
L0172:
        nop
        mov     a,r6
        jb1     L0178
        jmp     L01C6
;
L0178:
        mov     a,r6
        anl     a,#0FDH
        mov     r6,a
        jmp     L00EA
;
L017E:
        in      a,p1
        jb2     L0188
        mov     a,r6
        jb6     L0186
        jmp     L018D
L0186:
        jmp     L0130
;
L0188:
        mov     a,r6
        jb6     L018D
        jmp     L012C
;
L018D:
        mov     r4,#08EH
        in      a,p1
        jb3     L01AC
        dis     tcnti
        clr     a
        mov     t,a
        strt    t
L0196:
        jtf     L019A
        jmp     L01B9
;
L019A:
        djnz    r4,L01B9
        stop    tcnt
        mov     a,r6
        anl     a,#0DFH
        mov     r6,a
L01A1:
        anl     p2,#07FH
        anl     p2,#0DFH
L01A5:
        in      a,p1
        jb0     L01A5
        orl     p2,#080H
        jmp     L0130
;
L01AC:
        dis     tcnti
        stop    tcnt
        mov     a,#039H
L01B0:
        dec     a
        jz      L01B5
        jmp     L01B7
L01B5:
        jmp     L0128
L01B7:
        jmp     L01B0
;
L01B9:
        in      a,p1
        jb3     L01BE
        jmp     L01C2
;
L01BE:
        orl     p2,#020H
        jmp     L01AC
;
L01C2:
        anl     p2,#0DFH
        jmp     L0196
;
L01C6:
        mov     a,r6
        jb0     L01CB
        jmp     L01CD
L01CB:
        jmp     L0253
;
L01CD:
        anl     p1,#0AFH
        orl     p1,#00FH
L01D1:
        in      a,p1
        jb3     L01D6
        jmp     L01D8
L01D6:
        jmp     L0226
;
L01D8:
        stop    tcnt
        anl     p1,#0EFH
        movx    a,@r0
        ins     a,bus
        outl    bus,a
        orl     p1,#01FH
        dis     tcnti
        mov     a,#0FAH
        mov     t,a
        strt    t
L01E5:
        jtf     L01E9
        jmp     L01E5
;
L01E9:
        anl     p1,#0DFH
        orl     p1,#01FH
        mov     r4,#088H
L01EF:
        stop    tcnt
        mov     a,#000H
        mov     t,a
        strt    t
L01F4:
        call    L0020
        mov     r1,#032H
L01F8:
        in      a,p1
        jb3     L01FD
        jmp     L023F
L01FD:
        jmp     L0006
;
L01FF:
        stop    tcnt
        orl     p1,#06FH
        mov     a,#0FAH
        mov     t,a
        strt    t
L0206:
        jtf     L020A
        jmp     L0206
;
L020A:
        stop    tcnt
        anl     p1,#0EFH
        movx    a,@r0
        ins     a,bus
        outl    bus,a
        orl     p1,#00FH
        mov     a,r6
        orl     a,#001H
        mov     r6,a
        call    L0020
        call    L0020
        mov     a,#0F4H
        mov     t,a
        strt    t
L021E:
        jtf     L0222
        jmp     L021E
;
L0222:
        stop    tcnt
        jmp     L009F
;
        nop
L0226:
        call    L0020
        dis     tcnti
        mov     a,#0E1H
        mov     t,a
        strt    t
L022D:
        jtf     L023D
        in      a,p1
        anl     a,#006H
        jz      L0222
        xrl     a,#006H
        jz      L0222
        in      a,p1
        jb0     L022D
        jmp     L0222
L023D:
        jmp     L01D1
;
L023F:
        djnz    r1,L0249
        jtf     L0245
        jmp     L01F4
;
L0245:
        djnz    r4,L024B
        jmp     L024D
L0249:
        jmp     L01F8
L024B:
        jmp     L01EF
;
L024D:
        mov     a,r6
        orl     a,#020H
        mov     r6,a
        jmp     L01A1
;
L0253:
        dis     tcnti
        mov     r4,#08EH
        mov     r7,#00FH
        clr     a
        mov     t,a
        strt    t
L025B:
        call    L0020
        mov     a,r2
        movp3   a,@a
        mov     r3,a
        mov     a,r2
        cpl     a
        add     a,#0F1H
        jz      L0267
        inc     r2
L0267:
        mov     a,r5
        cpl     a
        add     a,#005H
        jnz     L026F
        jmp     L02E7
;
L026F:
        mov     a,r5
        add     a,#000H
        jnz     L0276
        jmp     L0280
;
L0276:
        mov     a,r5
        cpl     a
        add     a,#004H
        jnz     L027E
        jmp     L02D6
L027E:
        jmp     L02A0
;
L0280:
        anl     p1,#0AFH
        orl     p1,#00FH
        nop
        nop
        nop
        nop
L0288:
        in      a,p1
        jb3     L02AD
        nop
        anl     p1,#0EFH
        movx    a,@r0
        ins     a,bus
        outl    bus,a
        orl     p1,#01FH
        orl     p1,#04FH
L0295:
        inc     r5
L0296:
        nop
        mov     a,#002H
L0299:
        dec     a
        jnz     L0299
        djnz    r3,L0296
        jmp     L02B5
;
L02A0:
        anl     p1,#0DFH
        orl     p1,#00FH
        mov     a,#003H
L02A6:
        dec     a
        jnz     L02A6
        jmp     L0295
        jmp     L004F
;
L02AD:
        djnz    r3,L02C2
L02AF:
        nop
        mov     a,#00AH
L02B2:
        dec     a
        jnz     L02B2
L02B5:
        djnz    r7,L02BB
        mov     r2,#0DEH
        mov     r7,#00FH
L02BB:
        mov     a,r6
        jb2     L02C0
        jmp     L02CF
L02C0:
        jmp     L0370
;
L02C2:
        jtf     L02C6
        jmp     L0288
;
L02C6:
        djnz    r4,L0288
L02C8:
        stop    tcnt
        mov     a,r6
        orl     a,#020H
        mov     r6,a
        jmp     L01A1
;
L02CF:
        mov     a,r6
        jb3     L02D4
        jmp     L025B
L02D4:
        jmp     L0329
;
L02D6:
        orl     p1,#02FH
        mov     a,#002H
L02DA:
        dec     a
        jnz     L02DA
        anl     p1,#0BFH
        orl     p1,#00FH
        nop
        nop
        nop
        nop
        jmp     L0295
;
L02E7:
        in      a,p1
        jb3     L02EC
        jmp     L031B
;
L02EC:
        anl     p1,#0EFH
        orl     p1,#04FH
        movx    a,@r0
        mov     a,r6
        jb6     L02FD
        jmp     L030C
;
        nop
        nop
        nop
        nop
        nop
        nop
        nop
L02FD:
        in      a,p1
        anl     a,#006H
        jz      L0311
        xrl     a,#006H
        jz      L0311
L0306:
        mov     a,r6
        orl     a,#004H
        mov     r6,a
        jmp     L0295
;
L030C:
        in      a,p1
        jb1     L0306
        jmp     L0311
;
L0311:
        jnt0    L0315
        jmp     L0306
;
L0315:
        mov     a,r6
        orl     a,#008H
        mov     r6,a
        jmp     L0295
;
L031B:
        djnz    r3,L031F
        jmp     L02AF
;
L031F:
        jtf     L0323
        jmp     L02E7
;
L0323:
        djnz    r4,L0327
        jmp     L02C8
L0327:
        jmp     L02E7
;
L0329:
        mov     a,@r0
        jb4     L03C5
        jmp     L032E
;
L032E:
        mov     a,r6
        jb4     L0333
        jmp     L033F
;
L0333:
        mov     a,#0C0H
        movp3   a,@a
        mov     r1,a
L0337:
        djnz    r1,L033B
        jmp     L0368
L033B:
        jmp     L033D
L033D:
        jmp     L0337
;
L033F:
        mov     a,#0C1H
        movp3   a,@a
        mov     r1,a
L0343:
        djnz    r1,L0347
        jmp     L0368
L0347:
        jmp     L0349
L0349:
        jmp     L0343
;
L034B:
        mov     a,r6
        jb4     L0350
        jmp     L035C
;
L0350:
        mov     a,#0C2H
        movp3   a,@a
        mov     r1,a
L0354:
        djnz    r1,L0358
        jmp     L03B4
L0358:
        jmp     L035A
L035A:
        jmp     L0354
;
L035C:
        mov     a,#0C3H
        movp3   a,@a
        mov     r1,a
L0360:
        djnz    r1,L0364
        jmp     L03B4
L0364:
        jmp     L0366
L0366:
        jmp     L0360
;
L0368:
        mov     r2,#0E0H
        mov     a,r6
        anl     a,#0EFH
        mov     r6,a
        jmp     L0378
;
L0370:
        mov     a,#0F0H
        nop
        mov     r2,a
        jmp     L0010
;
        nop
        nop
L0378:
        call    L0020
        call    L0020
L037C:
        mov     a,#0C4H
        movp3   a,@a
        mov     r1,a
L0380:
        djnz    r1,L0384
        jmp     L0388
L0384:
        jmp     L0386
L0386:
        jmp     L0380
;
L0388:
        mov     a,#0F6H
        add     a,r7
        jb7     L0391
        jmp     L038F
L038F:
        jmp     L039A
;
L0391:
        mov     a,r6
        anl     a,#0F3H
        mov     r6,a
        clr     a
        mov     r5,a
        mov     r7,a
        jmp     L009F
;
L039A:
        nop
        nop
        mov     r2,#0DEH
        nop
        nop
        jmp     L0391
;
        nop
        nop
        nop
        nop
L03A6:
        jnt1    L03AE
        mov     a,r6
        anl     a,#0FDH
        mov     r6,a
        jmp     L015E
;
L03AE:
        mov     a,r6
        orl     a,#002H
        mov     r6,a
        jmp     L015E
;
L03B4:
        mov     a,r0
        add     a,#001H
        anl     a,#007H
        xch     a,r0
        anl     a,#0F8H
        orl     a,r0
        mov     r0,a
        jmp     L0368
;
        addc    a,r3
        cpl     f0
        orl     a,@r0
        orl     a,#011H
L03C5:
        mov     a,r0
        add     a,#0FEH
        anl     a,#007H
        xch     a,r0
        anl     a,#0F8H
        orl     a,r0
        mov     r0,a
        call    L0020
        jmp     L034B
;
L03D3:
        djnz    r1,L03D7
        jmp     L03DB
L03D7:
        jmp     L03D9
L03D9:
        jmp     L03D3
L03DB:
        jmp     L03F2
;
        nop
;
        db      022H
;
        xch     a,@r0
        inc     r5
        inc     r2
        jtf     L0312
        movd    a,p7
        movd    a,p4
;
        db      00BH
;
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        in      a,p2
        inc     r3
L03F2:
        call    L0020
        mov     a,r6
        orl     a,#010H
        mov     r6,a
        jmp     L037C
;
        mov     a,r7
        mov     a,r7
        mov     a,r7
        mov     a,r7
        mov     a,r7
        mov     a,r7