        tabs   8,8                      ;first tab is 10, then each tab is 8 ahead
        width  132                      ;prevent folding of long lines
        noproces                        ;disable fancy stuff, speed is what we want
;
        title  "Phunsy 2650 Micro Computer"
        stitle "PHUNSY Disassembler (2010-11-05)"
;
        name    phunsy_dass_004         ;the module name
;
        INCLUDE "2650.inc"              ; 2650 definitions
        INCLUDE "ascii.inc"             ; ascii definitions
        INCLUDE "phunsy.inc"            ; phunsy i/o definitions
        INCLUDE "monitor.inc"           ; monitor definitions
;
;                                       == variables
        section ram                     ;
        org     00EB0H                  ;
;
NROBYT  ds      1                       ;
FSTBYT  ds      1                       ;
SECBYT  ds      1                       ;
THRBYT  ds      1                       ;
DATBYT  ds      1                       ;
        ds      5                       ;
INAD    ds      2                       ;
NIAD    ds      2                       ;
IEAD    ds      2                       ;
STLB    ds      2                       ;
ENLB    ds      2                       ;
LBCT    ds      2                       ;
        ds      2                       ;
LABA    ds      2                       ;
LABN    ds      6                       ;
BPCO    ds      2                       ;
BPAD    ds      2                       ;
R0_RES  ds      1                       ;
R10RES  ds      1                       ;
R20RES  ds      1                       ;
R30RES  ds      1                       ;
R11RES  ds      1                       ;
R21RES  ds      1                       ;
R31RES  ds      1                       ;
PSURES  ds      1                       ;
PSLRES  ds      1                       ;
;
        section rom                     ;
        ORG     01800h                  ;
;
DASML   LODI,R0 002H                    ;1800 0402
        LPSL                            ;1802 93
        EORZ    R0                      ;1803 20
        LPSU                            ;1804 92
        STRZ    R3                      ;1805 C3
        STRA,R0 comres                  ;1806 CC0EF6
        STRA,R0 inpram                  ;1809 CC0F00
        ZBSR    wrtcr                   ;180C BB0B
        LODI,R2 0FFH                    ;180E 06FF
        LODI,R0 02EH                    ;1810 042E
DASMLA  ZBSR    wrtzv                   ;1812 BB05
        BSTA,UN inprt                   ;1814 3F014B
        COMI,R0 01BH                    ;1817 E41B
        BCTR,EQ DASML                   ;1819 1865
        COMI,R0 00DH                    ;181B E40D
        BCFR,EQ DASMLA                  ;181D 9873
        STRA,R0 inpram,R3+              ;181F CF2F00
        ZBSR    wrtcr                   ;1822 BB0B
dasmlb  EORZ    R0                      ;1824 20
        LPSU                            ;1825 92
        LODI,R0 002H                    ;1826 0402
        LPSL                            ;1828 93
        LODI,R0 018H                    ;1829 0418
        STRA,R0 eret                    ;182B CC0EE6
        LODI,R0 000H                    ;182E 0400
        STRA,R0 eret+1                  ;1830 CC0EE7
        ZBSR    *gthexv                 ;1833 BBB4
        BCTR,EQ DASMLC                  ;1835 1802
        LODI,R2 080H                    ;1837 0680
DASMLC  ZBSR    *tinprv                 ;1839 BBB0
        BCTR,EQ DASMLC                  ;183B 187C
        COMI,R0 00DH                    ;183D E40D
        BCTA,EQ DASML                   ;183F 1C1800
        LODI,R1 010H                    ;1842 0510
DASMLD  COMA,R0 DSCMDA,R1-              ;1844 ED588A
        BCTR,EQ DASMLE                  ;1847 1805
        BRNR,R1 DASMLD                  ;1849 5979
        BCTA,UN error                   ;184B 1F0196
;
DASMLE  LODA,R0 DSCMDB,R1               ;184E 0D789C
        IORZ    R2                      ;1851 62
        BCTR,LT DASMLF                  ;1852 1A02
        ANDI,R0 0F1H                    ;1854 44F1
DASMLF  STRZ    R2                      ;1856 C2
        IORA,R0 comres                  ;1857 6C0EF6
        STRZ    R3                      ;185A C3
        RRR,R2                          ;185B 52
        BCFR,LT DASMLG                  ;185C 9A01
        EORZ    R0                      ;185E 20
DASMLG  STRA,R0 comres                  ;185F CC0EF6
        LODI,R0 0F8H                    ;1862 04F8
        RRR,R2                          ;1864 52
        BCTR,LT DASMLH                  ;1865 1A0A
        LODI,R0 0FAH                    ;1867 04FA
        RRR,R2                          ;1869 52
        BCTR,LT DASMLH                  ;186A 1A05
        LODI,R0 0FCH                    ;186C 04FC
        RRR,R2                          ;186E 52
        BCFR,LT DASMLI                  ;186F 9A02
DASMLH  ZBSR    *pstbsv                 ;1871 BBA8
DASMLI  RRL,R1                          ;1873 D1
        LODA,R0 DSCMDC,R1+              ;1874 0D38AE
        STRA,R0 cmad+1                  ;1877 CC0EE5
        LODA,R0 DSCMDC,R1-              ;187A 0D58AE
        STRA,R0 cmad                    ;187D CC0EE4
        BSTA,UN *cmad                   ;1880 3F8EE4
        ZBSR    *chescv                 ;1883 BBBA
        BCTA,UN dasmlb                  ;1885 1F1824
;
        BYTE    text,16                 ;1888
DSCMDA  BYTE    "-:=>GIMPQLS(YVXT"
;
        BYTE    data,16                 ;189A
DSCMDB  BYTE    002H,003H,001H,004H     ;189C
        BYTE    003H,005H,009H,009H     ;18A0
        BYTE    003H,005H,003H,003H     ;18A4
        BYTE    001H,009H,005H,005H     ;18A8
;
        BYTE    acon,32                 ;18AC
