        tabs    8,8                     ;first tab is 8, 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 label handler (2010-11-07)"
;
        name    phunsy_lable_handler    ;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                       ;0EB0 number of bytes of 2650 instruction
FSTBYT  ds      1                       ;0EB1 first yte of instruction
SECBYT  ds      1                       ;0EB2 second byte of instruction
THRBYT  ds      1                       ;0EB3 third byte of instruction
DATBYT  ds      1                       ;0EB4
        ds      5                       ;
INAD    ds      2                       ;0EBA instruction address
NIAD    ds      2                       ;0EBC next instruction address
IEAD    ds      2                       ;0EBE instruction effective address
STLB    ds      2                       ;0EC0 label table start address
ENLB    ds      2                       ;0EC2 label table end addres
LBCT    ds      2                       ;0EC4 label something?
LBPT    ds      2                       ;0EC6 some label poiter ?
LABA    ds      2                       ;0EC8 label address
LABN    ds      6                       ;0ECA label name
;
        section rom                     ;
        org     01800h                  ;
;
LBHND   LODI,R1 1                       ;1800 0501
LBHNDA  STRA,R1 cmad                    ;1802 CD0EE4
        LODZ    R1                      ;1805 01
        ADDI,R0 040H                    ;1806 8440
        ZBSR    wrtzv                   ;1808 BB05
        ZBSR    wrtsp                   ;180A BB03
        BSTA,UN P186E                   ;180C 3F186E    ; message
        ZBSR    wrtcr                   ;180F BB0B
        LODA,R1 cmad                    ;1811 0D0EE4
        ADDI,R1 1                       ;1814 8501
        LODZ    R1                      ;1816 01
        RRL,R0                          ;1817 D0
        COMA,R0 X185Bt-1                ;1818 EC185A
        BCFR,GT LBHNDA                  ;181B 9965
        LODA,R1 X185Bt-1                ;181D 0D185A
        RRR,R1                          ;1820 51
        ADDI,R1 1                       ;1821 8501
        BSTA,UN P186E                   ;1823 3F186E    ; message
        ZBSR    wrtcr                   ;1826 BB0B
LBHNDB  ZBSR    redzv                   ;1828 BB08
        COMI,R0 esc                     ;182A E41B
        RETC,EQ                         ;182C 14
        COMI,R0 041H                    ;182D E441
        BCTR,LT LBHNDB                  ;182F 1A77
        COMI,R0 05AH                    ;1831 E45A
        BCTR,GT LBHNDB                  ;1833 1973
        STRZ    R3                      ;1835 C3
        ANDI,R0 01FH                    ;1836 441F
        STRZ    R2                      ;1838 C2
        STRZ    R1                      ;1839 C1
        RRL,R2                          ;183A D2
        COMA,R2 X185Bt-1                ;183B EE185A
        BCTR,GT LBHNDB                  ;183E 1968
        LODA,R0 X185Bt-1,R2-            ;1840 0E585A
        STRA,R0 cmad                    ;1843 CC0EE4
        LODA,R0 X185Bt-1,R2+            ;1846 0E385A
        STRA,R0 cmad+1                  ;1849 CC0EE5
        LODZ    R3                      ;184C 03
        ZBSR    wrtzv                   ;184D BB05
        ZBSR    wrtsp                   ;184F BB03
        BSTA,UN P186E                   ;1851 3F186E    ; message
        ZBSR    wrtcr                   ;1854 BB0B
        BCTA,UN *cmad                   ;1856 1F8EE4
;
        BYTE    acon,10
X185Bt  WORD    P1A07                   ;185B 1A07      ; MOVE-LAB
        WORD    P1AA2                   ;185D 1AA2      ; CHECK-DUBBEL
        WORD    P1B45                   ;185F 1B45      ; MAKE-LAB
        WORD    P1C92                   ;1861 1C92      ; CRUNCH-LAB
        WORD    P1E93                   ;1863 1E93      ; PRINT-LAB
;
        BYTE    titl,7,"MESSAGE"
;                                       == message
;                                          message number in R1
P186E   LODI,R2 0FFH                    ;186E 06FF
        EORZ    R0                      ;1870 20
P1871   ADDZ    R2                      ;1871 82
        STRZ    R2                      ;1872 C2
        LODA,R0 R189F,R2+               ;1873 0E389F
        COMI,R0 data                    ;1876 E4C5
        RETC,GT                         ;1878 15
        RETC,LT                         ;1879 16
        LODA,R0 R189F,R2+               ;187A 0E389F
        BDRR,R1 P1871                   ;187D F972
P187F   LODA,R0 R189F,R2+               ;187F 0E389F
        RETC,LT                         ;1882 16
        STRZ    R3                      ;1883 C3
        LODI,R1 0FFH                    ;1884 05FF
        EORZ    R0                      ;1886 20
P1887   ADDZ    R1                      ;1887 81
        STRZ    R1                      ;1888 C1
        LODA,R0 R18D8,R1+               ;1889 0D38D8
        COMI,R0 text                    ;188C E4C6
        RETC,GT                         ;188E 15
        RETC,LT                         ;188F 16
        LODA,R0 R18D8,R1+               ;1890 0D38D8
        BDRR,R3 P1887                   ;1893 FB72
        STRZ    R3                      ;1895 C3
P1896   LODA,R0 R18D8,R1+               ;1896 0D38D8
        ZBSR    wrtzv                   ;1899 BB05
        BDRR,R3 P1896                   ;189B FB79
        BCTR,UN P187F                   ;189D 1B60
;
R189F   BYTE    data,2,5,1              ;  1 move labels
        BYTE    data,3,8,9,1            ;  2 check dubbel labels
        BYTE    data,2,2,1              ;  3 make labels
        BYTE    data,2,6,1              ;  4 print labels
        BYTE    data,2,7,1              ;  5 print labels
        BYTE    data,3,2,3,4            ;  6 make your choise
        BYTE    data,2,11,10            ;  7 begin address
        BYTE    data,2,12,10            ;  8   end address
        BYTE    data,2,13,10            ;  9    to address
        BYTE    data,2,14,15            ; 10 buffer full
        BYTE    data,3,17,10,16         ; 11 wrong address range
        BYTE    data,1,18               ; 12 suspended
        BYTE    data,1,19               ; 13 halted
        BYTE    data,2,7,10             ; 14 print address
;
R18D8   BYTE    text,7,"labels "        ;  1
        BYTE    text,5,"make "          ;  2
        BYTE    text,5,"your "          ;  3 
        BYTE    text,7,"choise "        ;  4
        BYTE    text,5,"move "          ;  5
        BYTE    text,7,"crunch "        ;  6
        BYTE    text,6,"print "         ;  7
        BYTE    text,6,"check "         ;  8
        BYTE    text,7,"dubbel "        ;  9
        BYTE    text,8,"address "       ; 10
        BYTE    text,6,"begin "         ; 11
        BYTE    text,6,"  end "         ; 12
        BYTE    text,6,"   to "         ; 13
        BYTE    text,7,"buffer "        ; 14
        BYTE    text,5,"full "          ; 15
        BYTE    text,6,"range "         ; 16
        BYTE    text,6,"wrong "         ; 17
        BYTE    text,9,"suspended"      ; 18
        BYTE    text,6,"halted"         ; 19
;
        BYTE    titl,5,"STOP?"
;
P197D   ZBSR    chizv                   ;197D BB14
        COMI,R0 " "                     ;197F E420
        BCTR,EQ P1987                   ;1981 1804
        COMI,R0 esc                     ;1983 E41B
        RETC,GT                         ;1985 15
        RETC,LT                         ;1986 16
P1987   LODI,R1 12                      ;1987 050C      ; suspended
        BSTA,UN P186E                   ;1989 3F186E    ; message
P198C   ZBSR    redzv                   ;198C BB08
        COMI,R0 " "                     ;198E E420
        BCTR,EQ P1996                   ;1990 1804
        COMI,R0 esc                     ;1992 E41B
        BCFR,EQ P198C                   ;1994 9876
P1996   STRZ    R1                      ;1996 C1
        LODI,R0 17                      ;1997 0411      ; move cursor to left most position
        ZBSR    wrtzv                   ;1999 BB05
        LODI,R0 5                       ;199B 0405      ; clear from cursor to end of line
        ZBSR    wrtzv                   ;199D BB05
        COMI,R1 esc                     ;199F E51B
        RETC,GT                         ;19A1 15
        LODI,R1 13                      ;19A2 050D      ; halted
        BSTA,UN P186E                   ;19A4 3F186E    ; message
        ZBSR    wrtcr                   ;19A7 BB0B
        COMZ    R0                      ;19A9 E0
        RETC,UN                         ;19AA 17
;
        BYTE    titl,7,"ADDR-IN"
;                                       == Get address
GTADR   ZBSR    *wrtbsv                 ;19B4 BBB6
P19B6   ZBSR    redzv                   ;19B6 BB08
        ZBSR    *tehexv                 ;19B8 BBB2
        BCTR,GT P19C6                   ;19BA 190A
        COMI,R0 cr                      ;19BC E40D
        RETC,EQ                         ;19BE 14
        COMI,R0 esc                     ;19BF E41B
        BCFR,EQ P19B6                   ;19C1 9873
        PPSL    CC1                     ;19C3 7780
        RETC,UN                         ;19C5 17
;
P19C6   TMI,R0  040H                    ;19C6 F440
        BCFR,EQ P19CC                   ;19C8 9802
        ADDI,R0 009H                    ;19CA 8409
P19CC   ANDI,R0 00FH                    ;19CC 440F
        STRZ    R2                      ;19CE C2
        LODA,R0 mram,R3                 ;19CF 0F6E00
        STRZ    R1                      ;19D2 C1
        LODZ    R2                      ;19D3 02
        STRA,R0 mram,R3                 ;19D4 CF6E00
        LODA,R0 mram,R3+                ;19D7 0F2E00
        STRZ    R2                      ;19DA C2
        LODA,R0 mram,R3-                ;19DB 0F4E00
        PPSL    WC                      ;19DE 7708
        RRL,R2                          ;19E0 D2
        RRL,R1                          ;19E1 D1
        RRL,R2                          ;19E2 D2
        RRL,R1                          ;19E3 D1
        RRL,R2                          ;19E4 D2
        RRL,R1                          ;19E5 D1
        RRL,R2                          ;19E6 D2
        RRL,R1                          ;19E7 D1
        CPSL    WC                      ;19E8 7508
        ANDI,R2 0F0H                    ;19EA 46F0
        IORZ    R2                      ;19EC 62
        STRA,R0 mram,R3+                ;19ED CF2E00
        LODZ    R1                      ;19F0 01
        STRA,R0 mram,R3-                ;19F1 CF4E00
        LODI,R1 008H                    ;19F4 0508
        LODI,R2 004H                    ;19F6 0604
        ZBSR    wrtdx                   ;19F8 BB17
        BCTA,UN GTADR                   ;19FA 1F19B4    ; ADDR-IN
;
        BYTE    titl,8,"MOVE-LAB"
;
P1A07   LODI,R1 6                       ;1A07 0506
        EORZ    R0                      ;1A09 20
P1A0A   STRA,R0 stad,R1-                ;1A0A CD4EF8    ; clear STAD, ENAD and TOAD
        BRNR,R1 P1A0A                   ;1A0D 597B
        LODI,R1 7                       ;1A0F 0507      ; begin address
        BSTA,UN P186E                   ;1A11 3F186E    ; message
        LODI,R3 stad-mram               ;1A14 07F8      ; stad
        BSTA,UN GTADR                   ;1A16 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1A19 9C000B
        ZBSR    wrtcr                   ;1A1C BB0B
        LODI,R1 8                       ;1A1E 0508      ; end address
        BSTA,UN P186E                   ;1A20 3F186E    ; message
        LODI,R3 enad-mram               ;1A23 07FA
        BSTA,UN GTADR                   ;1A25 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1A28 9C000B
        ZBSR    wrtcr                   ;1A2B BB0B
        LODI,R1 9                       ;1A2D 0509      ; to address
        BSTA,UN P186E                   ;1A2F 3F186E    ; message
        LODI,R3 toad-mram               ;1A32 07FC
        BSTA,UN GTADR                   ;1A34 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1A37 9C000B
        ZBSR    wrtcr                   ;1A3A BB0B
        LODI,R3 00EH                    ;1A3C 070E
        BSTA,UN chhxd                   ;1A3E 3F0289
        BCTR,LT P1A48                   ;1A41 1A05
        BSTA,UN chhxda                  ;1A43 3F0293
        BCFR,LT P1A4F                   ;1A46 9A07
P1A48   LODI,R1 11                      ;1A48 050B      ; wrong address range
        BSTA,UN P186E                   ;1A4A 3F186E    ; message
        ZBRR    wrtcr                   ;1A4D 9B0B