DSCMDC  WORD    dasmlb                  ;18AE 1824 -
        WORD    cgmem                   ;18B0 0301 : monitor
        WORD    dpbnk                   ;18B2 0547 = monitor
        WORD    dasmlb                  ;18B4 1824 >
        WORD    gomem                   ;18B6 053E G monitor
        WORD    inmem                   ;18B8 02B8 I monitor
        WORD    momem                   ;18BA 0320 M monitor
        WORD    prmem                   ;18BC 0550 P monitor
        WORD    setqp                   ;18BE 052D Q monitor
        WORD    lstlb                   ;18C0 1E2F L disassembler
        WORD    setbp                   ;18C2 1F14 S disassembler
        WORD    inlab                   ;18C4 1E8E ( disassembler
        WORD    monml                   ;18C6 01B7 Y monitor
        WORD    vymem                   ;18C8 035D V monitor
        WORD    dsass                   ;18CA 18CE X disassembler
        WORD    tblst                   ;18CC 1E16 T disassembler
;
;                                       == disassemble                
dsass   BSTA,UN chhxd                   ;18CE 3F0289
        BCTA,LT error                   ;18D1 1E0196
        LODI,R0 0F8H                    ;18D4 04F8
        ZBSR    *pltbsv                 ;18D6 BBAA
        BSTA,UN CLRBY                   ;18D8 3F19EC
P18DB   LODI,R0 0BAH                    ;18DB 04BA
        ZBSR    *pstbsv                 ;18DD BBA8
        ZBSR    *chescv                 ;18DF BBBA
        BSTR,UN NXTIN                   ;18E1 3B18
        BSTA,UN WRINS                   ;18E3 3F1A32
        LODI,R0 0BCH                    ;18E6 04BC
        ZBSR    *pltbsv                 ;18E8 BBAA
        LODI,R0 0FAH                    ;18EA 04FA
        ZBSR    *cmtbsv                 ;18EC BBA2
        BCTA,GT wrtcr                   ;18EE 1D000B
        BCTR,UN P18DB                   ;18F1 1B68
;
        BYTE    data,6                  ;18F3
NXTIDT  BYTE    01BH,01FH,09BH,09FH,017H,037H
;
NXTIN   LODA,R3 DATBYT                  ;18FB 0F0EB4
        BCFA,EQ DATBT                   ;18FE 9C19FF
        LODA,R0 FSTBYT                  ;1901 0C0EB1
        STRZ    R1                      ;1904 C1
        ANDI,R1 0FCH                    ;1905 45FC
        COMI,R1 0C4H                    ;1907 E5C4
        BCTA,EQ FSDAT                   ;1909 1C19F5
        LODI,R1 6                       ;190C 0506
P190E   COMA,R0 NXTIDT,R1-              ;190E ED58F5
        BCTA,EQ CLRBY                   ;1911 1C19EC
        BRNR,R1 P190E                   ;1914 5978
;                                       == NRBYT
        LODA,R0 *INAD                   ;1916 0C8EBA
        STRZ    R1                      ;1919 C1
        ANDI,R1 058H                    ;191A 4558
        ANDI,R0 0FEH                    ;191C 44FE
        COMI,R0 010H                    ;191E E410
        BCTR,EQ NRBYT3                  ;1920 1814
        COMI,R0 0B4H                    ;1922 E4B4
        BCTR,EQ NRBYT2                  ;1924 180C
        COMI,R1 010H                    ;1926 E510
        BCTR,EQ NRBYT1                  ;1928 1810
        TMI,R0  00CH                    ;192A F40C
        BCTR,EQ NRBYT3                  ;192C 1808
        ANDI,R0 00CH                    ;192E 440C
        BCTR,EQ NRBYT1                  ;1930 1808
NRBYT2  LODI,R0 002H                    ;1932 0402
        BCTR,UN P193C                   ;1934 1B06
;
NRBYT3  LODI,R0 003H                    ;1936 0403
        BCTR,UN P193C                   ;1938 1B02
;
NRBYT1  LODI,R0 001H                    ;193A 0401
P193C   STRA,R0 NROBYT                   ;193C CC0EB0
;                                       == SBYTS
        LODA,R1 NROBYT                   ;193F 0D0EB0
SBYTSA  LODA,R0 *INAD,R1-              ;1942 0DCEBA
        STRA,R0 FSTBYT,R1                ;1945 CD6EB1
        BRNR,R1 SBYTSA                   ;1948 5978
CNIAD   LODA,R0 NROBYT                   ;194A 0C0EB0
        ADDA,R0 INAD+1                   ;194D 8C0EBB
        STRA,R0 NIAD+1                   ;1950 CC0EBD
        LODA,R0 INAD                   ;1953 0C0EBA
        PPSL    WC                      ;1956 7708
        ADDI,R0 000H                    ;1958 8400
        CPSL    WC                      ;195A 7508
        STRA,R0 NIAD                   ;195C CC0EBC
;                                       == CIEAD
        LODA,R0 DATBYT                   ;195F 0C0EB4
        COMI,R0 0C4H                    ;1962 E4C4
        BCFR,EQ P1971                   ;1964 980B
        LODI,R1 002H                    ;1966 0502
CIEADA  LODA,R0 *INAD,R1-              ;1968 0DCEBA
        STRA,R0 IEAD,R1                ;196B CD6EBE
        BRNR,R1 CIEADA                   ;196E 5978
        RETC,UN                         ;1970 17
;
P1971   LODA,R1 FSTBYT                   ;1971 0D0EB1
        LODA,R2 SECBYT                   ;1974 0E0EB2
        LODA,R3 THRBYT                   ;1977 0F0EB3
        LODZ    R1                      ;197A 01
        ANDI,R0 0DFH                    ;197B 44DF
        COMI,R0 09BH                    ;197D E49B
        BCFR,EQ P1998                   ;197F 9817
;
;                                       == ZERAD
        TMI,R2  040H                    ;1981 F640
        BCTR,EQ ZERADA                   ;1983 1808
        ANDI,R2 03FH                    ;1985 463F
        STRA,R2 IEAD+1                   ;1987 CE0EBF
        EORZ    R0                      ;198A 20
        BCTR,UN P1994                   ;198B 1B07
;
ZERADA  IORI,R2 0C0H                    ;198D 66C0
        STRA,R2 IEAD+1                   ;198F CE0EBF
        LODI,R0 01FH                    ;1992 041F
P1994   STRA,R0 IEAD                   ;1994 CC0EBE
        RETC,UN                         ;1997 17
;
P1998   ANDI,R0 00CH                    ;1998 440C
        COMI,R0 008H                    ;199A E408
        BCTR,EQ RELAD                   ;199C 1829
        LODZ    R1                      ;199E 01
        ANDI,R0 018H                    ;199F 4418
        COMI,R0 008H                    ;19A1 E408
        BCTR,EQ PAGAD                   ;19A3 1813
        COMI,R0 018H                    ;19A5 E418
        BCTR,EQ ABSAD                   ;19A7 180A
        ANDI,R1 0FEH                    ;19A9 45FE
        COMI,R1 010H                    ;19AB E510
        BCTR,EQ ABSAD                   ;19AD 1804
        LODI,R0 080H                    ;19AF 0480
        BCTR,UN P1994                   ;19B1 1B61
;
ABSAD   ANDI,R2 07FH                    ;19B3 467F
        LODZ    R2                      ;19B5 02
        BCTR,UN P19C0                   ;19B6 1B08
;
PAGAD   ANDI,R2 01FH                    ;19B8 461F
        LODA,R0 NIAD                   ;19BA 0C0EBC
        ANDI,R0 060H                    ;19BD 4460
        IORZ    R2                      ;19BF 62
P19C0   STRA,R0 IEAD                   ;19C0 CC0EBE
        STRA,R3 IEAD+1                   ;19C3 CF0EBF
        RETC,UN                         ;19C6 17
;
RELAD   LODZ    R2                      ;19C7 02
        TMI,R0  040H                    ;19C8 F440
        BCTR,EQ P19DA                   ;19CA 180E
        ANDI,R0 03FH                    ;19CC 443F
        ADDA,R0 NIAD+1                   ;19CE 8C0EBD
        STRZ    R3                      ;19D1 C3
        EORZ    R0                      ;19D2 20
        PPSL    WC                      ;19D3 7708
        ADDA,R0 NIAD                   ;19D5 8C0EBC
        BCTR,UN P19E7                   ;19D8 1B0D
;
P19DA   IORI,R0 0C0H                    ;19DA 64C0
        ADDA,R0 NIAD+1                   ;19DC 8C0EBD
        STRZ    R3                      ;19DF C3
        LODA,R0 NIAD                   ;19E0 0C0EBC
        PPSL    WC                      ;19E3 7708
        SUBI,R0 000H                    ;19E5 A400
P19E7   CPSL    WC                      ;19E7 7508
        STRZ    R2                      ;19E9 C2
        BCTR,UN PAGAD                   ;19EA 1B4C
;
CLRBY   EORZ    R0                      ;19EC 20
        LODI,R1 005H                    ;19ED 0505
P19EF   STRA,R0 NROBYT,R1-               ;19EF CD4EB0
        BRNR,R1 P19EF                   ;19F2 597B
        RETC,UN                         ;19F4 17
;
FSDAT   STRZ    R3                      ;19F5 C3
        STRA,R3 DATBYT                   ;19F6 CF0EB4
        EORZ    R0                      ;19F9 20
        STRA,R0 FSTBYT                   ;19FA CC0EB1
        BCTR,UN CDATB                   ;19FD 1B07
;
DATBT   LODZ    R3                      ;19FF 03
        ANDI,R0 0FCH                    ;1A00 44FC
        COMI,R0 0C4H                    ;1A02 E4C4
        BCFR,EQ CLRBY                   ;1A04 9866
CDATB   LODI,R1 008H                    ;1A06 0508
        COMI,R3 0C7H                    ;1A08 E7C7
        BCFR,EQ P1A11                   ;1A0A 9805
        LODA,R1 SECBYT                   ;1A0C 0D0EB2
        BCTR,UN P1A17                   ;1A0F 1B06
;
P1A11   COMI,R3 0C4H                    ;1A11 E7C4
        BCFR,EQ P1A17                   ;1A13 9802
        LODI,R1 002H                    ;1A15 0502
P1A17   LODA,R2 SECBYT                   ;1A17 0E0EB2
        BCTR,EQ CLRBY                   ;1A1A 1850
        LODZ    R1                      ;1A1C 01
        COMZ    R2                      ;1A1D E2
        BCFR,LT P1A25                   ;1A1E 9A05
        LODZ    R2                      ;1A20 02
        SUBZ    R1                      ;1A21 A1
        STRZ    R2                      ;1A22 C2
        BCTR,UN P1A29                   ;1A23 1B04
;
P1A25   LODZ    R2                      ;1A25 02
        STRZ    R1                      ;1A26 C1
        LODI,R2 000H                    ;1A27 0600
P1A29   STRA,R1 NROBYT                   ;1A29 CD0EB0
        STRA,R2 SECBYT                   ;1A2C CE0EB2
        BCTA,UN CNIAD                   ;1A2F 1F194A
;
WRINS   ZBSR    wrtcr                   ;1A32 BB0B
        LODA,R0 NROBYT                   ;1A34 0C0EB0
        RETC,EQ                         ;1A37 14
        LODI,R1 002H                    ;1A38 0502
P1A3A   LODA,R0 STLB,R1-               ;1A3A 0D4EC0
        STRA,R0 LBCT,R1                ;1A3D CD6EC4
        BRNR,R1 P1A3A                   ;1A40 5978
P1A42   BSTA,UN CLBCT                   ;1A42 3F1E6A
        BCFR,LT P1A6D                   ;1A45 9A26
        LODI,R1 0FFH                    ;1A47 05FF
        LODA,R0 *LBCT,R1+              ;1A49 0DAEC4
        BCFR,LT P1A5D                   ;1A4C 9A0F
        ANDI,R0 07FH                    ;1A4E 447F
        COMA,R0 INAD                   ;1A50 EC0EBA
        BCFR,EQ P1A5D                   ;1A53 9808
        LODA,R0 *LBCT,R1+              ;1A55 0DAEC4
        COMA,R0 INAD+1                   ;1A58 EC0EBB
        BCTR,EQ P1A62                   ;1A5B 1805
P1A5D   BSTA,UN ALBCT                   ;1A5D 3F1E79
        BCTR,UN P1A42                   ;1A60 1B60
;
P1A62   LODA,R0 *LBCT,R1+              ;1A62 0DAEC4
        ZBSR    wrtzv                   ;1A65 BB05
        COMI,R1 006H                    ;1A67 E506
        BCFR,GT P1A62                   ;1A69 9977
        BCTR,UN P1A73                   ;1A6B 1B06
;
P1A6D   LODI,R1 020H                    ;1A6D 0520
        LODI,R2 006H                    ;1A6F 0606
        ZBSR    wrtdx                   ;1A71 BB17
P1A73   ZBSR    wrtsp                   ;1A73 BB03
        LODI,R3 0BAH                    ;1A75 07BA
        ZBSR    *wrtbsv                  ;1A77 BBB6
        ZBSR    wrtsp                   ;1A79 BB03
        LODA,R3 DATBYT                   ;1A7B 0F0EB4
        BCFA,EQ WRDAR                   ;1A7E 9C1D8B
        LODI,R3 000H                    ;1A81 0700
P1A83   LODA,R0 NROBYT,R3+               ;1A83 0F2EB0
        ZBSR    *wchexv                  ;1A86 BBB8
        ZBSR    wrtsp                   ;1A88 BB03
        COMA,R3 NROBYT                   ;1A8A EF0EB0
        BCFR,EQ P1A83                   ;1A8D 9874
        LODZ    R3                      ;1A8F 03
        ADDZ    R3                      ;1A90 83
        ADDZ    R3                      ;1A91 83
        STRZ    R2                      ;1A92 C2
        LODI,R0 009H                    ;1A93 0409
        SUBZ    R2                      ;1A95 A2
        BCTR,EQ P1A9D                   ;1A96 1805
        STRZ    R2                      ;1A98 C2
        LODI,R1 020H                    ;1A99 0520
        ZBSR    wrtdx                   ;1A9B BB17
P1A9D   LODA,R1 FSTBYT                   ;1A9D 0D0EB1
        BCTR,EQ NOINS                   ;1AA0 1819
        LODZ    R1                      ;1AA2 01
        ANDI,R0 0FEH                    ;1AA3 44FE
        COMI,R0 090H                    ;1AA5 E490
        BCTR,EQ P1ABF                   ;1AA7 1816
        COMI,R0 0B6H                    ;1AA9 E4B6
        BCTR,EQ P1ABF                   ;1AAB 1812
        ANDI,R0 018H                    ;1AAD 4418
        COMI,R0 018H                    ;1AAF E418
        BCTA,EQ BRAIN                   ;1AB1 1C1B40
        COMI,R0 010H                    ;1AB4 E410
        BCTA,EQ RESIN                   ;1AB6 1C1B92
        BCTR,UN COMIN                   ;1AB9 1B15
;
NOINS   LODI,R1 02EH                    ;1ABB 052E
        BCTR,UN P1AC1                   ;1ABD 1B02
;
P1ABF   LODI,R1 03FH                    ;1ABF 053F
P1AC1   LODI,R2 004H                    ;1AC1 0604
        ZBSR    wrtdx                   ;1AC3 BB17
WRSP13  LODI,R2 00DH                    ;1AC5 060D
        BCTR,UN WRSPXX                   ;1AC7 1B02
;
WRSP04  LODI,R2 004H                    ;1AC9 0604
WRSPXX  LODI,R1 020H                    ;1ACB 0520
        ZBSR    wrtdx                   ;1ACD BB17
        RETC,UN                         ;1ACF 17
;
COMIN   COMI,R1 040H                    ;1AD0 E540
        BCTR,EQ COMEX                   ;1AD2 1808
        COMI,R1 0C0H                    ;1AD4 E5C0
        BCFR,EQ P1AE5                   ;1AD6 980D
        LODI,R1 040H                    ;1AD8 0540
        BCTR,UN P1ADE                   ;1ADA 1B02
;
COMEX   LODI,R1 03CH                    ;1ADC 053C
P1ADE   LODI,R2 004H                    ;1ADE 0604
        BSTA,UN WRDAT                   ;1AE0 3F1C5D
        BCTR,UN WRSP13                   ;1AE3 1B60
;
P1AE5   ANDI,R1 0FCH                    ;1AE5 45FC
        COMI,R1 0C4H                    ;1AE7 E5C4
        BCTA,EQ DATBK                   ;1AE9 1C1B2A
        ANDI,R1 0E0H                    ;1AEC 45E0
        RRL,R1                          ;1AEE D1
        RRL,R1                          ;1AEF D1
        RRL,R1                          ;1AF0 D1
        LODZ    R1                      ;1AF1 01
        ADDZ    R1                      ;1AF2 81
        ADDZ    R1                      ;1AF3 81
        STRZ    R1                      ;1AF4 C1
        ADDI,R1 010H                    ;1AF5 8510
        LODI,R2 003H                    ;1AF7 0603
        BSTA,UN WRDAT                   ;1AF9 3F1C5D
        BSTR,UN WZIRA                   ;1AFC 3B05
        BSTR,UN WRREG                   ;1AFE 3B12
        BCTA,UN WINIX                   ;1B00 1F1CF7
;
WZIRA   LODA,R1 FSTBYT                   ;1B03 0D0EB1
        ANDI,R1 00CH                    ;1B06 450C
        RRR,R1                          ;1B08 51
        RRR,R1                          ;1B09 51
        LODA,R0 INSTBL+56,R1            ;1B0A 0D7C9F
        ZBSR    wrtzv                   ;1B0D BB05
        ZBSR    wrtsp                   ;1B0F BB03
        RETC,UN                         ;1B11 17
;
WRREG   LODA,R1 FSTBYT                   ;1B12 0D0EB1
        ANDI,R1 003H                    ;1B15 4503
        RRL,R1                          ;1B17 D1
        BCTR,UN P1B22                   ;1B18 1B08
;
WRCON   LODA,R1 FSTBYT                   ;1B1A 0D0EB1
        ANDI,R1 003H                    ;1B1D 4503
        RRL,R1                          ;1B1F D1
        ADDI,R1 008H                    ;1B20 8508
P1B22   LODI,R2 002H                    ;1B22 0602
        BSTA,UN WRDAT                   ;1B24 3F1C5D
        ZBSR    wrtsp                   ;1B27 BB03
        RETC,UN                         ;1B29 17
;
DATBK   LODA,R1 FSTBYT                   ;1B2A 0D0EB1
        ANDI,R1 003H                    ;1B2D 4503
        LODZ    R1                      ;1B2F 01
        ADDZ    R1                      ;1B30 81
        ADDZ    R1                      ;1B31 81
        ADDZ    R1                      ;1B32 81
        STRZ    R1                      ;1B33 C1
        ADDI,R1 080H                    ;1B34 8580
        LODI,R2 004H                    ;1B36 0604
        BSTA,UN WRDAT                   ;1B38 3F1C5D
        LODI,R2 00DH                    ;1B3B 060D
        BCTA,UN WRSPXX                   ;1B3D 1F1ACB
;
BRAIN   LODZ    R1                      ;1B40 01
        LODI,R1 044H                    ;1B41 0544
        COMI,R0 09BH                    ;1B43 E49B
        BCTR,EQ P1B5B                   ;1B45 1814
        COMI,R0 09FH                    ;1B47 E49F
        BCTR,EQ P1B57                   ;1B49 180C
        COMI,R0 0BBH                    ;1B4B E4BB
        BCTR,EQ P1B59                   ;1B4D 180A
        COMI,R0 0BFH                    ;1B4F E4BF
        BCTR,EQ BRAEX                   ;1B51 1802
        BCTR,UN BRAINA                   ;1B53 1B14
;
BRAEX   ADDI,R1 004H                    ;1B55 8504
P1B57   ADDI,R1 004H                    ;1B57 8504
P1B59   ADDI,R1 004H                    ;1B59 8504
P1B5B   LODI,R2 004H                    ;1B5B 0604
        BSTA,UN WRDAT                   ;1B5D 3F1C5D
        COMI,R1 04CH                    ;1B60 E54C
        BCTR,GT P1B8B                   ;1B62 1927
        BSTA,UN WRSP04                   ;1B64 3F1AC9
        BCTR,UN P1B88                   ;1B67 1B1F
;
BRAINA  STRZ    R1                      ;1B69 C1
        ANDI,R1 0E0H                    ;1B6A 45E0
        RRL,R1                          ;1B6C D1
        RRL,R1                          ;1B6D D1
        RRL,R1                          ;1B6E D1
        RRL,R1                          ;1B6F D1
        ADDI,R1 028H                    ;1B70 8528
        LODI,R2 002H                    ;1B72 0602
        LODI,R0 042H                    ;1B74 0442
        ZBSR    wrtzv                   ;1B76 BB05
        BSTA,UN WRDAT                   ;1B78 3F1C5D
        BSTA,UN WZIRA                   ;1B7B 3F1B03
        LODA,R0 FSTBYT                   ;1B7E 0C0EB1
        TMI,R0  040H                    ;1B81 F440
        BCTR,EQ P1B8D                   ;1B83 1808
        BSTA,UN WRCON                   ;1B85 3F1B1A
P1B88   BCTA,UN WINIX                   ;1B88 1F1CF7
;
P1B8B   ZBSR    wrtsp                   ;1B8B BB03
P1B8D   BSTA,UN WRREG                   ;1B8D 3F1B12
        BCTR,UN P1B88                   ;1B90 1B76
;
RESIN   LODZ    R1                      ;1B92 01
        LODI,R2 004H                    ;1B93 0604
        LODI,R1 05CH                    ;1B95 055C
        COMI,R0 010H                    ;1B97 E410
        BCTR,EQ P1BA3                   ;1B99 1808
        COMI,R0 011H                    ;1B9B E411
        BCTR,EQ P1BA1                   ;1B9D 1802
        BCTR,UN P1BAC                   ;1B9F 1B0B
;
P1BA1   ADDI,R1 004H                    ;1BA1 8504
P1BA3   BSTA,UN WRDAT                   ;1BA3 3F1C5D
        BSTA,UN WRSP04                   ;1BA6 3F1AC9
        BCTA,UN WINIX                   ;1BA9 1F1CF7
;
P1BAC   LODI,R1 054H                    ;1BAC 0554
        ANDI,R0 0E4H                    ;1BAE 44E4
        COMI,R0 004H                    ;1BB0 E404
        BCTR,EQ P1BBC                   ;1BB2 1808
        COMI,R0 024H                    ;1BB4 E424
        BCTR,EQ P1BBA                   ;1BB6 1802
        BCTR,UN P1BC7                   ;1BB8 1B0D
;
P1BBA   ADDI,R1 004H                    ;1BBA 8504
P1BBC   BSTA,UN WRDAT                   ;1BBC 3F1C5D
        ZBSR    wrtsp                   ;1BBF BB03
        BSTA,UN WRCON                   ;1BC1 3F1B1A
        BCTA,UN WINIX                   ;1BC4 1F1CF7
;
P1BC7   LODI,R1 070H                    ;1BC7 0570
        LODI,R2 003H                    ;1BC9 0603
        COMI,R0 040H                    ;1BCB E440
        BCTR,EQ P1BE3                   ;1BCD 1814
        COMI,R0 0C0H                    ;1BCF E4C0
        BCTR,EQ P1BE1                   ;1BD1 180E
        COMI,R0 084H                    ;1BD3 E484
        BCTR,EQ P1BDF                   ;1BD5 1808
        COMI,R0 0E4H                    ;1BD7 E4E4
        BCTR,EQ P1BDD                   ;1BD9 1802
        BCTR,UN P1BF0                   ;1BDB 1B13
;
P1BDD   ADDI,R1 003H                    ;1BDD 8503
P1BDF   ADDI,R1 003H                    ;1BDF 8503
P1BE1   ADDI,R1 003H                    ;1BE1 8503
P1BE3   BSTA,UN WRDAT                   ;1BE3 3F1C5D
        ZBSR    wrtsp                   ;1BE6 BB03
        ZBSR    wrtsp                   ;1BE8 BB03
        BSTA,UN WRREG                   ;1BEA 3F1B12
        BCTA,UN WINIX                   ;1BED 1F1CF7
;
P1BF0   LODI,R1 06AH                    ;1BF0 056A
        COMI,R0 020H                    ;1BF2 E420
        BCTR,EQ P1C0E                   ;1BF4 1818
        COMI,R0 044H                    ;1BF6 E444
        BCTR,EQ P1C0E                   ;1BF8 1814
        COMI,R0 060H                    ;1BFA E460
        BCTR,EQ P1C0E                   ;1BFC 1810
        COMI,R0 0A0H                    ;1BFE E4A0
        BCTR,EQ P1C0C                   ;1C00 180A
        COMI,R0 0C4H                    ;1C02 E4C4
        BCTR,EQ P1C0C                   ;1C04 1806
        COMI,R0 0E0H                    ;1C06 E4E0
        BCTR,EQ P1C0C                   ;1C08 1802
        BCTR,UN P1C26                   ;1C0A 1B1A
;
P1C0C   ADDI,R1 003H                    ;1C0C 8503
P1C0E   BSTA,UN WRDAT                   ;1C0E 3F1C5D
        LODA,R1 FSTBYT                   ;1C11 0D0EB1
        ANDI,R1 060H                    ;1C14 4560
        RRL,R1                          ;1C16 D1
        RRL,R1                          ;1C17 D1
        RRL,R1                          ;1C18 D1
        LODA,R0 INSTBL+123,R1                ;1C19 0D7CE2
        ZBSR    wrtzv                   ;1C1C BB05
        ZBSR    wrtsp                   ;1C1E BB03
        BSTA,UN WRREG                   ;1C20 3F1B12
        BCTA,UN WINIX                   ;1C23 1F1CF7
;
P1C26   LODA,R1 FSTBYT                   ;1C26 0D0EB1
        ANDI,R1 086H                    ;1C29 4586
        LODI,R0 053H                    ;1C2B 0453
        COMI,R1 002H                    ;1C2D E502
        BCTR,EQ P1C45                   ;1C2F 1814
        LODI,R0 043H                    ;1C31 0443
        COMI,R1 004H                    ;1C33 E504
        BCTR,EQ P1C45                   ;1C35 180E
        LODI,R0 050H                    ;1C37 0450
        COMI,R1 006H                    ;1C39 E506
        BCTR,EQ P1C45                   ;1C3B 1808
        LODI,R0 04CH                    ;1C3D 044C
        COMI,R1 082H                    ;1C3F E582
        BCTR,EQ P1C45                   ;1C41 1802
        LODI,R0 054H                    ;1C43 0454
P1C45   ZBSR    wrtzv                   ;1C45 BB05
        LODA,R1 FSTBYT                   ;1C47 0D0EB1
        RRR,R1                          ;1C4A 51
        BCTR,LT P1C51                   ;1C4B 1A04
        LODI,R1 064H                    ;1C4D 0564
        BCTR,UN P1C53                   ;1C4F 1B02
;
P1C51   LODI,R1 067H                    ;1C51 0567
P1C53   LODI,R2 003H                    ;1C53 0603
        BSTA,UN WRDAT                   ;1C55 3F1C5D
        LODI,R2 00DH                    ;1C58 060D
        BCTA,UN WRSPXX                   ;1C5A 1F1ACB
;
WRDAT   LODA,R0 INSTBL-1,R1+               ;1C5D 0D3C66
        ZBSR    wrtzv                   ;1C60 BB05
        BDRR,R2 WRDAT                   ;1C62 FA79
        RETC,UN                         ;1C64 17
;
        BYTE    text,090h               ;1C65 F
INSTBL  BYTE    "R0R1R2R3"              ;1C67
        BYTE    "= + - UN"              ;1C6F
        BYTE    "LODEORANDIORADDSUBSTRCOM"
        BYTE    "CTSTRNSNCFSFIRDR"      ;1C8F
        BYTE    "ZIRA"
        BYTE    "HALT"
        BYTE    "NOP "
        BYTE    "ZBRR"
        BYTE    "ZBSR"
        BYTE    "BXA "
        BYTE    "BSXA"
        BYTE    "RETC"
        BYTE    "RETE"
        BYTE    "LDPL"
        BYTE    "STPL"
        BYTE    "PSU"
        BYTE    "PSL"
        BYTE    "RED"
        BYTE    "WRT"
        BYTE    "RRR"
        BYTE    "RRL"
        BYTE    "DAR"
        BYTE    "TMI"
        BYTE    "CEDY"
        BYTE    "ACON"
        BYTE    "DATA"
        BYTE    "TEXT"
        BYTE    "TITL"
;
WINIX   LODA,R1 FSTBYT                   ;1CF7 0D0EB1
        LODZ    R1                      ;1CFA 01
        ANDI,R0 0FEH                    ;1CFB 44FE
        COMI,R0 010H                    ;1CFD E410
        BCTR,EQ P1D0C                   ;1CFF 180B
        TMI,R1  008H                    ;1D01 F508
        BCTR,EQ P1D0C                   ;1D03 1807
        LODI,R1 020H                    ;1D05 0520
        LODI,R2 009H                    ;1D07 0609
        ZBSR    wrtdx                   ;1D09 BB17
        RETC,UN                         ;1D0B 17
;
P1D0C   LODA,R2 SECBYT                   ;1D0C 0E0EB2
        BCTR,LT P1D15                   ;1D0F 1A04
        LODI,R0 020H                    ;1D11 0420
        BCTR,UN P1D17                   ;1D13 1B02
;
P1D15   LODI,R0 02AH                    ;1D15 042A
P1D17   ZBSR    wrtzv                   ;1D17 BB05
        LODZ    R1                      ;1D19 01
        ANDI,R0 0DFH                    ;1D1A 44DF
        COMI,R0 09FH                    ;1D1C E49F
        BCFR,EQ P1D24                   ;1D1E 9804
        LODI,R2 060H                    ;1D20 0660
        BCTR,UN P1D2E                   ;1D22 1B0A
;
P1D24   ANDI,R0 01CH                    ;1D24 441C
        COMI,R0 00CH                    ;1D26 E40C
        BCFR,EQ P1D48                   ;1D28 981E
        ANDI,R2 060H                    ;1D2A 4660
        BCTR,EQ P1D48                   ;1D2C 181A
P1D2E   LODI,R0 023H                    ;1D2E 0423
        ZBSR    wrtzv                   ;1D30 BB05
        TMI,R2  060H                    ;1D32 F660
        BCTR,EQ P1D42                   ;1D34 180C
        TMI,R2  020H                    ;1D36 F620
        BCTR,EQ P1D3E                   ;1D38 1804
        LODI,R0 02DH                    ;1D3A 042D
        BCTR,UN P1D44                   ;1D3C 1B06
;
P1D3E   LODI,R0 02BH                    ;1D3E 042B
        BCTR,UN P1D44                   ;1D40 1B02
;
P1D42   LODI,R0 020H                    ;1D42 0420
P1D44   ZBSR    wrtzv                   ;1D44 BB05
        BCTR,UN P1D4C                   ;1D46 1B04
;
P1D48   ZBSR    wrtsp                   ;1D48 BB03
        ZBSR    wrtsp                   ;1D4A BB03
P1D4C   ZBSR    wrtsp                   ;1D4C BB03
        LODI,R3 0BEH                    ;1D4E 07BE
        ZBSR    *wrtbsv                  ;1D50 BBB6
        ZBSR    wrtsp                   ;1D52 BB03
        BCTA,UN WRSLB                   ;1D54 1F1D57
;
WRSLB   LODI,R1 002H                    ;1D57 0502
P1D59   LODA,R0 STLB,R1-               ;1D59 0D4EC0
        STRA,R0 LBCT,R1                ;1D5C CD6EC4
        BRNR,R1 P1D59                   ;1D5F 5978
P1D61   BSTA,UN CLBCT                   ;1D61 3F1E6A
        RETC,EQ                         ;1D64 14
        RETC,GT                         ;1D65 15
        LODI,R1 0FFH                    ;1D66 05FF
        LODA,R0 *LBCT,R1+              ;1D68 0DAEC4
        BCFR,LT P1D7C                   ;1D6B 9A0F
        ANDI,R0 07FH                    ;1D6D 447F
        COMA,R0 IEAD                   ;1D6F EC0EBE
        BCFR,EQ P1D7C                   ;1D72 9808
        LODA,R0 *LBCT,R1+              ;1D74 0DAEC4
        COMA,R0 IEAD+1                   ;1D77 EC0EBF
        BCTR,EQ P1D81                   ;1D7A 1805
P1D7C   BSTA,UN ALBCT                   ;1D7C 3F1E79
        BCTR,UN P1D61                   ;1D7F 1B60
;
P1D81   LODA,R0 *LBCT,R1+              ;1D81 0DAEC4
        ZBSR    wrtzv                   ;1D84 BB05
        COMI,R1 006H                    ;1D86 E506
        BCFR,GT P1D81                   ;1D88 9977
        RETC,UN                         ;1D8A 17
;
WRDAR   COMI,R3 0C4H                    ;1D8B E7C4
        BCTA,EQ ACONR                   ;1D8D 1C1DE9
        COMI,R3 0C5H                    ;1D90 E7C5
        BCTR,EQ HEXWR                   ;1D92 1824
        COMI,R3 0C6H                    ;1D94 E7C6
        BCTR,EQ DATAR                   ;1D96 1832
;                                       ==  ascwr
        LODI,R3 000H                    ;1D98 0700
ASCWRA  LODA,R0 *INAD,R3                ;1D9A 0FEEBA
        ZBSR    wrtzv                   ;1D9D BB05
        ADDI,R3 001H                    ;1D9F 8701
        COMA,R3 NROBYT                   ;1DA1 EF0EB0
        BCFR,EQ ASCWRA                   ;1DA4 9874
        RETC,UN                         ;1DA6 17
;
WBYTS   LODI,R3 000H                    ;1DA7 0700
P1DA9   LODA,R0 *INAD,R3               ;1DA9 0FEEBA
        ZBSR    *wchexv                  ;1DAC BBB8
        ZBSR    wrtsp                   ;1DAE BB03
        ADDI,R3 001H                    ;1DB0 8701
        COMA,R3 NROBYT                   ;1DB2 EF0EB0
        BCFR,EQ P1DA9                   ;1DB5 9872
        RETC,UN                         ;1DB7 17
;
HEXWR   BSTR,UN WBYTS                   ;1DB8 3B6D
        LODA,R2 NROBYT                   ;1DBA 0E0EB0
        LODZ    R2                      ;1DBD 02
        ADDZ    R2                      ;1DBE 82
        ADDZ    R2                      ;1DBF 82
        STRZ    R2                      ;1DC0 C2
        LODI,R0 01AH                    ;1DC1 041A
        SUBZ    R2                      ;1DC3 A2
        STRZ    R2                      ;1DC4 C2
        LODI,R1 020H                    ;1DC5 0520
        ZBSR    wrtdx                   ;1DC7 BB17
        RETC,UN                         ;1DC9 17
;
DATAR   BSTR,UN HEXWR                   ;1DCA 3B6C
;                                       == sascw
        LODI,R3 000H                    ;1DCC 0700
SASCWA  LODA,R0 *INAD,R3               ;1DCE 0FEEBA
        ANDI,R0 07FH                    ;1DD1 447F
        COMI,R0 020H                    ;1DD3 E420
        BCTR,LT P1DDD                   ;1DD5 1A06
        COMI,R0 07FH                    ;1DD7 E47F
        BCTR,EQ P1DDD                   ;1DD9 1802
        BCTR,UN P1DDF                   ;1DDB 1B02
;
P1DDD   LODI,R0 020H                    ;1DDD 0420
P1DDF   ZBSR    wrtzv                   ;1DDF BB05
        ADDI,R3 001H                    ;1DE1 8701
        COMA,R3 NROBYT                   ;1DE3 EF0EB0
        BCFR,EQ SASCWA                   ;1DE6 9866
        RETC,UN                         ;1DE8 17
;
ACONR   BSTA,UN WBYTS                   ;1DE9 3F1DA7
        LODI,R2 00BH                    ;1DEC 060B
        LODI,R1 020H                    ;1DEE 0520
        ZBSR    wrtdx                   ;1DF0 BB17
        LODA,R0 IEAD                   ;1DF2 0C0EBE
        BCTR,LT P1DFB                   ;1DF5 1A04
        LODI,R0 020H                    ;1DF7 0420
        BCTR,UN P1DFD                   ;1DF9 1B02
;
P1DFB   LODI,R0 02AH                    ;1DFB 042A
P1DFD   ZBSR    wrtzv                   ;1DFD BB05
        ZBSR    wrtsp                   ;1DFF BB03
        ZBSR    wrtsp                   ;1E01 BB03
        ZBSR    wrtsp                   ;1E03 BB03
        LODA,R0 IEAD                   ;1E05 0C0EBE
        ANDI,R0 07FH                    ;1E08 447F
        ZBSR    *wchexv                  ;1E0A BBB8
        LODA,R0 IEAD+1                   ;1E0C 0C0EBF
        ZBSR    *wchexv                  ;1E0F BBB8
        ZBSR    wrtsp                   ;1E11 BB03
        BCTA,UN WRSLB                   ;1E13 1F1D57
;
tblst   BSTA,UN chhxd                   ;1E16 3F0289
        BCFR,LT P1E24                   ;1E19 9A09
        EORZ    R0                      ;1E1B 20
        LODI,R1 4                       ;1E1C 0504
P1E1E   STRA,R0 STLB,R1-                ;1E1E CD4EC0
        BRNR,R1 P1E1E                   ;1E21 597B
        RETC,UN                         ;1E23 17
;
P1E24   LODI,R1 4                       ;1E24 0504
P1E26   LODA,R0 stad,R1-                ;1E26 0D4EF8
        STRA,R0 STLB,R1                 ;1E29 CD6EC0
        BRNR,R1 P1E26                   ;1E2C 5978
        RETC,UN                         ;1E2E 17
;
lstlb   LODI,R0 0C0H                    ;1E2F 04C0
        ZBSR    *pltbsv                 ;1E31 BBAA
        LODI,R0 0C4H                    ;1E33 04C4
        ZBSR    *pstbsv                 ;1E35 BBA8
        LODI,R2 001H                    ;1E37 0601
P1E39   BSTR,UN CLBCT                   ;1E39 3B2F
        BCFA,LT wrtcr                   ;1E3B 9E000B
        LODA,R3 *LBCT                   ;1E3E 0F8EC4
        BCFR,LT P1E66                   ;1E41 9A23
        BDRR,R2 P1E4B                   ;1E43 FA06
        ZBSR    *chescv                 ;1E45 BBBA
        LODI,R2 004H                    ;1E47 0604
        ZBSR    wrtcr                   ;1E49 BB0B
P1E4B   LODZ    R3                      ;1E4B 03
        ANDI,R0 07FH                    ;1E4C 447F
        LODI,R3 000H                    ;1E4E 0700
        ZBSR    *wchexv                 ;1E50 BBB8
        LODA,R0 *LBCT,R3+               ;1E52 0FAEC4
        ZBSR    *wchexv                 ;1E55 BBB8
        ZBSR    wrtsp                   ;1E57 BB03
P1E59   LODA,R0 *LBCT,R3+               ;1E59 0FAEC4
        ZBSR    wrtzv                   ;1E5C BB05
        COMI,R3 006H                    ;1E5E E706
        BCFR,GT P1E59                   ;1E60 9977
        ZBSR    wrtsp                   ;1E62 BB03
        ZBSR    wrtsp                   ;1E64 BB03
P1E66   BSTR,UN ALBCT                   ;1E66 3B11
        BCTR,UN P1E39                   ;1E68 1B4F
;
CLBCT   LODA,R0 LBCT                    ;1E6A 0C0EC4
        COMA,R0 ENLB                    ;1E6D EC0EC2
        RETC,GT                         ;1E70 15
        RETC,LT                         ;1E71 16
        LODA,R0 LBCT+1                  ;1E72 0C0EC5
        COMA,R0 ENLB+1                  ;1E75 EC0EC3
        RETC,UN                         ;1E78 17
;
ALBCT   LODI,R0 008H                    ;1E79 0408
        ADDA,R0 LBCT+1                  ;1E7B 8C0EC5
        STRA,R0 LBCT+1                  ;1E7E CC0EC5
        LODA,R0 LBCT                    ;1E81 0C0EC4
        PPSL    WC                      ;1E84 7708
        ADDI,R0 000H                    ;1E86 8400
        CPSL    WC                      ;1E88 7508
        STRA,R0 LBCT                    ;1E8A CC0EC4
        RETC,UN                         ;1E8D 17
;
inlab   BSTA,UN chhxdd                  ;1E8E 3F02B1
        BCTA,LT error                   ;1E91 1E0196
        LODI,R1 000H                    ;1E94 0500
P1E96   ZBSR    *tinprv                 ;1E96 BBB0
        BCTA,LT error                   ;1E98 1E0196
        COMI,R0 029H                    ;1E9B E429
        BCTR,EQ P1EAB                   ;1E9D 180C
        STRA,R0 LABN,R1                 ;1E9F CD6ECA
        COMI,R1 006H                    ;1EA2 E506
        BCTA,EQ error                   ;1EA4 1C0196
        ADDI,R1 001H                    ;1EA7 8501
        BCTR,UN P1E96                   ;1EA9 1B6B
;
P1EAB   LODI,R0 020H                    ;1EAB 0420
P1EAD   COMI,R1 006H                    ;1EAD E506
        BCTR,EQ P1EB8                   ;1EAF 1807
        STRA,R0 LABN,R1                 ;1EB1 CD6ECA
        ADDI,R1 001H                    ;1EB4 8501
        BCTR,UN P1EAD                   ;1EB6 1B75
;
P1EB8   LODA,R0 stad                    ;1EB8 0C0EF8
        IORI,R0 080H                    ;1EBB 6480
        STRA,R0 LABA                    ;1EBD CC0EC8
        LODA,R0 stad+1                  ;1EC0 0C0EF9
        STRA,R0 LABA+1                  ;1EC3 CC0EC9
        LODI,R1 002H                    ;1EC6 0502
P1EC8   LODA,R0 STLB,R1-                ;1EC8 0D4EC0
        STRA,R0 LBCT,R1                 ;1ECB CD6EC4
        BRNR,R1 P1EC8                   ;1ECE 5978
        LODA,R0 LABN                    ;1ED0 0C0ECA
        COMI,R0 020H                    ;1ED3 E420
        BCTR,EQ P1EF2                   ;1ED5 181B
P1ED7   BSTA,UN CLBCT                   ;1ED7 3F1E6A
        BCFA,LT error                   ;1EDA 9E0196
        LODA,R0 *LBCT                   ;1EDD 0C8EC4
        BCFR,LT P1EE7                   ;1EE0 9A05
        BSTA,UN ALBCT                   ;1EE2 3F1E79
        BCTR,UN P1ED7                   ;1EE5 1B70
;
P1EE7   LODI,R1 008H                    ;1EE7 0508
P1EE9   LODA,R0 LABA,R1-                ;1EE9 0D4EC8
        STRA,R0 *LBCT,R1                ;1EEC CDEEC4
        BRNR,R1 P1EE9                   ;1EEF 5978
        RETC,UN                         ;1EF1 17
;
P1EF2   BSTA,UN CLBCT                   ;1EF2 3F1E6A
        BCFA,LT error                   ;1EF5 9E0196
        LODA,R0 *LBCT                   ;1EF8 0C8EC4
        COMA,R0 LABA                    ;1EFB EC0EC8
        BCFR,EQ P1F0F                   ;1EFE 980F
        LODI,R1 001H                    ;1F00 0501
        LODA,R0 *LBCT,R1                ;1F02 0DEEC4
        COMA,R0 LABA+1                  ;1F05 EC0EC9
        BCFR,EQ P1F0F                   ;1F08 9805
        EORZ    R0                      ;1F0A 20
        STRA,R0 *LBCT                   ;1F0B CC8EC4
        RETC,UN                         ;1F0E 17
;
P1F0F   BSTA,UN ALBCT                   ;1F0F 3F1E79
        BCTR,UN P1EF2                   ;1F12 1B5E
;
setbp   BSTA,UN chhxdd                  ;1F14 3F02B1
        BCTA,LT error                   ;1F17 1E0196
        LODI,R3 2                       ;1F1A 0702
P1F1C   LODA,R0 stad,R3-                ;1F1C 0F4EF8
        STRA,R0 BPAD,R3                 ;1F1F CF6ED2
        LODA,R0 *stad,R3                ;1F22 0FEEF8
        STRA,R0 BPCO,R3                 ;1F25 CF6ED0
        LODA,R0 bpenac,R3               ;1F28 0F7F3D
        STRA,R0 ZB2A,R3                 ;1F2B CF6EE2
        BRNR,R3 P1F1C                   ;1F2E 5B6C
        LODI,R0 09BH                    ;1F30 049B
        STRA,R0 *BPAD,R3                ;1F32 CFEED2
        LODI,R0 03DH                    ;1F35 043D
        STRA,R0 *BPAD,R3+               ;1F37 CFAED2
        RETC,UN                         ;1F3A 17
;
        BYTE    acon,2                  ;1F3B
bpenac  WORD    bpent                   ;1F3D 1F3F
;
bpent   STRA,R0 R0_RES                  ;1F3F CC0ED4
        SPSL                            ;1F42 13
        STRA,R0 PSLRES                  ;1F43 CC0EDC
        SPSU                            ;1F46 12
        STRA,R0 PSURES                  ;1F47 CC0EDB
        PPSL    RS+COM                  ;1F4A 7712
        STRA,R1 R11RES                  ;1F4C CD0ED8
        STRA,R2 R21RES                  ;1F4F CE0ED9
        STRA,R3 R31RES                  ;1F52 CF0EDA
        CPSL    RS+WC                   ;1F55 7518
        STRA,R1 R10RES                  ;1F57 CD0ED5
        STRA,R2 R20RES                  ;1F5A CE0ED6
        STRA,R3 R30RES                  ;1F5D CF0ED7
        LODI,R3 002H                    ;1F60 0702
P1F62   LODA,R0 BPCO,R3-                ;1F62 0F4ED0
        STRA,R0 *BPAD,R3                ;1F65 CFEED2
        BRNR,R3 P1F62                   ;1F68 5B78
;
dpreg   ZBSR    wrtcr                   ;1F6A BB0B
        LODI,R3 000H                    ;1F6C 0700
P1F6E   LODI,R0 052H                    ;1F6E 0452
        ZBSR    wrtzv                   ;1F70 BB05
        LODZ    R3                      ;1F72 03
        ADDI,R0 030H                    ;1F73 8430
        COMI,R3 004H                    ;1F75 E704
        BCTR,LT P1F7B                   ;1F77 1A02
        SUBI,R0 003H                    ;1F79 A403
P1F7B   ZBSR    wrtzv                   ;1F7B BB05
        COMI,R3 004H                    ;1F7D E704
        BCTR,LT P1F85                   ;1F7F 1A04
        LODI,R0 027H                    ;1F81 0427
        ZBSR    wrtzv                   ;1F83 BB05
P1F85   BCTR,UN P1F99                   ;1F85 1B12
;
P1F87   LODI,R0 050H                    ;1F87 0450
        ZBSR    wrtzv                   ;1F89 BB05
        LODI,R0 053H                    ;1F8B 0453
        ZBSR    wrtzv                   ;1F8D BB05
        LODI,R0 055H                    ;1F8F 0455
        COMI,R3 008H                    ;1F91 E708
        BCTR,LT P1F97                   ;1F93 1A02
        LODI,R0 04CH                    ;1F95 044C
P1F97   ZBSR    wrtzv                   ;1F97 BB05
P1F99   LODI,R0 02DH                    ;1F99 042D
        ZBSR    wrtzv                   ;1F9B BB05
        LODA,R0 BPAD+1,R3+              ;1F9D 0F2ED3
        ZBSR    *wchexv                 ;1FA0 BBB8
        ZBSR    wrtsp                   ;1FA2 BB03
        COMI,R3 007H                    ;1FA4 E707
        BCTR,LT P1F6E                   ;1FA6 1A46
        COMI,R3 009H                    ;1FA8 E709
        BCTR,LT P1F87                   ;1FAA 1A5B
        ZBSR    wrtcr                   ;1FAC BB0B
        ZBSR    redzv                   ;1FAE BB08
        COMI,R0 "C"                     ;1FB0 E443
        BCFA,EQ errorb                  ;1FB2 9C019F
        TPSU    SP2                     ;1FB5 B404
        BCTA,EQ error                   ;1FB7 1C0196
;
;                                       == return from breakpoint, continue program
retpr   LODA,R1 R10RES                  ;1FBA 0D0ED5
        LODA,R2 R20RES                  ;1FBD 0E0ED6
        LODA,R3 R30RES                  ;1FC0 0F0ED7
        PPSL    RS                      ;1FC3 7710
        LODA,R1 R11RES                  ;1FC5 0D0ED8
        LODA,R2 R21RES                  ;1FC8 0E0ED9
        LODA,R3 R31RES                  ;1FCB 0F0EDA
        LODA,R0 PSURES                  ;1FCE 0C0EDB
        LPSU                            ;1FD1 92
        LODA,R0 PSLRES                  ;1FD2 0C0EDC
        LPSL                            ;1FD5 93
        BCTR,EQ P1FE3                   ;1FD6 180B
        BCTR,GT P1FE9                   ;1FD8 190F
        BCTR,LT P1FF1                   ;1FDA 1A15
        LODA,R0 R0_RES                  ;1FDC 0C0ED4
        PPSL    CC1+CC0                 ;1FDF 77C0
        BCTR,UN P1FF7                   ;1FE1 1B14
;
P1FE3   LODA,R0 R0_RES                  ;1FE3 0C0ED4
        COMZ    R0                      ;1FE6 E0
        BCTR,UN P1FF7                   ;1FE7 1B0E
;
P1FE9   LODA,R0 R0_RES                  ;1FE9 0C0ED4
        COMZ    R0                      ;1FEC E0
        PPSL    CC0                     ;1FED 7740
        BCTR,UN P1FF7                   ;1FEF 1B06
;
P1FF1   LODA,R0 R0_RES                  ;1FF1 0C0ED4
        COMZ    R0                      ;1FF4 E0
        PPSL    CC1                     ;1FF5 7780
P1FF7   BCTA,UN *BPAD                   ;1FF7 1F8ED2
;
X1FFA   BYTE    titl,4
        BYTE    "DAS4"                  ;
;
        END                             ;