;
P1A4F   LODI,R0 stlb-mram               ;1A4F 04C0
        ZBSR    *pltbsv                 ;1A51 BBAA
        LODI,R0 lbct-mram               ;1A53 04C4
        ZBSR    *pstbsv                 ;1A55 BBA8
P1A57   BSTA,UN P1E5D                   ;1A57 3F1E5D    ; CLBCT
        RETC,EQ                         ;1A5A 14
        RETC,GT                         ;1A5B 15
        LODI,R1 1                       ;1A5C 0501
        LODA,R0 *LBCT                   ;1A5E 0C8EC4
        ANDI,R0 07FH                    ;1A61 447F
        STRA,R0 tbsr                    ;1A63 CC0EFE
        LODA,R0 *LBCT,R1                ;1A66 0DEEC4
        STRA,R0 tbsr+1                  ;1A69 CC0EFF
        LODI,R0 stad-mram               ;1A6C 04F8
        ZBSR    *cmtbsv                 ;1A6E BBA2
        BCTR,LT P1A8E                   ;1A70 1A1C
        LODI,R0 enad-mram               ;1A72 04FA
        ZBSR    *cmtbsv                 ;1A74 BBA2
        BCTR,GT P1A8E                   ;1A76 1916
        LODI,R0 stad-mram               ;1A78 04F8
        ZBSR    *sbtbsv                 ;1A7A BBAE
        LODI,R0 toad-mram               ;1A7C 04FC
        ZBSR    *adtbsv                 ;1A7E BBAC
        LODA,R0 tbsr                    ;1A80 0C0EFE
        IORI,R0 080H                    ;1A83 6480
        STRA,R0 *LBCT                   ;1A85 CC8EC4
        LODA,R0 tbsr+1                  ;1A88 0C0EFF
        STRA,R0 *LBCT,R1                ;1A8B CDEEC4
P1A8E   BSTA,UN P1E73                   ;1A8E 3F1E73    ; ILBCT
        BCTA,UN P1A57                   ;1A91 1F1A57
;
        BYTE    titl,12,"CHECK-DUBBEL"
;
P1AA2   LODI,R1 002H                    ;1AA2 0502
P1AA4   LODA,R0 STLB,R1-                ;1AA4 0D4EC0
        STRA,R0 LBCT,R1                 ;1AA7 CD6EC4
        BRNR,R1 P1AA4                   ;1AAA 5978
P1AAC   BSTA,UN P1E5D                   ;1AAC 3F1E5D    ; CLBCT
        RETC,EQ                         ;1AAF 14
        RETC,GT                         ;1AB0 15
        BSTA,UN P197D                   ;1AB1 3F197D    ; STOP?
        RETC,EQ                         ;1AB4 14
        LODI,R1 2                       ;1AB5 0502
P1AB7   LODA,R0 LBCT,R1-                ;1AB7 0D4EC4
        STRA,R0 LBPT,R1                ;1ABA CD6EC6
        BRNR,R1 P1AB7                   ;1ABD 5978
P1ABF   BSTA,UN P1E73                   ;1ABF 3F1E73    ; ILBCT
        BSTA,UN P1E5D                   ;1AC2 3F1E5D    ; CLBCT
        BCTR,LT P1ACA                   ;1AC5 1A03
        BCTA,UN P1B2B                   ;1AC7 1F1B2B
;
P1ACA   LODI,R1 001H                    ;1ACA 0501
        LODA,R0 *LBPT                  ;1ACC 0C8EC6
        BCFR,LT P1ABF                   ;1ACF 9A6E
        COMA,R0 *LBCT                   ;1AD1 EC8EC4
        BCFR,EQ P1ADE                   ;1AD4 9808
        LODA,R0 *LBPT,R1               ;1AD6 0DEEC6
        COMA,R0 *LBCT,R1                ;1AD9 EDEEC4
        BCTR,EQ P1AEC                   ;1ADC 180E
P1ADE   LODI,R1 006H                    ;1ADE 0506
        LODI,R2 008H                    ;1AE0 0608
P1AE2   LODA,R0 *LBPT,R2-              ;1AE2 0ECEC6
        COMA,R0 *LBCT,R2                ;1AE5 EEEEC4
        BCFR,EQ P1ABF                   ;1AE8 9855
        BDRR,R1 P1AE2                   ;1AEA F976
P1AEC   LODA,R0 *LBCT                   ;1AEC 0C8EC4
        ANDI,R0 07FH                    ;1AEF 447F
        ZBSR    *wchexv                 ;1AF1 BBB8
        LODI,R1 001H                    ;1AF3 0501
        LODA,R0 *LBCT,R1                ;1AF5 0DEEC4
        ZBSR    *wchexv                 ;1AF8 BBB8
        ZBSR    wrtsp                   ;1AFA BB03
        LODI,R1 006H                    ;1AFC 0506
        LODI,R2 001H                    ;1AFE 0601
P1B00   LODA,R0 *LBCT,R2+               ;1B00 0EAEC4
        ZBSR    wrtzv                   ;1B03 BB05
        BDRR,R1 P1B00                   ;1B05 F979
        ZBSR    wrtsp                   ;1B07 BB03
        ZBSR    wrtsp                   ;1B09 BB03
        LODA,R0 *LBPT                  ;1B0B 0C8EC6
        ANDI,R0 07FH                    ;1B0E 447F
        ZBSR    *wchexv                 ;1B10 BBB8
        LODI,R1 001H                    ;1B12 0501
        LODA,R0 *LBPT,R1               ;1B14 0DEEC6
        ZBSR    *wchexv                 ;1B17 BBB8
        ZBSR    wrtsp                   ;1B19 BB03
        LODI,R1 006H                    ;1B1B 0506
        LODI,R2 001H                    ;1B1D 0601
P1B1F   LODA,R0 *LBPT,R2+              ;1B1F 0EAEC6
        ZBSR    wrtzv                   ;1B22 BB05
        BDRR,R1 P1B1F                   ;1B24 F979
        ZBSR    wrtcr                   ;1B26 BB0B
        BCTA,UN P1ABF                   ;1B28 1F1ABF
;
P1B2B   LODI,R1 002H                    ;1B2B 0502
P1B2D   LODA,R0 LBPT,R1-               ;1B2D 0D4EC6
        STRA,R0 LBCT,R1                 ;1B30 CD6EC4
        BRNR,R1 P1B2D                   ;1B33 5978
        BSTA,UN P1E73                   ;1B35 3F1E73    ; ILBCT
        BCTA,UN P1AAC                   ;1B38 1F1AAC
;
        BYTE    titl,8,"MAKE-LAB"
;
P1B45   LODI,R1 004H                    ;1B45 0504
        EORZ    R0                      ;1B47 20
P1B48   STRA,R0 stad,R1-                ;1B48 CD4EF8
        BRNR,R1 P1B48                   ;1B4B 597B
        LODI,R1 7                       ;1B4D 0507      ; begin address
        BSTA,UN P186E                   ;1B4F 3F186E    ; message
        LODI,R3 0F8H                    ;1B52 07F8
        BSTA,UN GTADR                   ;1B54 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1B57 9C000B
        ZBSR    wrtcr                   ;1B5A BB0B
        LODI,R1 8                       ;1B5C 0508      ; end address
        BSTA,UN P186E                   ;1B5E 3F186E    ; message
        LODI,R3 0FAH                    ;1B61 07FA
        BSTA,UN GTADR                   ;1B63 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1B66 9C000B
        ZBSR    wrtcr                   ;1B69 BB0B
        LODI,R3 006H                    ;1B6B 0706
        BSTA,UN chhxd                   ;1B6D 3F0289
        BCFR,LT P1B79                   ;1B70 9A07
        LODI,R1 11                      ;1B72 050B      ; wrong address range
        BSTA,UN P186E                   ;1B74 3F186E    ; message
        ZBRR    wrtcr                   ;1B77 9B0B
;
P1B79   LODI,R0 stad-mram               ;1B79 04F8
        ZBSR    *pltbsv                 ;1B7B BBAA
        LODI,R0 NIAD-mram              ;1B7D 04BC
        ZBSR    *pstbsv                 ;1B7F BBA8
        LODI,R0 IEAD-mram              ;1B81 04BE
        ZBSR    *pstbsv                 ;1B83 BBA8
        LODI,R1 005H                    ;1B85 0505
        LODI,R0 020H                    ;1B87 0420
P1B89   STRA,R0 LABN+1,R1-               ;1B89 CD4ECB
        LODI,R0 030H                    ;1B8C 0430
        BRNR,R1 P1B89                   ;1B8E 5979
        BSTA,UN P1E10                   ;1B90 3F1E10
        LODI,R0 045H                    ;1B93 0445
        BCTA,UN P1BCF                   ;1B95 1F1BCF
;
P1B98   BSTA,UN P197D                   ;1B98 3F197D    ; STOP?
        RETC,EQ                         ;1B9B 14
        LODI,R0 INAD-mram              ;1B9C 04BA
        ZBSR    *pstbsv                 ;1B9E BBA8
        BSTA,UN P1D15                   ;1BA0 3F1D15    ; DISASS
        LODA,R1 NROBYT                  ;1BA3 0D0EB0
        BCTR,EQ P1BCC                   ;1BA6 1824
        LODI,R0 041H                    ;1BA8 0441
        LODA,R1 DATBYT                   ;1BAA 0D0EB4
        BCTR,EQ P1BB5                   ;1BAD 1806
        COMI,R1 0C4H                    ;1BAF E5C4
        BCTR,EQ P1BCF                   ;1BB1 181C
        BCTR,UN P1BCC                   ;1BB3 1B17
;
P1BB5   LODA,R1 FSTBYT                   ;1BB5 0D0EB1
        LODI,R0 042H                    ;1BB8 0442
        TMI,R1  018H                    ;1BBA F518
        BCTR,EQ P1BCF                   ;1BBC 1811
        LODI,R0 043H                    ;1BBE 0443
        TMI,R1  008H                    ;1BC0 F508
        BCTR,EQ P1BCF                   ;1BC2 180B
        LODI,R0 044H                    ;1BC4 0444
        ANDI,R1 0FEH                    ;1BC6 45FE
        COMI,R1 010H                    ;1BC8 E510
        BCTR,EQ P1BCF                   ;1BCA 1803
P1BCC   BCTA,UN P1C64                   ;1BCC 1F1C64
;
P1BCF   STRA,R0 LABN                   ;1BCF CC0ECA
        LODA,R0 IEAD+1                 ;1BD2 0C0EBF
        STRA,R0 LABA+1                   ;1BD5 CC0EC9
        LODA,R0 IEAD                   ;1BD8 0C0EBE
        IORI,R0 080H                    ;1BDB 6480
        STRA,R0 LABA                   ;1BDD CC0EC8
        LODI,R1 002H                    ;1BE0 0502
P1BE2   LODA,R0 STLB,R1-                ;1BE2 0D4EC0
        STRA,R0 LBCT,R1                 ;1BE5 CD6EC4
        BRNR,R1 P1BE2                   ;1BE8 5978
P1BEA   BSTA,UN P1E5D                   ;1BEA 3F1E5D    ; CLBCT
        BCFR,LT P1C07                   ;1BED 9A18
        LODI,R1 001H                    ;1BEF 0501
        LODA,R0 LABA+1                   ;1BF1 0C0EC9
        COMA,R0 *LBCT,R1                ;1BF4 EDEEC4
        BCFR,EQ P1C02                   ;1BF7 9809
        LODA,R0 LABA                   ;1BF9 0C0EC8
        COMA,R0 *LBCT                   ;1BFC EC8EC4
        BCTA,EQ P1C64                   ;1BFF 1C1C64
P1C02   BSTA,UN P1E73                   ;1C02 3F1E73    ; ILBCT
        BCTR,UN P1BEA                   ;1C05 1B63
;
P1C07   LODI,R1 002H                    ;1C07 0502
P1C09   LODA,R0 STLB,R1-               ;1C09 0D4EC0
        STRA,R0 LBCT,R1                ;1C0C CD6EC4
        BRNR,R1 P1C09                   ;1C0F 5978
P1C11   BSTA,UN P1E5D                   ;1C11 3F1E5D    ; CLBCT
        BCTR,LT P1C1D                   ;1C14 1A07
        LODI,R1 00AH                    ;1C16 050A
        BSTA,UN P186E                   ;1C18 3F186E    ; message
        ZBRR    wrtcr                   ;1C1B 9B0B
;
P1C1D   LODA,R0 *LBCT                  ;1C1D 0C8EC4
        BCFR,LT P1C27                   ;1C20 9A05
        BSTA,UN P1E73                   ;1C22 3F1E73    ; ILBCT
        BCTR,UN P1C11                   ;1C25 1B6A
;
P1C27   LODI,R1 002H                    ;1C27 0502
P1C29   LODA,R0 LBCT,R1-               ;1C29 0D4EC4
        STRA,R0 LBPT,R1                ;1C2C CD6EC6
        BRNR,R1 P1C29                   ;1C2F 5978
P1C31   LODI,R1 002H                    ;1C31 0502
P1C33   LODA,R0 STLB,R1-               ;1C33 0D4EC0
        STRA,R0 LBCT,R1                ;1C36 CD6EC4
        BRNR,R1 P1C33                   ;1C39 5978
P1C3B   BSTA,UN P1E5D                   ;1C3B 3F1E5D    ; CLBCT
        BCFR,LT P1C58                   ;1C3E 9A18
        LODI,R1 004H                    ;1C40 0504
        LODI,R2 007H                    ;1C42 0607
P1C44   LODA,R0 *LBCT,R2-              ;1C44 0ECEC4
        COMA,R0 LABA,R2                ;1C47 EE6EC8
        BCFR,EQ P1C53                   ;1C4A 9807
        BDRR,R1 P1C44                   ;1C4C F976
        BSTA,UN P1C70                   ;1C4E 3F1C70
        BCTR,UN P1C31                   ;1C51 1B5E
;
P1C53   BSTA,UN P1E73                   ;1C53 3F1E73    ; ILBCT
        BCTR,UN P1C3B                   ;1C56 1B63
;
P1C58   LODI,R1 008H                    ;1C58 0508
P1C5A   LODA,R0 LABA,R1-               ;1C5A 0D4EC8
        STRA,R0 *LBPT,R1               ;1C5D CDEEC6
        BRNR,R1 P1C5A                   ;1C60 5978
        BSTR,UN P1C70                   ;1C62 3B0C
P1C64   LODI,R0 niad-mram               ;1C64 04BC
        ZBSR    *pltbsv                 ;1C66 BBAA
        LODI,R0 enad-mram               ;1C68 04FA
        ZBSR    *cmtbsv                 ;1C6A BBA2
        BCFA,GT P1B98                   ;1C6C 9D1B98
        RETC,UN                         ;1C6F 17
;
P1C70   LODI,R1 004H                    ;1C70 0504
P1C72   LODA,R0 LABN+1,R1-               ;1C72 0D4ECB
        ADDI,R0 001H                    ;1C75 8401
        COMI,R0 039H                    ;1C77 E439
        BCFR,GT P1C7D                   ;1C79 9902
        LODI,R0 030H                    ;1C7B 0430
P1C7D   STRA,R0 LABN+1,R1                ;1C7D CD6ECB
        COMI,R0 030H                    ;1C80 E430
        RETC,GT                         ;1C82 15
        BRNR,R1 P1C72                   ;1C83 596D
        RETC,UN                         ;1C85 17
;
        BYTE    titl,10,"CRUNCH-LAB"
;
P1C92   LODI,R1 002H                    ;1C92 0502
P1C94   LODA,R0 STLB,R1-               ;1C94 0D4EC0
        STRA,R0 LBCT,R1                ;1C97 CD6EC4
        BRNR,R1 P1C94                   ;1C9A 5978
P1C9C   BSTA,UN P1E5D                   ;1C9C 3F1E5D    ; CLBCT
        RETC,EQ                         ;1C9F 14
        RETC,GT                         ;1CA0 15
        BSTA,UN P197D                   ;1CA1 3F197D    ; STOP?
        RETC,EQ                         ;1CA4 14
        LODI,R1 002H                    ;1CA5 0502
P1CA7   LODI,R0 0FFH                    ;1CA7 04FF
        STRA,R0 LABN,R1-               ;1CA9 CD4ECA
        LODA,R0 LBCT,R1                ;1CAC 0D6EC4
        STRA,R0 LBPT,R1                ;1CAF CD6EC6
        BRNR,R1 P1CA7                   ;1CB2 5973
P1CB4   BSTA,UN P1E5D                   ;1CB4 3F1E5D    ; CLBCT
        BCFR,LT P1CE2                   ;1CB7 9A29
        LODI,R1 001H                    ;1CB9 0501
        LODA,R0 *LBCT                  ;1CBB 0C8EC4
        BCFR,LT P1CDD                   ;1CBE 9A1D
        COMA,R0 LABN                   ;1CC0 EC0ECA
        BCFR,EQ P1CCB                   ;1CC3 9806
        LODA,R0 *LBCT,R1               ;1CC5 0DEEC4
        COMA,R0 LABN+1                   ;1CC8 EC0ECB
P1CCB   BCFR,LT P1CDD                   ;1CCB 9A10
        LODI,R1 002H                    ;1CCD 0502
P1CCF   LODA,R0 LBCT,R1-               ;1CCF 0D4EC4
        STRA,R0 LABA,R1                ;1CD2 CD6EC8
        LODA,R0 *LBCT,R1               ;1CD5 0DEEC4
        STRA,R0 LABN,R1                ;1CD8 CD6ECA
        BRNR,R1 P1CCF                   ;1CDB 5972
P1CDD   BSTA,UN P1E73                   ;1CDD 3F1E73    ; ILBCT
        BCTR,UN P1CB4                   ;1CE0 1B52
;
P1CE2   LODA,R0 LABN                    ;1CE2 0C0ECA
        ANDA,R0 LABN+1                  ;1CE5 4C0ECB
        COMI,R0 0FFH                    ;1CE8 E4FF
        RETC,EQ                         ;1CEA 14
        LODI,R1 008H                    ;1CEB 0508
P1CED   LODA,R0 *LABA,R1-              ;1CED 0DCEC8
        STRZ    R2                      ;1CF0 C2
        LODA,R0 *LBPT,R1               ;1CF1 0DEEC6
        STRA,R0 *LABA,R1               ;1CF4 CDEEC8
        LODZ    R2                      ;1CF7 02
        STRA,R0 *LBPT,R1               ;1CF8 CDEEC6
        BRNR,R1 P1CED                   ;1CFB 5970
        LODI,R1 002H                    ;1CFD 0502
P1CFF   LODA,R0 LBPT,R1-               ;1CFF 0D4EC6
        STRA,R0 LBCT,R1                ;1D02 CD6EC4
        BRNR,R1 P1CFF                   ;1D05 5978
        BSTA,UN P1E73                   ;1D07 3F1E73    ; ILBCT
        BCTA,UN P1C9C                   ;1D0A 1F1C9C
;
        BYTE    titl,6,"DISASS"
;
P1D15   BCTR,UN P1D1F                   ;1D15 1B08
;
X1D17   BYTE    data,6                  ;1D17 E.
R1D19   BYTE    01BH,01FH,09BH,09FH     ;1D19 ....
        BYTE    017H,037H               ;1D1D .7
;
P1D1F   LODA,R3 DATBYT                   ;1D1F 0F0EB4
        BCFA,EQ P1E23                   ;1D22 9C1E23
        LODA,R0 FSTBYT                   ;1D25 0C0EB1
        STRZ    R1                      ;1D28 C1
        ANDI,R1 0FCH                    ;1D29 45FC
        COMI,R1 0C4H                    ;1D2B E5C4
        BCTA,EQ P1E19                   ;1D2D 1C1E19
        LODI,R1 006H                    ;1D30 0506
P1D32   COMA,R0 R1D19,R1-               ;1D32 ED5D19
        BCTA,EQ P1E10                   ;1D35 1C1E10
        BRNR,R1 P1D32                   ;1D38 5978
        LODA,R0 *INAD                  ;1D3A 0C8EBA
        STRZ    R1                      ;1D3D C1
        ANDI,R1 058H                    ;1D3E 4558
        ANDI,R0 0FEH                    ;1D40 44FE
        COMI,R0 010H                    ;1D42 E410
        BCTR,EQ P1D5A                   ;1D44 1814
        COMI,R0 0B4H                    ;1D46 E4B4
        BCTR,EQ P1D56                   ;1D48 180C
        COMI,R1 010H                    ;1D4A E510
        BCTR,EQ P1D5E                   ;1D4C 1810
        TMI,R0  00CH                    ;1D4E F40C
        BCTR,EQ P1D5A                   ;1D50 1808
        ANDI,R0 00CH                    ;1D52 440C
        BCTR,EQ P1D5E                   ;1D54 1808
P1D56   LODI,R0 002H                    ;1D56 0402
        BCTR,UN P1D60                   ;1D58 1B06
;
P1D5A   LODI,R0 003H                    ;1D5A 0403
        BCTR,UN P1D60                   ;1D5C 1B02
;
P1D5E   LODI,R0 001H                    ;1D5E 0401
P1D60   STRA,R0 NROBYT                   ;1D60 CC0EB0
        LODA,R1 NROBYT                   ;1D63 0D0EB0
P1D66   LODA,R0 *INAD,R1-              ;1D66 0DCEBA
        STRA,R0 FSTBYT,R1                ;1D69 CD6EB1
        BRNR,R1 P1D66                   ;1D6C 5978
P1D6E   LODA,R0 NROBYT                   ;1D6E 0C0EB0
        ADDA,R0 INAD+1                   ;1D71 8C0EBB
        STRA,R0 NIAD+1                   ;1D74 CC0EBD
        LODA,R0 INAD                   ;1D77 0C0EBA
        PPSL    WC                      ;1D7A 7708
        ADDI,R0 000H                    ;1D7C 8400
        CPSL    WC                      ;1D7E 7508
        STRA,R0 NIAD                   ;1D80 CC0EBC
        LODA,R0 DATBYT                   ;1D83 0C0EB4
        COMI,R0 0C4H                    ;1D86 E4C4
        BCFR,EQ P1D95                   ;1D88 980B
        LODI,R1 002H                    ;1D8A 0502
P1D8C   LODA,R0 *INAD,R1-              ;1D8C 0DCEBA
        STRA,R0 IEAD,R1                ;1D8F CD6EBE
        BRNR,R1 P1D8C                   ;1D92 5978
        RETC,UN                         ;1D94 17
;
P1D95   LODA,R1 FSTBYT                   ;1D95 0D0EB1
        LODA,R2 SECBYT                   ;1D98 0E0EB2
        LODA,R3 THRBYT                   ;1D9B 0F0EB3
        LODZ    R1                      ;1D9E 01
        ANDI,R0 0DFH                    ;1D9F 44DF
        COMI,R0 09BH                    ;1DA1 E49B
        BCFR,EQ P1DBC                   ;1DA3 9817
        TMI,R2  040H                    ;1DA5 F640
        BCTR,EQ P1DB1                   ;1DA7 1808
        ANDI,R2 03FH                    ;1DA9 463F
        STRA,R2 IEAD+1                   ;1DAB CE0EBF
        EORZ    R0                      ;1DAE 20
        BCTR,UN P1DB8                   ;1DAF 1B07
;
P1DB1   IORI,R2 0C0H                    ;1DB1 66C0
        STRA,R2 IEAD+1                   ;1DB3 CE0EBF
        LODI,R0 01FH                    ;1DB6 041F
P1DB8   STRA,R0 IEAD                   ;1DB8 CC0EBE
        RETC,UN                         ;1DBB 17
;
P1DBC   ANDI,R0 00CH                    ;1DBC 440C
        COMI,R0 008H                    ;1DBE E408
        BCTR,EQ P1DEB                   ;1DC0 1829
        LODZ    R1                      ;1DC2 01
        ANDI,R0 018H                    ;1DC3 4418
        COMI,R0 008H                    ;1DC5 E408
        BCTR,EQ P1DDC                   ;1DC7 1813
        COMI,R0 018H                    ;1DC9 E418
        BCTR,EQ P1DD7                   ;1DCB 180A
        ANDI,R1 0FEH                    ;1DCD 45FE
        COMI,R1 010H                    ;1DCF E510
        BCTR,EQ P1DD7                   ;1DD1 1804
        LODI,R0 080H                    ;1DD3 0480
        BCTR,UN P1DB8                   ;1DD5 1B61
;
P1DD7   ANDI,R2 07FH                    ;1DD7 467F
        LODZ    R2                      ;1DD9 02
        BCTR,UN P1DE4                   ;1DDA 1B08
;
P1DDC   ANDI,R2 01FH                    ;1DDC 461F
        LODA,R0 NIAD                   ;1DDE 0C0EBC
        ANDI,R0 060H                    ;1DE1 4460
        IORZ    R2                      ;1DE3 62
P1DE4   STRA,R0 IEAD                   ;1DE4 CC0EBE
        STRA,R3 IEAD+1                   ;1DE7 CF0EBF
        RETC,UN                         ;1DEA 17
;
P1DEB   LODZ    R2                      ;1DEB 02
        TMI,R0  040H                    ;1DEC F440
        BCTR,EQ P1DFE                   ;1DEE 180E
        ANDI,R0 03FH                    ;1DF0 443F
        ADDA,R0 NIAD+1                   ;1DF2 8C0EBD
        STRZ    R3                      ;1DF5 C3
        EORZ    R0                      ;1DF6 20
        PPSL    WC                      ;1DF7 7708
        ADDA,R0 NIAD                   ;1DF9 8C0EBC
        BCTR,UN P1E0B                   ;1DFC 1B0D
;
P1DFE   IORI,R0 0C0H                    ;1DFE 64C0
        ADDA,R0 NIAD+1                   ;1E00 8C0EBD
        STRZ    R3                      ;1E03 C3
        LODA,R0 NIAD                    ;1E04 0C0EBC
        PPSL    WC                      ;1E07 7708
        SUBI,R0 000H                    ;1E09 A400
P1E0B   CPSL    WC                      ;1E0B 7508
        STRZ    R2                      ;1E0D C2
        BCTR,UN P1DDC                   ;1E0E 1B4C
;
P1E10   EORZ    R0                      ;1E10 20
        LODI,R1 005H                    ;1E11 0505
P1E13   STRA,R0 NROBYT,R1-               ;1E13 CD4EB0
        BRNR,R1 P1E13                   ;1E16 597B
        RETC,UN                         ;1E18 17
;
P1E19   STRZ    R3                      ;1E19 C3
        STRA,R3 DATBYT                  ;1E1A CF0EB4
        EORZ    R0                      ;1E1D 20
        STRA,R0 FSTBYT                   ;1E1E CC0EB1
        BCTR,UN P1E2A                   ;1E21 1B07
;
P1E23   LODZ    R3                      ;1E23 03
        ANDI,R0 0FCH                    ;1E24 44FC
        COMI,R0 0C4H                    ;1E26 E4C4
        BCFR,EQ P1E10                   ;1E28 9866
P1E2A   LODI,R1 008H                    ;1E2A 0508
        COMI,R3 0C7H                    ;1E2C E7C7
        BCFR,EQ P1E35                   ;1E2E 9805
        LODA,R1 SECBYT                   ;1E30 0D0EB2
        BCTR,UN P1E3B                   ;1E33 1B06
;
P1E35   COMI,R3 0C4H                    ;1E35 E7C4
        BCFR,EQ P1E3B                   ;1E37 9802
        LODI,R1 002H                    ;1E39 0502
P1E3B   LODA,R2 SECBYT                   ;1E3B 0E0EB2
        BCTR,EQ P1E10                   ;1E3E 1850
        LODZ    R1                      ;1E40 01
        COMZ    R2                      ;1E41 E2
        BCFR,LT P1E49                   ;1E42 9A05
        LODZ    R2                      ;1E44 02
        SUBZ    R1                      ;1E45 A1
        STRZ    R2                      ;1E46 C2
        BCTR,UN P1E4D                   ;1E47 1B04
;
P1E49   LODZ    R2                      ;1E49 02
        STRZ    R1                      ;1E4A C1
        LODI,R2 000H                    ;1E4B 0600
P1E4D   STRA,R1 NROBYT                   ;1E4D CD0EB0
        STRA,R2 SECBYT                   ;1E50 CE0EB2
        BCTA,UN P1D6E                   ;1E53 1F1D6E
;
        BYTE    titl,5,"CLBCT"
;
P1E5D   LODA,R0 LBCT                   ;1E5D 0C0EC4
        COMA,R0 ENLB                   ;1E60 EC0EC2
        RETC,GT                         ;1E63 15
        RETC,LT                         ;1E64 16
        LODA,R0 LBCT+1                   ;1E65 0C0EC5
        COMA,R0 ENLB+1                   ;1E68 EC0EC3
        RETC,UN                         ;1E6B 17
;
        BYTE    titl,5,"ILBCT"
;
P1E73   LODI,R0 008H                    ;1E73 0408
        ADDA,R0 LBCT+1                   ;1E75 8C0EC5
        STRA,R0 LBCT+1                   ;1E78 CC0EC5
        LODA,R0 LBCT                   ;1E7B 0C0EC4
        PPSL    WC                      ;1E7E 7708
        ADDI,R0 000H                    ;1E80 8400
        CPSL    WC                      ;1E82 7508
        STRA,R0 LBCT                   ;1E84 CC0EC4
        RETC,UN                         ;1E87 17
;
        BYTE    titl,9,"PRINT-LAB"
;
P1E93   LODI,R1 004H                    ;1E93 0504
        EORZ    R0                      ;1E95 20
P1E96   STRA,R0 stad,R1-                ;1E96 CD4EF8
        BRNR,R1 P1E96                   ;1E99 597B
        LODI,R1 007H                    ;1E9B 0507
        BSTA,UN P186E                   ;1E9D 3F186E    ; message
        LODI,R3 0F8H                    ;1EA0 07F8
        BSTA,UN GTADR                   ;1EA2 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1EA5 9C000B
        ZBSR    wrtcr                   ;1EA8 BB0B
        LODI,R1 008H                    ;1EAA 0508
        BSTA,UN P186E                   ;1EAC 3F186E    ; message
        LODI,R3 0FAH                    ;1EAF 07FA
        BSTA,UN GTADR                   ;1EB1 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1EB4 9C000B
        ZBSR    wrtcr                   ;1EB7 BB0B
        LODI,R3 006H                    ;1EB9 0706
        BSTA,UN chhxd                   ;1EBB 3F0289
        BCFR,LT P1EC7                   ;1EBE 9A07
        LODI,R1 00BH                    ;1EC0 050B
        BSTA,UN P186E                   ;1EC2 3F186E    ; message
        ZBRR    wrtcr                   ;1EC5 9B0B
;
P1EC7   LODI,R1 002H                    ;1EC7 0502
P1EC9   LODA,R0 R1FBCt,R1-              ;1EC9 0D5FBC
        STRA,R0 toad,R1                 ;1ECC CD6EFC
        BRNR,R1 P1EC9                   ;1ECF 5978
        LODI,R1 00EH                    ;1ED1 050E
        BSTA,UN P186E                   ;1ED3 3F186E    ; message
        LODI,R3 0FCH                    ;1ED6 07FC
        BSTA,UN GTADR                   ;1ED8 3F19B4    ; ADDR-IN
        BCFA,EQ wrtcr                   ;1EDB 9C000B
        ZBSR    wrtcr                   ;1EDE BB0B
        LODI,R1 002H                    ;1EE0 0502
P1EE2   LODA,R0 STLB,R1-               ;1EE2 0D4EC0
        STRA,R0 LBCT,R1                ;1EE5 CD6EC4
        BRNR,R1 P1EE2                   ;1EE8 5978
        LODI,R3 000H                    ;1EEA 0700
        STRA,R3 LBPT+1                   ;1EEC CF0EC7
        LODI,R2 0FFH                    ;1EEF 06FF
        STRA,R2 LBPT                   ;1EF1 CE0EC6
P1EF4   BSTA,UN P1E5D                   ;1EF4 3F1E5D    ; CLBCT
        BCFA,LT P1FA5                   ;1EF7 9E1FA5
        BSTA,UN P197D                   ;1EFA 3F197D    ; STOP?
        BCTA,EQ P1FA5                   ;1EFD 1C1FA5
        LODI,R1 001H                    ;1F00 0501
        LODA,R0 *LBCT                   ;1F02 0C8EC4
        BCFR,LT P1F33                   ;1F05 9A2C
        ANDI,R0 07FH                    ;1F07 447F
        STRA,R0 tbsr                    ;1F09 CC0EFE
        LODA,R0 *LBCT,R1                ;1F0C 0DEEC4
        STRA,R0 tbsr+1                  ;1F0F CC0EFF
        LODI,R0 stad-mram               ;1F12 04F8
        ZBSR    *cmtbsv                 ;1F14 BBA2
        BCTR,LT P1F33                   ;1F16 1A1B
        LODI,R0 enad-mram               ;1F18 04FA
        ZBSR    *cmtbsv                 ;1F1A BBA2
        BCTR,GT P1F33                   ;1F1C 1915
        LODA,R2 LBPT                   ;1F1E 0E0EC6
        LODI,R1 0FFH                    ;1F21 05FF
P1F23   LODA,R0 LBCT,R1+               ;1F23 0D2EC4
        STRA,R0 LABA,R2+               ;1F26 CE2EC8
        LODZ    R1                      ;1F29 01
        BCTR,EQ P1F23                   ;1F2A 1877
        STRA,R2 LBPT                   ;1F2C CE0EC6
        COMI,R2 007H                    ;1F2F E607
        BSFR,LT P1F39                   ;1F31 BA06
P1F33   BSTA,UN P1E73                   ;1F33 3F1E73    ; ILBCT
        BCTA,UN P1EF4                   ;1F36 1F1EF4
;
P1F39   LODI,R1 002H                    ;1F39 0502
P1F3B   LODA,R0 toad,R1-                ;1F3B 0D4EFC
        STRA,R0 ioad,R1                 ;1F3E CD6EE8
        BRNR,R1 P1F3B                   ;1F41 5978
        LODA,R3 LBPT+1                   ;1F43 0F0EC7
        BCFR,EQ P1F52                   ;1F46 980A
        LODI,R0 002H                    ;1F48 0402
        BSTA,UN *toad                   ;1F4A 3F8EFC
        LODI,R3 03CH                    ;1F4D 073C
        STRA,R3 LBPT+1                   ;1F4F CF0EC7
P1F52   LODI,R2 000H                    ;1F52 0600
P1F54   LODZ    R2                      ;1F54 02
        ADDI,R0 laba-mram               ;1F55 84C8
        ZBSR    *pltbsv                 ;1F57 BBAA
        LODI,R3 0FFH                    ;1F59 07FF
        LODA,R0 *tbsr,R3+               ;1F5B 0FAEFE
        ANDI,R0 07FH                    ;1F5E 447F
        ZBSR    *wchexv                 ;1F60 BBB8
        LODA,R0 *tbsr,R3+               ;1F62 0FAEFE
        ZBSR    *wchexv                 ;1F65 BBB8
        ZBSR    wrtsp                   ;1F67 BB03
P1F69   LODA,R0 *tbsr,R3+               ;1F69 0FAEFE
        ZBSR    wrtzv                   ;1F6C BB05
        COMI,R3 007H                    ;1F6E E707
        BCTR,LT P1F69                   ;1F70 1A77
        LODI,R1 004H                    ;1F72 0504
P1F74   ZBSR    wrtsp                   ;1F74 BB03
        BDRR,R1 P1F74                   ;1F76 F97C
        ADDI,R2 002H                    ;1F78 8602
        COMA,R2 LBPT                   ;1F7A EE0EC6
        BCTR,LT P1F54                   ;1F7D 1A55
        LODI,R0 00DH                    ;1F7F 040D
        ZBSR    wrtzv                   ;1F81 BB05
        LODI,R2 0FFH                    ;1F83 06FF
        STRA,R2 LBPT                   ;1F85 CE0EC6
        LODI,R1 002H                    ;1F88 0502
P1F8A   LODA,R0 ioptrs,R1-              ;1F8A 0D45A2
        STRA,R0 ioad,R1                 ;1F8D CD6EE8
        BRNR,R1 P1F8A                   ;1F90 5978
        LODA,R3 LBPT+1                   ;1F92 0F0EC7
        BDRR,R3 P1F9D                   ;1F95 FB06
P1F97   LODI,R0 00CH                    ;1F97 040C
        LODI,R3 03CH                    ;1F99 073C
        BCTR,UN P1F9F                   ;1F9B 1B02
;
P1F9D   LODI,R0 00AH                    ;1F9D 040A
P1F9F   STRA,R3 LBPT+1                   ;1F9F CF0EC7
        BCTA,UN *toad                   ;1FA2 1F8EFC
;
P1FA5   LODA,R2 LBPT                   ;1FA5 0E0EC6
        COMI,R2 0FFH                    ;1FA8 E6FF
        BSFA,EQ P1F39                   ;1FAA BC1F39
        LODA,R3 LBPT+1                   ;1FAD 0F0EC7
        RETC,EQ                         ;1FB0 14
        COMI,R3 03CH                    ;1FB1 E73C
        BSFR,EQ P1F97                   ;1FB3 B862
        LODI,R0 003H                    ;1FB5 0403
        BCTA,UN *toad                   ;1FB7 1F8EFC
;
        BYTE    acon,2                  ;1FBA D.
R1FBCt  WORD    P1FBE                   ;1FBC 1FBE
;
P1FBE   COMI,R0 00CH                    ;1FBE E40C
        BCFR,EQ P1FC4                   ;1FC0 9802
        LODI,R0 00AH                    ;1FC2 040A
P1FC4   BCTA,UN *ioptrs                 ;1FC4 1F85A2
;
        BYTE    titl,3,"END"
;
        END                             ;
