
VACS 2650 Cross Assembler V1.24i/w32                                           Page 1

0000              
0000                      EXEC    $2000;
     ** ERROR **                  ^ Opcode Expected
2000                      ORG     $2000
2000              ;R0     EQU     $0      ;
2000              ;R1     EQU     $1      ;
2000              ;R2     EQU     $2      ;
2000              ;R3     EQU     $3      ;
2000              
2000              
2000              
2000 = 00000000   EQ      EQU     $0      ;
2000 = 00000001   GT      EQU     $1      ;
2000 = 00000002   LT      EQU     $2      ;
2000 = 00000003   UN      EQU     $3      ;
2000 = 00000080   NE      EQU     $80     ;
2000 = 00000081   LE      EQU     $81     ;
2000 = 00000082   GE      EQU     $82     ;
2000 = 00000000   Z       EQU     $0      ;
2000              
2000              
2000              
2000              
2000 = 00000001   CRY     EQU     $1      ;PSL
2000 = 00000002   CCM     EQU     $2      ;
2000 = 00000004   OVF     EQU     $4      ;
2000 = 00000008   WC      EQU     $8      ;
2000 = 00000010   RS      EQU     $10     ;
2000 = 00000020   IDC     EQU     $20     ;
2000 = 000000C0   COND    EQU     $C0     ;
2000 = 00000007   SP      EQU     $7      ;PSU
2000 = 00000020   II      EQU     $20     ;
2000 = 00000040   FLAG    EQU     $40     ;
2000 = 00000080   SENSE   EQU     $80     ;
2000              
2000              
2000              
2000 = 0000001B   ESC     EQU     $1B     ;
2000 = 00000008   BS      EQU     $8      ;
2000 = 0000000D   CR      EQU     $D      ;
2000 = 0000000D   CRCD    EQU     $D      ;
2000 = 00000010   CCOPY   EQU     $10     ;
2000 = 00000018   CTRLX   EQU     $18     ;
2000 = 00000003   ETX     EQU     $3      ;
2000 = 0000000F   CTRLO   EQU     $F      ;
2000 = 00000010   CTRLP   EQU     $10     ;
2000 = 0000000E   CTRLN   EQU     $E      ;
2000 = 00000015   CTRLY   EQU     $15     
2000 = 00000053   BLKSP   EQU     $53     ;
2000 = 00000055   DISPP   EQU     $55
2000              
2000 = 00000009   HT      EQU     $9      ;
2000              
2000              
2000              
2000 = 0000000A   LF      EQU     $A      ;
2000 = 0000000C   FORMF   EQU     $C      ;
2000              
2000 = 0000024F   SERO    EQU     $24F    ;
2000 = 000002E9   SERI    EQU     $2E9    ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 2

2000 = 00000278   DELAY   EQU     $278    ;
2000              
2000 1F2030               BCTA,UN EDITOR  ;
2003 4A           BSTART  DB      $4A     ;
2004 50           IBST    DB      $50     ;
2005 5C           OBST    DB      $5C     ;
2006 60           ENDRAM  DB      $60     ;
2007 07           TABSS   DB      $7      ;
2008 12           CHGA    DB      $12     ;
2009 1B                   DB      $1B     ;
200A              
200A 1F979E       DPRINT  BCTA,UN *6046   ;PRINTER        DRIVER
200D              
200D              MBUF    DS      $10     ;
201D              
201D              
201D              
201D              CCMS    DS      $1      ;
201E              NAMEX   DS      $10     ;
202E              
202E              
202E              
202E              TMPS    DS      $1      ;
202F              TEMP    DS      $1      ;
2030              
2030 = 00000083   EBC     EQU     $83     ;
2030              
2030              
2030              
2030 0402         EDITOR  LODI,R0 $2      ;
2032 93                   LPSL            ;
2033 7640                 PPSU    $40     ;
2035 20                   EORZ    R0
2036 CC0A15               STRA,R0 OBPTR+1 ;
2039 CC0118               STRA,R0 ULC     ;
203C 3F2192               BSTA,UN ERASE   ;
203F 0C0005               LODA,R0 OBST    ;
2042 CC0A14               STRA,R0 OBPTR   ;
2045 3F2259               BSTA,UN BEGIN   ;
2048                              ;
2048 3F213E       FBDN    BSTA,UN DISP    ;
204B 0610         COMD    LODI,R2 $10     ;
204D 052F                 LODI,R1 $2F     ;
204F 3F444C               BSTA,UN SETCUR  ;
2052 3F4545               BSTA,UN OLFCR   ;
2055 0610                 LODI,R2 $10     ;
2057 0580                 LODI,R1 $80     ;
2059 3F444C               BSTA,UN SETCUR  ;
205C 050C                 LODI,R1 $C      ;
205E 3F46CA               BSTA,UN PRING   ;
2061 3F21EE               BSTA,UN FINDND  ;
2064 0F0004               LODA,R3 IBST    ;
2067 AF0A02               SUBA,R3 DUMA    ;
206A A701                 SUBI,R3 $1      ;
206C 3F2271               BSTA,UN DECOUT  ;2271
206F 0613                 LODI,R2 $13     ;
2071 0520                 LODI,R1 $20     ;
2073 3F444C               BSTA,UN SETCUR  ;
2076 051D                 LODI,R1 $1D     ;??
2078 3F46CA               BSTA,UN PRING   ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 3

207B 70           RL1     REDD,R0 ;READ   DATA
207C 1A7D                 BCTR,LT RL1     ;WAAIT  LOOP    ?
207E 3F2126               BSTA,UN OLC     ;
2081 0420                 LODI,R0 HI(CCMS)        ;
2083 051D                 LODI,R1 LO(CCMS)        ;
2085 0611                 LODI,R2 $11     ;
2087 3F4667               BSTA,UN ARROW   ;
208A 9C204B               BCFA,EQ COMD    ;204B
208D 0C001D               LODA,R0 CCMS    ;
2090 3F478C               BSTA,UN LTOU    ;478C
2093 3F2126               BSTA,UN OLC     ;2126
2096 20                   EORZ    R0
2097 C1                   STRZ    R1
2098 07FF                 LODI,R3 $FF     ;
209A 0F201E       NI      LODA,R0 NAMEX,R3,+      ;0F     20      1E
209D 1826                 BCTR,EQ CK0     ;
209F E710                 COMI,R3 $10     ;
20A1 1A2C                 BCTR,LT EADD    ;
20A3 E700                 COMI,R3 $0      ;
20A5 1A26                 BCTR,LT DSX     ;
20A7 E409                 COMI,R0 $9      ;
20A9 1922                 BCTR,GT DSX     ;
20AB 01                   LODZ    R1      ;
20AC 0609                 LODI,R2 $9      ;
20AE 81           ONE     ADDZ    R1      ;
20AF B501                 TPSL    CRY     ;
20B1 180E                 BCTR,EQ D255    ;
20B3 FA79                 BDRR,R2 ONE     ;
20B5 C1                   STRZ    R1
20B6 0F601E               LODA,R0 NAMEX,R3        ;0F     60      1E
20B9 A430                 SUBI,R0 '0'     ;
20BB 81                   ADDZ    R1      ;
20BC C1                   STRZ    R1
20BD B501                 TPSL    CRY     ;
20BF 9859                 BCFR,EQ NI      ;
20C1 05FF         D255    LODI,R1 $FF     ;
20C3 1B0A                 BCTR,UN EADD    ;
20C5 E700         CK0     COMI,R3 $0      ;
20C7 9806                 BCFR,EQ EADD    ;
20C9 0501                 LODI,R1 $1      ;
20CB 1B02                 BCTR,UN EADD    ;
20CD 0500         DSX     LODI,R1 $0      ;
20CF 0C001D       EADD    LODA,R0 CCMS    ;
20D2 3F478C               BSTA,UN LTOU    ;
20D5 C3                   STRZ    R3      ;
20D6 A741                 SUBI,R3 'A'     ;
20D8 E719                 COMI,R3 $19     ;
20DA 1D204B               BCTA,GT COMD    ;
20DD D3                   RRL,R3          ;
20DE 6780                 IORI,R3 $80     ;
20E0 CB01                 STRR,R3 $+3     ;
20E2 1B00                 BCTR,UN COMTBL  ;
20E4 2526         COMTBL  DW      ISAVE   ;
20E6 2201                 DW      BACK    ;
20E8 2624                 DW      CHANGE  ;
20EA 23D5                 DW      DELT    ;
20EC 0083                 DW      $0083   ;SUPERVISOR
20EE 2207                 DW      FORW    ;
20F0 3655                 DW      BUG     ;
20F2 24E5                 DW      SAVE    ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 4

20F4 2295                 DW      INST    ;
20F6 365B                 DW      DEBUG   ;
20F8 204B                 DW      COMD    ;
20FA 27EF                 DW      LOADL   ;
20FC 258B                 DW      MODIFY  ;
20FE 2119                 DW      ULCASE  ;
2100 204B                 DW      COMD    ;
2102 2563                 DW      PMOD    ;2563
2104 204B                 DW      COMD    ;
2106 2B69                 DW      ASM     ;
2108 2800                 DW      TAPEO   ;
210A 204B                 DW      COMD    ;
210C 211F                 DW      UPONLY  ;
210E 204B                 DW      COMD    ;
2110 204B                 DW      COMD    ;
2112 24CD                 DW      SEARCH  ;
2114 204B                 DW      COMD    ;
2116 204B                 DW      COMD    ;
2118                              ;
2118              ULC     DS      $1      ;
2119                              ;
2119 20           ULCASE  EORZ    R0
211A C87C                 STRR,R0 ULC     ;
211C 1F204B               BCTA,UN COMD    ;
211F                              ;
211F 04FF         UPONLY  LODI,R0 $FF     ;
2121 C875                 STRR,R0 ULC     ;
2123 1F204B               BCTA,UN COMD    ;
2126                              ;
2126                              ;
2126 E42B         OLC     COMI,R0 $2B     ;
2128 1C21E5               BCTA,EQ ENDF    ;21E6
212B E42D                 COMI,R0 $2D     ;
212D 1C2253               BCTA,EQ BEGN    ;
2130 E420                 COMI,R0 ' '     ;SPACE
2132 1C2205               BCTA,EQ FW15    ;
2135 E42E                 COMI,R0 '.'     ;
2137 1C21FF               BCTA,EQ BK15    ;
213A 17                   RETC,UN         ;
213B                              ;
213B 45C8         CURIT   DW      CURSOR+1        ;
213D              LINEX   DS      $1      ;
213E                              ;
213E 3F2264       DISP    BSTA,UN MTDA    ;2264
2141 C1                   STRZ    R1
2142 20                   EORZ    R0
2143 CC813B               STRA,R0 *CURIT  ;
2146 CC0A03               STRA,R0 DUMA+1  ;2A03
2149 C872                 STRR,R0 LINEX   ;
214B 3F4545       LINENO  BSTA,UN OLFCR   ;
214E 0C813B               LODA,R0 *CURIT  ;
2151 440F                 ANDI,R0 $F      ;
2153 14                   RETC,EQ         ;
2154 0DEA02               LODA,R0 *DUMA,R1        ;
2157 1E219D               BCTA,LT CLREND  ;
215A 0861                 LODR,R0 LINEX   ;
215C 8401                 ADDI,R0 $1      ;
215E C85D                 STRR,R0 LINEX   ;
2160 C3                   STRZ    R3      ;
2161 E409                 COMI,R0 $9      ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 5

2163 1905                 BCTR,GT TWOCH   ;
2165 3F458B               BSTA,UN WRTBL   ;
2168 3B07                 BSTR,UN WR2ND   ;
216A 0401         TWOCH   LODI,R0 $1      ;
216C 3F458D               BSTA,UN WRT     ;
216F A70A                 SUBI,R3 $A      ;
2171 6730         WR2ND   IORI,R3 '0'     ;
2173 03                   LODZ    R3      ;
2174 3F458D               BSTA,UN WRT     ;
2177 3F458B               BSTA,UN WRTBL   ;
217A 0DEA02       NITC    LODA,R0 *DUMA,R1        ;
217D 1A1E                 BCTR,LT CLREND  ;
217F C3                   STRZ    R3      ;
2180 D905                 BIRR,R1 NA1     ;
2182 3F21D9               BSTA,UN A1DA    ;
2185 9A16                 BCFR,LT CLREND  ;
2187 E70D         NA1     COMI,R3 CR      ;
2189 1C214B               BCTA,EQ LINENO  ;
218C 03                   LODZ    R3      ;
218D 3F458D               BSTA,UN WRT     ;
2190 1B68                 BCTR,UN NITC    ;
2192 20           ERASE   EORZ    R0
2193 CC813B               STRA,R0 *CURIT  ;
2196 3F219D               BSTA,UN CLREND  ;
2199 3F4545               BSTA,UN OLFCR   ;3F     45      45
219C 17                   RETC,UN         ;
219D 0C813B       CLREND  LODA,R0 *CURIT  ;
21A0 F40F                 TMI,R0  $F      ;
21A2 14                   RETC,EQ         ;
21A3 3F4545               BSTA,UN OLFCR   ;
21A6 1B75                 BCTR,UN CLREND  ;
21A8              FTEMP   DS      $1      ;
21A9 3F2264       FWDX    BSTA,UN MTDA    ;
21AC C2           FWDX2   STRZ    R2      ;
21AD 01                   LODZ    R1      ;
21AE 14                   RETC,EQ         ;
21AF 20                   EORZ    R0
21B0 CC0A03               STRA,R0 DUMA+1  ;
21B3 0EEA02       NXTCHR  LODA,R0 *DUMA,R2        ;0E     EA      02
21B6 1A1D                 BCTR,LT ENDFW   ;
21B8 C86E                 STRR,R0 FTEMP   ;
21BA DA11                 BIRR,R2 CRCK    ;
21BC 3F21D9               BSTA,UN A1DA    ;
21BF 1A0C                 BCTR,LT CRCK    ;
21C1 3F2373               BSTA,UN S1DA    ;
21C4 06FF                 LODI,R2 $FF     ;
21C6 0483                 LODI,R0 EBC     ;63
21C8 CEEA02               STRA,R0 *DUMA,R2        ;
21CB 1B08                 BCTR,UN ENDFW   ;
21CD 0859         CRCK    LODR,R0 FTEMP   ;
21CF E40D                 COMI,R0 CR      ;
21D1 9860                 BCFR,EQ NXTCHR  ;
21D3 F95E                 BDRR,R1 NXTCHR
21D5 CE0A03       ENDFW   STRA,R2 DUMA+1  ;
21D8 17                   RETC,UN         ;
21D9 0401         A1DA    LODI,R0 $1      ;
21DB 8C0A02               ADDA,R0 DUMA    ;
21DE CC0A02               STRA,R0 DUMA    ;
21E1 EC0004               COMA,R0 IBST    ;
21E4 17                   RETC,UN         ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 6

21E5                              ;
21E5                              ;
21E5 3B07         ENDF    BSTR,UN FINDND  ;
21E7 3F223F               BSTA,UN MTCA    ;
21EA 0501                 LODI,R1 $1      ;
21EC 1B13                 BCTR,UN BACK    ;
21EE 3F2264       FINDND  BSTA,UN MTDA    ;
21F1 05FF         FNDND2  LODI,R1 $FF     ;
21F3 3F21AC               BSTA,UN FWDX2   ;
21F6 0C8A02               LODA,R0 *DUMA   ;
21F9 16                   RETC,LT         ;16
21FA 0E0A03               LODA,R2 DUMA+1  ;
21FD 1B72                 BCTR,UN FNDND2  ;
21FF 050F         BK15    LODI,R1 $F      ;
2201 3B0C         BACK    BSTR,UN BACKX   ;
2203 3B05                 BSTR,UN FWBED   ;
2205 050F         FW15    LODI,R1 $F      ;
2207 3F21A9       FORW    BSTA,UN FWDX    ;
220A 3B33         FWBED   BSTR,UN MTCA    ;
220C 1F2048               BCTA,UN FBDN    ;
220F 3F2264       BACKX   BSTA,UN MTDA    ;
2212 C2                   STRZ    R2              ;
2213 20                   EORZ    R0
2214 CC0A03               STRA,R0 DUMA+1  ;
2217 8501                 ADDI,R1 $1      ;
2219 1B03                 BCTR,UN CHEK    ;
221B 0ECA02       SUBL    LODA,R0 *DUMA,R2,-      ;
221E C3           CHEK    STRZ    R3      ;
221F E600                 COMI,R2 $0      ;
2221 9808                 BCFR,EQ NOSU    ;
2223 3F2373               BSTA,UN S1DA    ;
2226 EC0003               COMA,R0 BSTART  ;
2229 1A28                 BCTR,LT BEGN    ;
222B E70D         NOSU    COMI,R3 CR      ;
222D 986C                 BCFR,EQ SUBL    ;
222F F96A                 BDRR,R1 SUBL    ;
2231 E600                 COMI,R2 $0      ;
2233 3C21D9               BSTA,EQ A1DA    ;
2236 8601                 ADDI,R2 $1      ;
2238 3C21D9               BSTA,EQ A1DA    ;
223B CE0A03               STRA,R2 DUMA+1  ;
223E 17                   RETC,UN         ;
223F 0C0A02       MTCA    LODA,R0 DUMA    ;
2242 CC0A00               STRA,R0 CURA    ;
2245 0C0A03               LODA,R0 DUMA+1  ;
2248 CC0A01               STRA,R0 CURA+1  ;
224B 17                   RETC,UN         ;
224C                              ;
224C                              ;
224C                              ;
224C 3B0B         CREATE  BSTR,UN BEGIN   ;
224E 0483                 LODI,R0 EBC     ;
2250 CC8A00               STRA,R0 *CURA   ;
2253                              ;
2253 3F2259       BEGN    BSTA,UN BEGIN   ;
2256 1F2048               BCTA,UN FBDN    ;
2259 0C0003       BEGIN   LODA,R0 BSTART  ;
225C CC0A00               STRA,R0 CURA    ;
225F 20                   EORZ    R0
2260 CC0A01               STRA,R0 CURA+1  ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 7

2263 17                   RETC,UN         ;
2264                              ;
2264 0C0A00       MTDA    LODA,R0 CURA    ;
2267 CC0A02               STRA,R0 DUMA    ;2A02
226A 0C0A01               LODA,R0 CURA+1  ;
226D CC0A03               STRA,R0 DUMA+1  ;
2270 17                   RETC,UN         ;
2271                              ;
2271 E763         DECOUT  COMI,R3 $63     ;
2273 9907                 BCFR,GT NO100   ;
2275 0401                 LODI,R0 $1      ;
2277 3F458D               BSTA,UN WRT     ;
227A A764                 SUBI,R3 $64     ;
227C 0600         NO100   LODI,R2 $0      ;
227E E709         SUB10   COMI,R3 $9      ;
2280 9906                 BCFR,GT TENIN   ;
2282 A70A                 SUBI,R3 $A      ;
2284 8601                 ADDI,R2 $1      ;
2286 1B76                 BCTR,UN SUB10   ;
2288 02           TENIN   LODZ    R2      ;
2289 6430                 IORI,R0 '0'     ;
228B 3F458D               BSTA,UN WRT     ;
228E 03                   LODZ    R3      ;
228F 6430                 IORI,R0 '0'     ;
2291 3F458D               BSTA,UN WRT     ;
2294 17                   RETC,UN         ;
2295                              ;
2295                              ;
2295 3F2192       INST    BSTA,UN ERASE   ;
2298 3F2399               BSTA,UN IPADD   ;
229B 3F21A9               BSTA,UN FWDX    ;
229E 3F223F               BSTA,UN MTCA    ;
22A1 3F21EE               BSTA,UN FINDND  ;
22A4 0500                 LODI,R1 $0      ;
22A6 3F4703       NEXI    BSTA,UN GETKB   ;
22A9 E408                 COMI,R0 BS      ;
22AB 1C23A4               BCTA,EQ BACKN   ;
22AE E409                 COMI,R0 HT      ;
22B0 1C2422               BCTA,EQ TABO    ;
22B3 E403                 COMI,R0 ETX     ;
22B5 1805                 BCTR,EQ BYPAS   ;
22B7 3F2608               BSTA,UN CKCTRL  ;
22BA 1A6A                 BCTR,LT NEXI    ;
22BC CDEA04       BYPAS   STRA,R0 *TMPA,R1        ;
22BF E403                 COMI,R0 ETX     ;
22C1 183D                 BCTR,EQ ENDI    ;
22C3 E40D                 COMI,R0 CR      ;
22C5 3C45C9               BSTA,EQ IPCR    ;
22C8 3B02                 BSTR,UN INSTS   ;
22CA 1B5A                 BCTR,UN NEXI    ;
22CC                              ;
22CC 0401         INSTS   LODI,R0 $1      ;
22CE 0602                 LODI,R2 $2      ;
22D0 3F2406               BSTA,UN ADDANY  ;
22D3 EC0004               COMA,R0 IBST    ;
22D6 1A0A                 BCTR,LT INCR    ;
22D8 3F2373               BSTA,UN S1DA    ;
22DB 04FE                 LODI,R0 $FE     ;
22DD CC0A03               STRA,R0 DUMA+1  ;
22E0 1B19                 BCTR,UN ENDINS  ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 8

22E2 D90D         INCR    BIRR,R1 RETCUN  ;
22E4 0401                 LODI,R0 $1      ;
22E6 8E0A04               ADDA,R2 TMPA    ;
22E9 EC0006               COMA,R0 ENDRAM  ;
22EC 9A04                 BCFR,LT STRTMR  ;
22EE CC0A04               STRA,R0 TMPA    ;
22F1 17           RETCUN  RETC,UN         ;
22F2 0401         STRTMR  LODI,R0 $1      ;
22F4 0602                 LODI,R2 $2      ;
22F6 3F23B5               BSTA,UN SUBANY  ;
22F9 05FF                 LODI,R1 $FF     ;
22FB 0403         ENDINS  LODI,R0 ETX     ;
22FD CDEA04               STRA,R0 *TMPA,R1        ;CD     EA      04
2300                              ;
2300                              ;
2300                              ;
2300 0C0A02       ENDI    LODA,R0 DUMA    ;
2303 CC0A04               STRA,R0 TMPA    ;
2306 0F0A03               LODA,R3 DUMA+1  ;
2309 3F21EE               BSTA,UN FINDND  ;
230C 3F237C               BSTA,UN SDCA    ;
230F 0D0A03               LODA,R1 DUMA+1  ;
2312 20                   EORZ    R0
2313 CC0A03               STRA,R0 DUMA+1  ;
2316 CC0A05               STRA,R0 TMPA+1  ;
2319 0DEA02       DOWN    LODA,R0 *DUMA,R1        ;
231C CFEA04               STRA,R0 *TMPA,R3        ;!!
231F 0401                 LODI,R0 $1      ;
2321 0606                 LODI,R2 $6      ;
2323 3F23B5               BSTA,UN SUBANY  ;
2326 9805                 BCFR,EQ NOCK    ;
2328 0C0A07               LODA,R0 BSA1+1  ;2A08
232B 181E                 BCTR,EQ INSTDN  ;
232D                              ;
232D A501         NOCK    SUBI,R1 $1      ;
232F E5FF                 COMI,R1 $FF     ;
2331 9808                 BCFR,EQ NS1DA   ;
2333 3F2373               BSTA,UN S1DA    ;
2336 EC0003               COMA,R0 BSTART  ;
2339 1A10                 BCTR,LT INSTDN  ;
233B A701         NS1DA   SUBI,R3 $1      ;
233D E7FF                 COMI,R3 $FF     ;
233F 9858                 BCFR,EQ DOWN    ;
2341 0C0A04               LODA,R0 TMPA    ;
2344 A401                 SUBI,R0 $1      ;
2346 CC0A04               STRA,R0 TMPA    ;
2349 1B4E                 BCTR,UN DOWN    ;
234B                              ;
234B 3F2399       INSTDN  BSTA,UN IPADD   ;
234E 3F2264               BSTA,UN MTDA    ;
2351 C1                   STRZ    R1
2352 20                   EORZ    R0
2353 CC0A03               STRA,R0 DUMA+1  ;
2356 07FF                 LODI,R3 $FF     ;
2358 0FAA04       INSERT  LODA,R0 *TMPA,R3,+      ;
235B E403                 COMI,R0 ETX     ;
235D 180F                 BCTR,EQ INSTE   ;
235F CDEA02               STRA,R0 *DUMA,R1        ;
2362 E7FF                 COMI,R3 $FF     ;
2364 3C23CC               BSTA,EQ A1TA    ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 9

2367 D96F                 BIRR,R1 INSERT  ;
2369 3F21D9               BSTA,UN A1DA    ;
236C 1A6A                 BCTR,LT INSERT  ;
236E 0501         INSTE   LODI,R1 $1      ;
2370 1F2201               BCTA,UN BACK    ;
2373                              ;
2373 0C0A02       S1DA    LODA,R0 DUMA    ;
2376 A401                 SUBI,R0 $1      ;
2378 CC0A02               STRA,R0 DUMA    ;
237B 17                   RETC,UN         ;
237C                              ;
237C 0C0A03       SDCA    LODA,R0 DUMA+1  ;
237F AC0A01               SUBA,R0 CURA+1  ;
2382 CC0A07               STRA,R0 BSA1+1  ;
2385 7708                 PPSL    WC      ;
2387 0C0A02               LODA,R0 DUMA    ;
238A AC0A00               SUBA,R0 CURA    ;
238D CC0A06               STRA,R0 BSA1    ;
2390 7508                 CPSL    WC      ;
2392 0401                 LODI,R0 $1      ;
2394 0606                 LODI,R2 $6      ;
2396 1F2406               BCTA,UN ADDANY  ;
2399                              ;
2399 0C0004       IPADD   LODA,R0 IBST    ;
239C CC0A04               STRA,R0 TMPA    ;
239F 20                   EORZ    R0
23A0 CC0A05               STRA,R0 TMPA+1  ;
23A3 17                   RETC,UN         ;
23A4                              ;
23A4 3F4518       BACKN   BSTA,UN BACK1   ;
23A7 1E22A6               BCTA,LT NEXI    ;
23AA 0401                 LODI,R0 $1      ;
23AC 0602                 LODI,R2 $2      ;
23AE 3F23B5               BSTA,UN SUBANY  ;
23B1 1F22A6               BCTA,UN NEXI    ;
23B4                              ;
23B4                              ;
23B4              STORE   DS      $1      ;
23B5 C87D         SUBANY  STRR,R0 STORE   ;
23B7 0E6A01               LODA,R0 CURA+1,R2       ;
23BA A878                 SUBR,R0 STORE   ;
23BC CE6A01               STRA,r0 CURA+1,R2       ;
23BF 7708                 PPSL    WC      ;
23C1 0E6A00               LODA,R0 CURA,R2 ;
23C4 A400                 SUBI,R0 $0      ;
23C6 CE6A00               STRA,R0 CURA,R2 ;
23C9 7508                 CPSL    WC      ;
23CB 17                   RETC,UN         ;
23CC                              ;
23CC 0401         A1TA    LODI,R0 $1      ;
23CE 8C0A04               ADDA,R0 TMPA    ;
23D1 CC0A04               STRA,R0 TMPA    ;
23D4 17                   RETC,UN         ;
23D5                              ;
23D5 3F21A9       DELT    BSTA,UN FWDX    ;
23D8 3B05                 BSTR,UN SHIF    ;
23DA 0501                 LODI,R1 $1      ;
23DC 1F2201               BCTA,UN BACK    ;
23DF                              ;
23DF 0F0A00       SHIF    LODA,R3 CURA    ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 10

23E2 CF0A04               STRA,R3 TMPA    ;
23E5 0F0A01               LODA,R3 CURA+1  ;
23E8 CF0A03               STRA,R3 DUMA+1  ;
23EB 20                   EORZ    R0
23EC CC0A05               STRA,R0 TMPA+1  ;
23EF CC0A03               STRA,R0 DUMA+1  ;
23F2 0DEA02       UP      LODA,R0 *DUMA,R1        ;
23F5 CFEA04               STRA,R0 *TMPA,R3        ;
23F8 16                   RETC,LT         ;
23F9 8701                 ADDI,R3 $1      ;
23FB 3C23CC               BSTA,EQ A1TA    ;
23FE D972                 BIRR,R1 UP      ;
2400 3F21D9               BSTA,UN A1DA    ;
2403 3A6D                 BSTR,LT UP      ;1a     6D
2405 17                   RETC,UN         ;
2406                              ;
2406 8E6A01       ADDANY  ADDA,R0 CURA+1,R2       ;
2409 CE6A01               STRA,R0 CURA+1,R2       ;
240C 7708                 PPSL    WC      ;
240E 20                   EORZ    R0
240F 8E6A00               ADDA,R0 CURA,R2 ;
2412 CE6A00               STRA,R0 CURA,R2 ;
2415 7508                 CPSL    WC      ;
2417 17                   RETC,UN         ;
2418                              ;
2418                              ;
2418 070E         NOTFON  LODI,R3 $E      ;
241A 1F4501               BCTA,UN ERROR   ;
241D 070D         TMF     LODI,R3 $D      ;
241F 1F4501               BCTA,UN ERROR   ;
2422                              ;
2422 3F2438       TABO    BSTA,UN TABSUB  ;
2425 1C22A6               BCTA,EQ NEXI    ;
2428 0420         TL3     LODI,R0 ' '     ;SPACE
242A CDEA04               STRA,R0 *TMPA,R1        ;
242D 3F458D               BSTA,UN WRT     ;
2430 3F22CC               BSTA,UN INSTS   ;
2433 FB73                 BDRR,R3 TL3     ;
2435 1F22A6               BCTA,UN NEXI    ;
2438                              ;
2438 07FF         TABSUB  LODI,R3 $FF     ;
243A 0C0A04               LODA,R0 TMPA    ;
243D CC0A06               STRA,R0 BSA1    ;
2440 CD0A07               STRA,R1 BSA1+1  ;
2443 8701         TL1     ADDI,R3 $1      ;
2445 0401                 LODI,R0 $1      ;
2447 0606                 LODI,R2 $6      ;
2449 3F23B5               BSTA,UN SUBANY  ;
244C EC0004               COMA,R0 IBST    ;
244F 1A07                 BCTR,LT CRFND   ;
2451 0C8A06               LODA,R0 *BSA1   ;
2454 E40D                 COMI,R0 CR      ;
2456 986B                 BCFR,EQ TL1     ;
2458 06FF         CRFND   LODI,R2 $FF     ;
245A 0E2007       TL2     LODA,R0 TABSS,R2,+      ;
245D E603                 COMI,R2 $3      ;
245F 14                   RETC,EQ         ;
2460 E3                   COMZ    R3              ;
2461 9977                 BCFR,GT TL2     ;
2463 A3                   SUBZ    R3              ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 11

2464 C3                   STRZ    R3      ;
2465 17                   RETC,UN         ;
2466                              ;
2466 3F2264       S2      BSTA,UN MTDA    ;
2469 C1                   STRZ    R1
246A 20                   EORZ    R0
246B CC0A03               STRA,R0 DUMA+1  ;
246E CC04C4               STRA,R0 SSTAT   ;
2471 0C0A02               LODA,R0 DUMA    ;
2474 CC0A04               STRA,R0 TMPA    ;
2477 CD0A05               STRA,R1 TMPA+1  ;
247A 06FF         REDO    LODI,R2 $FF     ;
247C 0E201E       SI2     LODA,R0 NAMEX,R2,+      ;
247F 1833                 BCTR,EQ FOUND   ;
2481 3F478C               BSTA,UN LTOU    ;
2484 E610                 COMI,R2 $10     ;
2486 182C                 BCTR,EQ FOUND   ;
2488 C3                   STRZ    R3      ;
2489 0DEA02               LODA,R0 *DUMA,R1        ;
248C 1E24C5               BCTA,LT NF      ;
248F 3F478C               BSTA,UN LTOU    ;
2492 CC002E               STRA,R0 TMPS    ;
2495 D905                 BIRR,R1 NOAD    ;
2497 3F21D9               BSTA,UN A1DA    ;
249A 9A29                 BCFR,LT NF      ;
249C 0C002E       NOAD    LODA,R0 TMPS    ;
249F E3                   COMZ    R3      ;
24A0 185A                 BCTR,EQ SI2     ;
24A2 0401                 LODI,R0 $1      ;
24A4 0604                 LODI,R2 $4      ;
24A6 3F2406               BSTA,UN ADDANY  ;
24A9 0C0A04               LODA,R0 TMPA    ;
24AC CC0A02               STRA,R0 DUMA    ;
24AF 0D0A05               LODA,R1 TMPA+1  ;
24B2 1B46                 BCTR,UN REDO    ;
24B4 CD0A03       FOUND   STRA,R1 DUMA+1  ;
24B7 CE002F               STRA,R2 TEMP    ;
24BA 02                   LODZ    R2      ;
24BB 0602                 LODI,R2 $2      ;
24BD 3F23B5               BSTA,UN SUBANY  ;
24C0 0E002F               LODA,R2 TEMP    ;
24C3 17                   RETC,UN         ;
24C4                              ;
24C4              SSTAT   DS      $1      ;
24C5 04FF         NF      LODI,R0 $FF     ;
24C7 C87B                 STRR,R0 SSTAT   ;
24C9 3F2264               BSTA,UN MTDA    ;
24CC 17                   RETC,UN         ;
24CD                              ;
24CD 0501         SEARCH  LODI,R1 $1      ;
24CF 3F21A9               BSTA,UN FWDX    ;
24D2 3F223F               BSTA,UN MTCA    ;223F
24D5 3F2466               BSTA,UN S2      ;
24D8 086A                 LODR,R0 SSTAT   ;
24DA 1E2418               BCTA,LT NOTFON  ;
24DD 3F223F               BSTA,UN MTCA    ;
24E0 0500                 LODI,R1 $0      ;
24E2 3F2201               BSTA,UN BACK    ;
24E5                              ;
24E5 3F2399       SAVE    BSTA,UN IPADD   ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 12

24E8 3F21A9               BSTA,UN FWDX    ;
24EB 3F237C               BSTA,UN SDCA    ;
24EE 3F2264               BSTA,UN MTDA    ;
24F1 C1                   STRZ    R1
24F2 20                   EORZ    R0
24F3 CC0A03               STRA,R0 DUMA+1  ;
24F6 C3                   STRZ    R3      ;
24F7 0DEA02       SL      LODA,R0 *DUMA,R1        ;
24FA CFEA04               STRA,R0 *TMPA,R3        ;
24FD D905                 BIRR,R1 CKR3    ;
24FF 3F21D9               BSTA,UN A1DA    ;
2502 9A1A                 BCFR,LT SL3     ;
2504 DB08         CKR3    BIRR,R3 SLCK    ;
2506 3F23CC               BSTA,UN A1TA    ;23CC
2509 EC0006               COMA,R0 ENDRAM  ;
250C 1A00                 BCTR,LT SLCK    ;IET    NODIG   ?
250E 0401         SLCK    LODI,R0 $1      ;
2510 0606                 LODI    ,R2     $6      ;
2512 3F23B5               BSTA,UN SUBANY  ;
2515 9860                 BCFR,EQ SL      ;
2517 0C0A07               LODA,R0 BSA1+1  ;
251A E401                 COMI,R0 $1      ;
251C 9859                 BCFR,EQ SL      ;
251E 0403         SL3     LODI,R0 ETX     ;
2520 CFEA04               STRA,R0 *TMPA,R3        ;
2523 1F204B               BCTA,UN COMD    ;
2526                              ;
2526 3F21A9       ISAVE   BSTA,UN FWDX    ;
2529 3F223F               BSTA,UN MTCA    ;
252C 3F21EE               BSTA,UN FINDND  ;
252F 3F2399               BSTA,UN IPADD   ;
2532 0500                 LODI,R1 $0      ;
2534 0403         ISL2    LODI,R0 ETX     ;
2536 EDEA04       ISL     COMA,R0 *TMPA,R1        ;
2539 180D                 BCTR,EQ IFOUND  ;
253B D979                 BIRR,R1 ISL     ;
253D 3F23CC               BSTA,UN A1TA    ;23CC
2540 EC0006               COMA,R0 ENDRAM  ;
2543 9E2048               BCFA,LT FBDN    ;
2546 1B6C                 BCTR,UN ISL2    ;
2548 0C0A04       IFOUND  LODA,R0 TMPA    ;
254B AC0004               SUBA,R0 IBST    ;
254E 8C0A02               ADDA,R0 DUMA    ;
2551 CC0A02               STRA,R0 DUMA    ;
2554 01                   LODZ    R1      ;
2555 0602                 LODI,R2 $2      ;
2557 3F2406               BSTA,UN ADDANY  ;
255A EC0004               COMA,R0 IBST    ;
255D 9E241D               BCFA,LT TMF     ;
2560 1F2300               BCTA,UN ENDI    ;
2563                              ;
2563 0615         PMOD    LODI,R2 $15     ;
2565 050F                 LODI,R1 $F      ;
2567 3F444C               BSTA,UN SETCUR  ;STECURSOR      
256A 3F4545               BSTA,UN OLFCR   ;
256D 05FF                 LODI,R1 $FF     ;
256F 0D201E       NXTNM   LODA,R0 NAMEX,R1,+      ;
2572 CD77EF               STRA,R0 MNAME,R1        ;CHECK  !
2575 E50F                 COMI,R1 $F      ;
2577 9876                 BCFR,EQ NXTNM   ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 13

2579 050F         WRTM    LODI,R1 $F      ;
257B 3F46CA               BSTA,UN PRING   ;
257E 050D                 LODI,R1 LO(MBUF)        ;
2580 0420                 LODI,R0 HI(MBUF)        ;
2582 0610                 LODI,R2 $10     ;
2584 3F4667               BSTA,UN ARROW   ;
2587 1F204B               BCTA,UN COMD    ;
258A                              ;
258A              MTEMP   DS      $1      ;
258B 01           MODIFY  LODZ    R1      ;
258C 1C204B               BCTA,EQ COMD    ;
258F A501                 SUBI,R1 $1      ;
2591 3F21A9               BSTA,UN FWDX    ;
2594 3F223F               BSTA,UN MTCA    ;
2597 05FF                 LODI,R1 $FF     ;
2599 0610                 LODI,R2 $10     ;
259B 0D37EF       XFER    LODA,R0 MNAME,R1,+      ;
259E CD601E               STRA,R0 NAMEX,R1        ;
25A1 FA78                 BDRR,R2 XFER    ;
25A3 0501                 LODI,R1 $1      ;
25A5 3F21A9               BSTA,UN FWDX    ;
25A8 0C8A02               LODA,R0 *DUMA   ;
25AB C85D                 STRR,R0 MTEMP   ;
25AD 0483                 LODI,R0 EBC     ;
25AF CC8A02               STRA,R0 *DUMA   ;
25B2 3F2466               BSTA,UN S2      ;
25B5 CE002E               STRA,R2 TMPS    ;
25B8 3F223F               BSTA,UN MTCA    ;
25BB 0501                 LODI,R1 $1      ;
25BD 3F21A9               BSTA,UN FWDX    ;
25C0 0848                 LODR,R0 MTEMP   ;
25C2 CC8A02               STRA,R0 *DUMA   ;
25C5 0C04C4               LODA,R0 SSTAT   ;
25C8 3F2418               BSTA,UN NOTFON  ;
25CB 3F2264               BSTA,UN MTDA    ;
25CE 0C002E               LODA,R0 TMPS    ;
25D1 0602                 LODI    ,R2     $2      ;
25D3 3F2406               BSTA,UN ADDANY  ;
25D6 3F23DF               BSTA,UN SHIF    ;23DF
25D9 3F2399               BSTA,UN IPADD   ;
25DC 05FF                 LODI,R1 $FF     ;
25DE 0D200D       ML1     LODA,R0 MBUF,R1,+       ;
25E1 1809                 BCTR,EQ ENDM    ;
25E3 CDEA04               STRA,R0 *TMPA,R1        ;
25E6 E50F                 COMI,R1 $F      ;
25E8 9874                 BCFR,EQ ML1     ;
25EA 0510                 LODI,R1 $10     ;
25EC 0403         ENDM    LODI,R0 ETX     ;
25EE CDEA04               STRA,R0 *TMPA,R1        ;
25F1 CD002E               STRA,R1 TMPS    ;
25F4 3F21EE               BSTA,UN FINDND  ;
25F7 0C002E               LODA,R0 TMPS    ;
25FA 0602                 LODI,R2 $2      ;
25FC 3F2406               BSTA,UN ADDANY  ;
25FF EC0004               COMA,R0 IBST    ;
2602 9E241D               BCFA,LT TMF     ;
2605 1F2300               BCTA,UN ENDI    ;
2608                              ;
2608 E40D         CKCTRL  COMI,R0 CR      ;
260A 9805                 BCFR,EQ CKLP12  ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 14

260C 7580                 CPSL    $80     ;
260E 7740                 PPSL    $40     ;
2610 17                   RETC,UN ;
2611 24FF         CKLP12  EORI,R0 $FF     ;
2613 7710                 PPSL    RS      ;
2615 C1                   STRZ    R1
2616 64FF                 IORI,R0 $FF     ;
2618 F5E0                 TMI,R1  $E0     ;
261A 9805                 BCFR,EQ NOCTK   ;
261C 7780                 PPSL    $80     ;
261E 7550                 CPSL    $50     ;
2620 17                   RETC,UN         ;
2621 75D0         NOCTK   CPSL    $D0     ;
2623 17                   RETC,UN         ;
2624                              ;
2624 01           CHANGE  LODZ    R1      ;
2625 1C204B               BCTA,EQ COMD    ;
2628 3F2399               BSTA,UN IPADD   ;
262B A501                 SUBI,R1 $1      ;
262D 3F21A9               BSTA,UN FWDX    ;
2630 3F223F               BSTA,UN MTCA    ;
2633 3F2192               BSTA,UN ERASE   ;
2636 3F21EE               BSTA,UN FINDND  ;
2639 0C0A00               LODA,R0 CURA    ;
263C CC0A08               STRA,R0 CBGA    ;0A08
263F 0C0A01               LODA,R0 CURA+1  ;
2642 CC0A09               STRA,R0 CBGA+1  ;0A09
2645 0500                 LODI,R1 $0      ;
2647 3F45C9       DISPL   BSTA,UN IPCR    ;
264A 0C813B               LODA,R0 *CURIT  ;
264D F40F                 TMI,R0  $F      ;
264F 3C2192               BSTA,EQ ERASE   ;
2652 0E0008               LODA,R2 CHGA    ;0A08
2655 CE0A06               STRA,R2 BSA1    ;0A06
2658 0F0009               LODA,R3 CHGA+1  ;
265B 0C8008       DISPLP  LODA,R0 *CHGA   ;0A08
265E 1E27D8               BCTA,LT ENDCHG  ;
2661 E40D                 COMI,R0 CR      ;
2663 1812                 BCTR,EQ ELFND   ;
2665 3F458D               BSTA,UN WRT     ;
2668 0401                 LODI,R0 $1      ;
266A 0608                 LODI,R2 $8      ;
266C 3F2406               BSTA,UN ADDANY  ;
266F EC0004               COMA,R0 IBST    ;
2672 1A67                 BCTR,LT DISPLP  ;
2674 1F27D8               BCTA,UN ENDCHG  ;
2677 CF0009       ELFND   STRA,R3 CHGA+1  ;0A09
267A 0F0A06               LODA,R3 BSA1    ;
267D CC0A08               STRA,R0 CBGA    ;
2680 3F45C9               BSTA,UN IPCR    ;
2683 3F4703       CHGL    BSTA,UN GETKB   ;
2686 E408                 COMI,R0 BS      ;
2688 1805                 BCTR,EQ NOCHBS  ;
268A 3F27E0               BSTA,UN CHBACK  ;27
268D 1B74                 BCTR,UN CHGL    ;
268F E409         NOCHBS  COMI,R0 HT      ;
2691 9815                 BCFR,EQ NOHT    ;
2693 3F2438               BSTA,UN TABSUB  ;
2696 186B                 BCTR,EQ CHGL    ;
2698 CF0A06       TABL3   STRA,R3 BSA1    ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 15

269B 0720                 LODI,R3 ' '     ;
269D 3F27A0               BSTA,UN STRTMS  ;
26A0 0F0A06               LODA,R3 BSA1    ;
26A3 FB73                 BDRR,R3 TABL3   ;
26A5 1F2683               BCTA,UN CHGL    ;
26A8 E415         NOHT    COMI,R0 CTRLY   ;
26AA 980A                 BCFR,EQ NOCOPY  ;
26AC 3F2789               BSTA,UN LOADD   ;
26AF 1852                 BCTR,EQ CHGL    ;
26B1 3F27A0               BSTA,UN STRTMS  ;
26B4 3B4D                 BSTR,UN CHGL    ;
26B6 E415         NOCOPY  COMI,R0 CTRLY   ;
26B8 9826                 BCFR,EQ NOCWD   ;
26BA 3F2789       CWD1    BSTA,UN LOADD   ;
26BD 1844                 BCTR,EQ CHGL    ;
26BF E720                 COMI,R3 $20     ;
26C1 9818                 BCFR,EQ CWD3    ;
26C3 3F27A0               BSTA,UN STRTMS  ;
26C6 1B72                 BCTR,UN CWD1    ;
26C8 0F8683       CWD2    LODA,R3 *CHGL   ;
26CB E720                 COMI,R3 $20     ;
26CD 1C2683               BCTA,EQ CHGL    ;2683
26D0 E72E                 COMI,R3 '.'     ;
26D2 1C2683               BCTA,EQ CHGL    ;
26D5 3F2789               BSTA,UN LOADD   ;
26D8 1C2683               BCTA,EQ CHGL    ;
26DB 3F27A0       CWD3    BSTA,UN STRTMS  ;
26DE 3B68                 BSTR,UN CWD2    ;
26E0 E40E         NOCWD   COMI,R0 CTRLN   ;
26E2 9835                 BCFR,EQ NOERWD  ;95     35
26E4 CD0A0B               STRA,R1 CHGST+1 ;2A0B
26E7 0C0A04               LODA,R0 TMPA    ;
26EA CC0A0A               STRA,R0 CHGST   ;
26ED 060A         ERWD1   LODI,R2 $A      ;
26EF 0401                 LODI,R0 $1      ;
26F1 3F23B5               BSTA,UN SUBANY  ;
26F4 0C8A0A               LODA,R0 *CHGST  ;
26F7 E420                 COMI,R0 $20     ;
26F9 9819                 BCFR,EQ ERWD3   ;
26FB 3F27E0               BSTA,UN CHBACK  ;27E0
26FE 1B14                 BCTR,UN ERWD3   ;
2700 060A         ERWD2   LODI,R2 $A      ;
2702 0401                 LODI,R0 $1      ;
2704 3F23B5               BSTA,UN SUBANY  ;
2707 0C8A0A               LODA,R0 *CHGST  ;
270A E420                 COMI,R0 $20     ;
270C 1C2683               BCTA,EQ CHGL    ;
270F E42E                 COMI,R0 '.'     ;
2711 1C2683               BCTA,EQ CHGL    ;2683
2714 3F27E0       ERWD3   BSTA,UN CHBACK  ;
2717 1B67                 BCTR,UN ERWD2   ;
2719 E410         NOERWD  COMI,R0 CTRLP   ;
271B 980B                 BCFR,EQ NOCEOL  ;
271D 3F2789       COPYLP  BSTA,UN LOADD   ;
2720 1C2683               BCTA,EQ CHGL    ;
2723 3F27A0               BSTA,UN STRTMS  ;
2726 1B75                 BCTR,UN COPYLP  ;
2728 E40F         NOCEOL  COMI,R0 CTRLO   ;
272A 9806                 BCFR,EQ NOD1SC  ;
272C 3F2789               BSTA,UN LOADD   ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 16

272F 1F2683               BCTA,UN CHGL    ;2683
2732 C3           NOD1SC  STRZ    R3      ;
2733 E403                 COMI,R0 ETX     ;
2735 1806                 BCTR,EQ BYPASS  ;
2737 3F2608               BSTA,UN CKCTRL  ;
273A 1E2683               BCTA,LT CHGL    ;
273D 3F27A4       BYPASS  BSTA,UN STRT2   ;
2740 03                   LODZ    R3      ;
2741 E40D                 COMI,R0 CR      ;
2743 180F                 BCTR,EQ ENDCHL  ;
2745 E403                 COMI,R0 ETX     ;
2747 9C2683               BCFA,EQ CHGL    ;
274A 0401                 LODI,R0 $1      ;
274C 0602                 LODI,R2 $2      ;
274E 3F23B5               BSTA,UN SUBANY  ;
2751 3F275F               BSTA,UN ENDCB   ;
2754 3F2789       ENDCHL  BSTA,UN LOADD   ;
2757 987B                 BCFR,EQ ENDCHL  ;
2759 3F278F               BSTA,UN A1SC    ;
275C 1F265B               BCTA,UN DISPLP  ;
275F                              ;
275F 0C0A02       ENDCB   LODA,R0 DUMA    ;
2762 CC0A06               STRA,R0 BSA1    ;
2765 0C0A03               LODA,R0 DUMA+1  ;
2768 CC0A07               STRA,R0 BSA1+1  ;
276B 0C0008               LODA,R0 CHGA    ;
276E CC0A02               STRA    ,R0     DUMA    ;
2771 0C0009               LODA,R0 CHGA+1  ;
2774 CC0A03               STRA    ,R0     DUMA+1  ;
2777 3F23DF               BSTA,UN SHIF    ;
277A 0C0A06               LODA,R0 BSA1    ;
277D CC0A02               STRA,R0 DUMA    ;
2780 0C0A07               LODA,R0 BSA1+1  ;
2783 CC0A03               STRA,R0 DUMA+1  ;2A07
2786 3F2300               BSTA,UN ENDI    ;
2789                              ;
2789 0F8008       LOADD   LODA,R3 *CHGA   ;
278C E70D                 COMI,R3 CR      ;
278E 14                   RETC,EQ         ;
278F 0401         A1SC    LODI,R0 $1      ;
2791 0602                 LODI,R2 $2      ;
2793 3F23B5               BSTA,UN SUBANY  ;
2796 0401                 LODI,R0 $1      ;
2798 0608                 LODI,R2 $8      ;
279A 3F2406               BSTA,UN ADDANY  ;
279D 0480                 LODI,R0 $80     ;
279F 17                   RETC,UN         ;
27A0                              ;
27A0 03           STRTMS  LODZ    R3      ;
27A1 3F458D               BSTA,UN WRT     ;
27A4 03           STRT2   LODZ    R3      ;
27A5 CDEA04               STRA,R0 *TMPA,R1        ;
27A8 0401                 LODI,R0 $1      ;
27AA 0602                 LODI,R2 $2      ;
27AC 3F2406               BSTA,UN ADDANY  ;
27AF EC0004               COMA,R0 IBST    ;
27B2 1A0B                 BCTR,LT A1R1    ;
27B4 3F2373               BSTA,UN S1DA    ;2373
27B7 04FE                 LODI,R0 $FE     ;
27B9 CC0A03               STRA,R0 DUMA+1  ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 17

27BC 1F27D8               BCTA,UN ENDCHG  ;
27BF D90D         A1R1    BIRR,R1 RETCN   ;
27C1 0401                 LODI,R0 $1      ;
27C3 8C0A04               ADDA,R0 TMPA    ;
27C6 EC0006               COMA,R0 ENDRAM  ;
27C9 9A04                 BCFR,LT ABRUBT  ;
27CB CC0A04               STRA,R0 TMPA    ;
27CE 17           RETCN   RETC,UN         ;
27CF 0401         ABRUBT  LODI,R0 $1      ;
27D1 0602                 LODI    ,R2     $2      ;
27D3 3F23B5               BSTA,UN SUBANY  ;
27D6 05FF                 LODI,R1 $FF     ;
27D8 0403         ENDCHG  LODI,R0 ETX     ;
27DA CDEA04               STRA,R0 *TMPA,R1        ;
27DD 1F275F               BCTA,UN ENDCB   ;275F
27E0                              ;
27E0 3F4518       CHBACK  BSTA,UN BACK1   ;
27E3 16                   RETC,LT         ;
27E4 0401                 LODI,R0 $1      ;
27E6 0602                 LODI,R2 $2      ;
27E8 3F23B5               BSTA,UN SUBANY  ;
27EB 17                   RETC,UN         ;
27EC                              ;
27EC              LOADLS  DS      3       ;
27EF                              ;
27EF 3F2E0A       LOADL   BSTA,UN AOK     ;2E0A
27F2 3F2D9F               BSTA,UN LOADA   ;2D9F
27F5 1C27FB               BCTA,EQ SCERR   ;RELATIVE
27F8 1F2048               BCTA,UN FBDN    ;2048
27FB                              ;
27FB 0710         SCERR   LODI,R3 $10     ;
27FD 1F4501               BCTA,UN ERROR   ;
2800                              ;
2800 3F2E0A       TAPEO   BSTA,UN AOK     ;2E0A
2803 0C0003               LODA,R0 BSTART  ;2003
2806 CC0A02               STRA,R0 DUMA    ;
2809 20           TAPEOT  EORZ    R0
280A C8B7                 STRR,R0 *SUMK   ;
280C CC0A02               STRA,R0 DUMA    ;2A03
280F 073B                 LODI,R3 ';'     ;
2811 3F024F               BSTA,UN SERO    ;
2814 05FF                 LODI,R1 $FF     ;
2816 0D201E       NAM0    LODA,R0 NAMEX,R1,+      ;
2819 C3                   STRZ    R3      ;
281A 3F024F               BSTA,UN SERO    ;
281D E407                 COMI,R0 $7      ;
281F 9875                 BCFR,EQ NAM0    ;
2821 0BA0                 LODR,R3 *SUMK   ;
2823 3F024F               BSTA,UN SERO    ;
2826 0500                 LODI,R1 $0      ;
2828 C999                 STRR,R1 *SUMK   ;
282A 0DEA02       BYTE0   LODA,R0 *DUMA,R1        ;
282D C3                   STRZ    R3      ;
282E 1A15                 BCTR,LT ENDO    ;
2830 3F024F               BSTA,UN SERO    ;
2833 D975                 BIRR,R1 BYTE0   ;
2835 0B8C                 LODR,R3 *SUMK   ;
2837 3F024F               BSTA,UN SERO    ;
283A 3F21D9               BSTA,UN A1DA    ;
283D 9E2048               BCFA,LT FBDN    ;2048   4048

VACS 2650 Cross Assembler V1.24i/w32                                           Page 18

2840 9E2048               BCFA,LT FBDN    ;
2843                              ;
2843 17F9         SUMK    DW      $17F9   ;(37F9)
2845                              ;
2845 3F024F       ENDO    BSTA,UN SERO    ;
2848 0BF9         ENDT    LODR,R3 *SUMK   ;
284A 3F024F               BSTA,UN SERO    ;
284D 1F2048               BCTA,UN FBDN    ;
2850              
2850 4C4C4C4C5353 OPCD1   DB      'LLLLSSSAAAASSSSDAAAAIIIIEEEECCCCRRBBBBBBBBBBZ'
287D 424242424242         DB      'BBBBBBBZBRRWRWRWRHNTLLSSCCPPTTOEDAREAPBBDT'
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7              
28A7 4F4F4F4F5454 OPCD2   DB      'OOOOTTTDDDDUUUUANNNNCOOOOOOOOOOORRCCCCRRIIDDF'
28D4 495353535353         DB      'ISSSSSSBSEERERERFAOMPPPPPPPPPPROACENLRLUIA'
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE              
28FE 444444445252 OPCD3   DB      'DDDDRRRDDDDBBBBRDDDDRRRRRRRRMMMMRLTTFFNNERRRR'
292B 41545446464E         DB      'ATTFFNNSXTTTDTDTDLPISSSSSSSSSSGUTOSDINKMSP'
2955              
2955              
2955              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 19

2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955              
2955 5A4952415A52 OPCD4   DB      'ZIRAZRAZIRAZIRA ZIRAZIRAZIRAZIRA  RARARARARAR'
2982 205241524152         DB      ' RARARARACEDDCCEET  ULULULULUL  AN  TTSPPE'
29AC                      
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC              
29AC 0004080CC0C8 OPCD5   DB      $00,$04,$08,$0C,$C0,$C8,$CC,$80,$84,$88,$8C,$A0,$A4,$A8,$AC
29BB 944044484C60         DB      $94,$40,$44,$48,$4C,$60,$64,$68,$6C,$20,$24,$28,$2C,$E0,$E4
29CA E8EC50D0181C         DB      $E8,$EC,$50,$D0,$18,$1C,$98,$9C,$58,$5C,$D8,$DC,$F8,$FC,$9B
29D9 9F383CB8BC78         DB      $9F,$38,$3C,$B8,$BC,$78,$7C,$BB,$BF,$14,$34,$F0,$70,$B0,$30
29E8 D45440C0F492         DB      $D4,$54,$40,$C0,$F4,$92,$93,$12,$12,$74,$75,$76,$77,$B4,$B5
29F7              
29F7                      
29F7              
29F7              
29F7              
29F7                      
29F7              
29F7              
29F7              
29F7              
29F7              
29F7                      
29F7              
29F7              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 20

29F7              
29F7              
29F7              
29F7              PASS    DS      1       
29F8              LTBL    DS      2
29FA              OUTOFF  DS      1
29FB              DISPON  DS      1
29FC              BPPC    DS      1
29FD              COMAST  DS      1
29FE              BPTR    DS      1
29FF              SPTR    DS      1
2A00              CURA    DS      2
2A02              DUMA    DS      1
2A03              DUM2    DS      1
2A04              TMPA    DS      1
2A05              TEMP2   DS      1
2A06              BSA1    DS      2
2A08              CBGA    DS      2
2A0A              CHGST   DS      2
2A0C              PAGEN   DS      2
2A0E              BUMPON  DS      1
2A0F              DISPLN  DS      1
2A10              BLKSON  DS      1
2A11              TAPEON  DS      1
2A12              SECB    DS      2
2A14              OBPTR   DS      2
2A16              LINE    DS      2
2A18              TXTBUF  DS      $51
2A69              
2A69              BYTSTG  DS      $100
2B69 = 0000004B   ORGP    EQU     $4B
2B69 = 0000004C   EQUP    EQU     $4C
2B69 = 0000004D   DATAP   EQU     $4D
2B69 = 0000004E   ACONP   EQU     $4E
2B69 = 0000004F   RESP    EQU     $4F
2B69 = 00000050   ENDP    EQU     $50
2B69 = 00000051   ALITP   EQU     $51
2B69 = 00000052   PRNTP   EQU     $52
2B69 = 00000054   BUMPP   EQU     $54
2B69 = 00000056   TAPEP   EQU     $56
2B69 = 00000055   TCPCOM  EQU     $55     ;EXCHGE MET TAPEP?
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              
2B69              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 21

2B69              
2B69              
2B69              
2B69              
2B69 3F2192       ASM     BSTA,UN ERASE
2B6C 20           PASS1   EORZ    R0
2B6D CC09F7               STRA,R0 PASS
2B70 CC0D7C               STRA,R0 BLKSIN
2B73 CC1980               STRA,R0 PC
2B76 CC1981               STRA,R0 PC+1
2B79 CC09F9               STRA,R0         LTBL+1
2B7C CC0A68               STRA,R0 TXTBUF+$50
2B7F CC0F14               STRA,R0 ERRS
2B82 3F2259               BSTA,UN BEGIN
2B85 0C0004               LODA,R0 IBST
2B88 CC09F8               STRA,R0 LTBL
2B8B 04FF                 LODI,R0 $FF
2B8D CC0A0E               STRA,R0 BUMPON
2B90 CC09FF               STRA,R0 SPTR
2B93 CC09FE               STRA,R0 BPTR
2B96 CC0E5F               STRA,R0 ERRPTR
2B99 CC89F8               STRA,R0 *LTBL
2B9C 0511                 LODI,R1 $11
2B9E 3F46C7               BSTA,UN PSTRNG
2BA1 3F2259               BSTA,UN BEGIN
2BA4 3F2D21       LOOP    BSTA,UN NEXT
2BA7 0C0A18               LODA,R0 TXTBUF
2BAA E42A                 COMI,R0 '*'
2BAC 1876                 BCTR,EQ LOOP    ; COMMENT
2BAE 3F2E15               BSTA,UN FIND    ; SEARCH CHAR
2BB1 E555                 COMI,R1 TCPCOM
2BB3 196F                 BCTR,GT LOOP
2BB5 E550                 COMI,R1 ENDP    ;PROCESS END STATEMENT
2BB7 1C3073               BCTA,EQ PASS2
2BBA E54B                 COMI,R1 ORGP    ;PROCESS ORG STATEMENT
2BBC 3C2D0F               BSTA,EQ ORGX
2BBF 0C0A18               LODA,R0 TXTBUF
2BC2 E420                 COMI,R0 ' '
2BC4 3C2C0E               BSTA,EQ NOLB
2BC7 04FF                 LODI,R0 $FF
2BC9 CC0FF4               STRA,R0 TMPS2
2BCC 0406                 LODI,R0 $06
2BCE CC0FF3               STRA,R0 R2POS
2BD1 3F3016               BSTA,UN TBL2
2BD4 3C2CA4               BSTA,EQ ERRMT
2BD7 07FF                 LODI,R3 $FF
2BD9 0E09FF               LODA,R2 SPTR
2BDC 0506                 LODI,R1 $06
2BDE 0F2A18       NXTL    LODA,R0 TXTBUF,R3,+
2BE1 CEA9F8               STRA,R0 *LTBL,R2,+      ;PROCESS LABEL
2BE4 F978                 BDRR,R1 NXTL
2BE6 0C1980               LODA,R0 PC
2BE9 CEA9F8               STRA,R0 *LTBL,R2,+
2BEC 0C1981               LODA,R0 PC+1
2BEF CEA9F8               STRA,R0 *LTBL,R2,+
2BF2 E6FF                 COMI,R2 $FF
2BF4 9810                 BCFR,EQ ENDLB
2BF6 3F2C98               BSTA,UN A1LT
2BF9 1A0B                 BCTR,LT ENDLB
2BFB 040D                 LODI,R0 CR

VACS 2650 Cross Assembler V1.24i/w32                                           Page 22

2BFD 3F46C7               BSTA,UN PSTRNG
2C00 3F46F7               BSTA,UN PAUSE
2C03 1F2030               BCTA,UN EDITOR  
2C06 CE09FF       ENDLB   STRA,R2 SPTR
2C09 04FF                 LODI,R0 $FF
2C0B CEA9F8               STRA,R0 *LTBL,R2,+
2C0E 0D0E14       NOLB    LODA,R1 OPPOS
2C11 0C0E13               LODA,R0 OPCODE
2C14 E54B                 COMI,R1 ORGP  '; PROCESS ORG SATEMENT
2C16 1E2C8E               BCTA,LT ADDPC
2C19 E54C                 COMI,R1 EQUP
2C1B 9828                 BCFR,EQ EQU1
2C1D 3F2F15               BSTA,UN GETADD
2C20 0E09FF               LODA,R2 SPTR
2C23 E6FF                 COMI,R2 $FF
2C25 9808                 BCFR,EQ NOTZ
2C27 0C09F8               LODA,R0 LTBL
2C2A A401                 SUBI,R0 $1
2C2C CC09F8               STRA,R0 LTBL
2C2F A602         NOTZ    SUBI,R2 $2
2C31 0C1014               LODA,R0 OPER2
2C34 CEA9F8               STRA,R0 *LTBL,R2,+
2C37 0C1015               LODA,R0 OPER3
2C3A CCA9F8               STRA,R0 *LTBL,+
2C3D E6FF                 COMI,R2 $FF
2C3F 3C2C98       A1BACK  BSTA,EQ A1LT
2C42 1F2BA4               BCTA,UN LOOP
2C45 E54F         EQU1    COMI,R1 RESP ;RES STATEMENT
2C47 9807                 BCFR,EQ DATA1
2C49 3F2CB6               BSTA,UN FINDCM
2C4C 03                   LODZ    R3
2C4D 1F2C91               BCTA,UN EASY
2C50 E54F         DATA1   COMI,R1 RESP
2C52 9813                 BCFR,EQ RES1
2C54 3F2F15               BSTA,UN GETADD  ;GET ADDRESS
2C57 0C1014               LODA,R0 OPER2
2C5A 8C1980               ADDA,R0 PC
2C5D 447F                 ANDI,R0 $7F
2C5F CC1980               STRA,R0 PC
2C62 0C1015               LODA,R0 OPER3
2C65 1B2A                 BCTR,UN         EASY
2C67 E54E         RES1    COMI,R1 ACONP  ; PROCESS ACON
2C69 9807                 BCFR,EQ ACON1
2C6B 3F2CB6               BSTA,UN FINDCM
2C6E 03                   LODZ    R3
2C6F D0                   RRL,R0
2C70 1B1F                 BCTR,UN         EASY
2C72 E551         ACON1   COMI,R1 ALITP  ; PROCES ALIT STATEMENT
2C74 9C2BA4               BCFA,EQ LOOP
2C77 0511                 LODI,R1 $11
2C79 0D2A18               LODA,R0 TXTBUF,R1,+
2C7C CC0C97               STRA,R0 ALDEL
2C7F 0D2A18       NCALE1  LODA,R0 TXTBUF,R1,+
2C82 1805                 BCTR,EQ ALFND1
2C84 EC0C97               COMA,R0 ALDEL
2C87 9876                 BCFR,EQ NCALE1
2C89 A513         ALFND1  SUBI,R1 $13
2C8B 01                   LODZ    R1
2C8C 1B03                 BCTR,UN EASY
2C8E 3F2CDA       ADDPC   BSTA,UN ADDLN   

VACS 2650 Cross Assembler V1.24i/w32                                           Page 23

2C91 3F2CFB       EASY    BSTA,UN APC
2C94 1F2BA4               BCTA,UN LOOP    
2C97              
2C97              
2C97              
2C97              
2C97              ALDEL   DS      $1
2C98              
2C98 0401         A1LT    LODI,R0 $1
2C9A 8C09F8               ADDA,R0 LTBL
2C9D CC09F8               STRA,R0         LTBL
2CA0 EC0005               COMA,R0 OBST
2CA3 17                   RETC,UN
2CA4                      
2CA4 0515         ERRMT   LODI,R1 $15
2CA6 3F46C7               BSTA,UN PSTRNG
2CA9 05FF                 LODI,R1 $FF
2CAB 0606                 LODI,R2 6
2CAD 0D2A18       ERRMT2  LODA,R0 TXTBUF,R1,+
2CB0 3F458D               BSTA,UN WRT
2CB3 FA78                 BDRR,R2 ERRMT2
2CB5 17                   RETC,UN
2CB6                      
2CB6 0701         FINDCM  LODI,R3 $1
2CB8 0512                 LODI,R1 $12
2CBA 0D2A18       DAT1A   LODA,R0 TXTBUF,R1,+
2CBD 14                   RETC,EQ
2CBE E420                 COMI,R0 ' '
2CC0 14                   RETC,EQ
2CC1 E42C                 COMI,R0         ','
2CC3 9875                 BCFR,EQ DAT1A
2CC5 8701                 ADDI,R3 1
2CC7 1B71                 BCTR,UN DAT1A
2CC9                      
2CC9 050D         OFFON   LODI,R1 13
2CCB 0D6A18               LODA,R0 TXTBUF,R1
2CCE 3F478C               BSTA,UN LTOU
2CD1 E446                 COMI,R0 'F'
2CD3 1802                 BCTR,EQ OFFFF
2CD5 20                   EORZ    R0
2CD6 17                   RETC,UN
2CD7 040F         OFFFF   LODI,R0 $F
2CD9 17                   RETC,UN
2CDA                      
2CDA 50           ADDLN   RRR,R0
2CDB 50                   RRR,R0
2CDC E405                 COMI,R0 $5
2CDE 1808                 BCTR,EQ SUBLN
2CE0 E40D                 COMI,R0 CR
2CE2 1804                 BCTR,EQ SUBLN
2CE4 E425                 COMI,R0 $25
2CE6 9801                 BCFR,EQ NOCL
2CE8 20           SUBLN   EORZ    R0
2CE9 C3           NOCL    STRZ    R3
2CEA 4707                 ANDI,R3 $7
2CEC CB0B                 STRR,R3 TYPE
2CEE 4703                 ANDI,R3 $3
2CF0 E401                 COMI,R0 1
2CF2 1902                 BCTR,GT SLRE
2CF4 8401                 ADDI,R0 1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 24

2CF6 C802         SLRE    STRR,R0 LENT
2CF8 17                   RETC,UN
2CF9                      
2CF9              TYPE    DS      1
2CFA              LENT    DS      1
2CFB              
2CFB 8C1981       APC     ADDA,R0 PC+1
2CFE CC1981               STRA,R0 PC+1
2D01 7708                 PPSL    WC
2D03 20                   EORZ    R0
2D04 8C1980               ADDA,R0 PC
2D07 447F                 ANDI,R0 $7F
2D09 CC1980               STRA,R0 PC
2D0C 7508                 CPSL    WC
2D0E 17                   RETC,UN
2D0F                      
2D0F 3F2F15       ORGX    BSTA,UN GETADD   ; GET ADDRESS  FOR ORG STATEMENT
2D12 0C1014               LODA,R0 OPER2
2D15 CC1980               STRA,R0 PC
2D18 0C1015               LODA,R0         OPER3
2D1B CC1981               STRA,R0 PC+1
2D1E 17                   RETC,UN
2D1F                      
2D1F              NEXTS   DS      2
2D21              
2D21 70           NEXT    REDD,R0 ;TOETSENBORD ?
2D22 447F                 ANDI,R0 $7F
2D24 E41B                 COMI,R0 ESC
2D26 1C2030               BCTA,EQ EDITOR  
2D29 07FF                 LODI,R3 $FF
2D2B 0D09FE               LODA,R1 BPTR
2D2E 0DAA00       NEXT4   LODA,R0 *CURA,R1,+
2D31 0E0A0E               LODA,R2 BUMPON
2D34 3C478C               BSTA,EQ LTOU    ;CAN DIT OOK MET BSFA?
2D37 E70F                 COMI,R3 $0F
2D39 3E478C               BSTA,LT LTOU
2D3C E7FF                 COMI,R3 $FF
2D3E 3C478C               BSTA,EQ LTOU
2D41 CF2A18               STRA,R0 TXTBUF,R3,+
2D44 60                   LODZ    R0      ; 00 ALS OPCODE EORZ?  (60)
2D45 1E2D6D               BCTA,LT NBI
2D48 E5FF                 COMI,R1 $FF
2D4A 980D                 BCFR,EQ NXTCK
2D4C 0E0A00               LODA,R2 CURA  ; (OF GURA?)
2D4F 8601                 ADDI,R2 1
2D51 EE0006               COMA,R2 ENDRAM
2D54 1817                 BCTR,EQ NBI
2D56 CE0A00               STRA,R2 CURA
2D59 E40D         NXTCK   COMI,R0 CR
2D5B 1808                 BCTR,EQ NEXTF
2D5D E750                 COMI,R3 $50   ;P
2D5F 1A4D                 BCTR,LT NEXT4
2D61 074F                 LODI,R3 $4F
2D63 1B49                 BCTR,UN NEXT4
2D65 20           NEXTF   EORZ    R0
2D66 CF6A18               STRA,R0 TXTBUF,R3
2D69 CD09FE               STRA,R1 BPTR
2D6C 17                   RETC,UN
2D6D                      
2D6D                      

VACS 2650 Cross Assembler V1.24i/w32                                           Page 25

2D6D 3F2D7D       NBI     BSTA,UN NEWBLK
2D70 3F2259               BSTA,UN BEGIN
2D73 05FF                 LODI,R1 $FF
2D75 CD09FE               STRA,R1 BPTR
2D78 1F2D21               BCTA,UN NEXT
2D7B                      
2D7B                      
2D7B              R2STG   DS      1
2D7C              BLKSIN  DS      1
2D7D              
2D7D CA7C         NEWBLK  STRR,R2 R2STG
2D7F 051E                 LODI,R1 $1E
2D81 3F46C7               BSTA,UN PSTRNG
2D84 3F46F7               BSTA,UN PAUSE
2D87 E41B                 COMI,R0 ESC
2D89 1F2030               BCTA,UN EDITOR
2D8C 3F2259               BSTA,UN BEGIN
2D8F 3F2D9F               BSTA,UN LOADA
2D92 9C27FB               BCFA,EQ sCERR
2D95 3F2E0A               BSTA,UN AOK
2D98 0401                 LODI,R0 1
2D9A C860                 STRR,R0 BLKSIN
2D9C 0A5D                 LODR,R2 R2STG
2D9E 17                   RETC,UN
2D9F                      
2D9F                      
2D9F 3F2264       LOADA   BSTA,UN MTDA
2DA2 20           WAIT    EORZ    R0
2DA3 CC8843               STRA,R0 *SUMK
2DA6 3F02E9               BSTA,UN SERI
2DA9 E73B                 COMI,R3 ';'
2DAB 9875                 BCFR,EQ WAIT    ; LOOP
2DAD 05FF                 LODI,R1 $FF
2DAF 3F02E9       NAML    BSTA,UN SERI
2DB2 0D201E               LODA,R0 NAMEX,R1,+
2DB5 1803                 BCTR,EQ OVERSI
2DB7 E3                   COMZ    R3
2DB8 9868                 BCFR,EQ WAIT
2DBA E507         OVERSI  COMI,R1 $7
2DBC 9871                 BCFR,EQ NAML
2DBE 3F02E9               BSTA,UN SERI
2DC1 0C8843               LODA,R0 *SUMK
2DC4 16                   RETC,LT
2DC5 15                   RETC,GT
2DC6 0D0A03               LODA,R1 DUM2
2DC9 CC0A03               STRA,R0 DUM2
2DCC CC002E               STRA,R0 TMPS
2DCF 3F02E9       ASCIIX  BSTA,UN SERI
2DD2 03                   LODZ    R3
2DD3 CDEA02               STRA,R0 *DUMA,R1
2DD6 1A2B                 BCTR,LT ENDING
2DD8 D912                 BIRR,R1 LL1
2DDA 3F21D9               BSTA,UN A1DA
2DDD 1A0D                 BCTR,LT LL1
2DDF 3F2373               BSTA,UN S1DA
2DE2 05FF                 LODI,R1 $FF
2DE4 0483                 LODI,R0 EBC     ; IS DIT WEL GOED ?
2DE6 CDEA02               STRA,R0 *DUMA,R1
2DE9 1F241D               BCTA,UN TMF
2DEC 0E002E       LL1     LODA,R2 TMPS

VACS 2650 Cross Assembler V1.24i/w32                                           Page 26

2DEF 8601                 ADDI,R2 1
2DF1 CE002E               STRA,R2 TMPS
2DF4 9859                 BCFR,EQ ASCIIX
2DF6                      
2DF6 3F02E9       ENDTP   BSTA,UN SERI
2DF9 CD0A03               STRA,R1 DUM2
2DFC 0F8843               LODA,R3 *SUMK
2DFF 1C2DA2               BCTA,EQ WAIT
2E02 17                   RETC,UN
2E03                      
2E03 3F02E9       ENDING  BSTA,UN SERI
2E06 0C8843               LODA,R0 *SUMK
2E09 17                   RETC,UN
2E0A                      
2E0A 051F         AOK     LODI,R1 $1F
2E0C 3F46CA               BSTA,UN PRING
2E0F 3F462F               BSTA,UN ERAS1
2E12 17                   RETC,UN 
2E13                      
2E13              
2E13              OPCODE  DS      1
2E14              OPPOS   DS      1
2E15              
2E15 05FF         FIND    LODI,R1 $FF
2E17 0706         FIND1   LODI,R3 $6
2E19 0F2A18               LODA,R0 TXTBUF,R3,+
2E1C ED2850               COMA,R0 OPCD1,R1,+
2E1F 9824                 BCFR,EQ FIND2
2E21 0F2A18               LODA,R0 TXTBUF,R3,+
2E24 ED68A7               COMA,R0 OPCD2,R1
2E27 981C                 BCFR,EQ FIND2
2E29 0F2A18               LODA,R0 TXTBUF,R3,+
2E2C ED68FE               COMA,R0 OPCD3,R1
2E2F 9814                 BCFR,EQ FIND2
2E31 0D6955               LODA,R0 OPCD4,R1
2E34 E420                 COMI,R0 ' '
2E36 1805                 BCTR,EQ FIND3
2E38 EF2A18               COMA,R0 TXTBUF,R3,+
2E3B 9808                 BCFR,EQ FIND2
2E3D 0D69AC       FIND3   LODA,R0         OPCD5,R1
2E40 C851                 STRR,R0 OPCODE
2E42 C950                 STRR,R1 OPPOS
2E44 17                   RETC,UN
2E45 E555         FIND2   COMI,R1 TCPCOM
2E47 994E                 BCFR,GT FIND1
2E49 C949                 STRR,R1 OPPOS
2E4B 0400                 LODI,R0 0       ;EORZ ?
2E4D 1B19                 BCTR,UN ERRW
2E4F                      
2E4F 0402         ERRMO   LODI,R0 2
2E51 1B15                 BCTR,UN ERRW
2E53 0403         ERRMR   LODI,R0 3
2E55 1B11                 BCTR,UN ERRW
2E57 0403         ERRMD   LODI,R0 3
2E59 1B0D                 BCTR,UN ERRW
2E5B 0405         ERRMP   LODI,R0 5
2E5D 1B09                 BCTR,UN ERRW
2E5F              
2E5F              ERRPTR  DS      1
2E60              ERRSTK  DS      $8

VACS 2650 Cross Assembler V1.24i/w32                                           Page 27

2E68                      
2E68              
2E68 0A75         ERRW    LODR,R2 ERRPTR
2E6A E607                 COMI,R2 $7
2E6C 14                   RETC,EQ
2E6D CE2E60               STRA,R0 ERRSTK,R2,+
2E70 CA6D                 STRR,R2 ERRPTR
2E72 0C0F14               LODA,R0 ERRS
2E75 8467                 ADDI,R0 $67
2E77 94                   DAR,R0
2E78 CC0F14               STRA,R0 ERRS
2E7B 0C09F7               LODA,R0 PASS
2E7E 14                   RETC,EQ
2E7F 20                   EORZ    R0
2E80 CC09FB               STRA,R0 DISPON
2E83 17                   RETC,UN 
2E84              
2E84 0E0E5F       ERRP    LODA,R2 ERRPTR
2E87 16                   RETC,LT
2E88 0E6E60               LODA,R0 ERRSTK,R2
2E8B A601                 SUBI,R2 1
2E8D CE0E5F               STRA,R2 ERRPTR
2E90 C2                   STRZ    R2
2E91 3F3246               BSTA,UN PLN
2E94 054E                 LODI,R1 PMSG4-PRTBUF
2E96 3F364B               BSTA,UN BLKPRT
2E99 0500                 LODI,R1 0
2E9B 07FF                 LODI,R3 $FF
2E9D 01           ERRW4   LODZ    R1
2E9E E2                   COMZ    R2
2E9F 1809                 BCTR,EQ ERRW2
2EA1 0F384D       ERRW3   LODA,R0 MSG16,R3,+
2EA4 9A7B                 BCFR,LT ERRW3
2EA6 8501                 ADDI,R1 1
2EA8 1B73                 BCTR,UN ERRW4
2EAA 0F384D       ERRW2   LODA,R0 MSG16,R3,+
2EAD 9A05                 BCFR,LT ERRW5
2EAF 3F3570               BSTA,UN PRNT
2EB2 1B76                 BCTR,UN ERRW2
2EB4 0553         ERRW5   LODI,R1 PMSG5-PRTBUF
2EB6 3F364B               BSTA,UN BLKPRT
2EB9 0C13F0               LODA,R0 PLINE
2EBC 8401                 ADDI,R0 1
2EBE CC13F0               STRA,R0 PLINE
2EC1 E436                 COMI,R0 $36
2EC3 3D35B9               BSTA,GT HEADIN
2EC6 1F2E84               BCTA,UN ERRP
2EC9                      
2EC9                      
2EC9 0C09FA       CHKPR   LODA,R0 OUTOFF
2ECC 14                   RETC,EQ
2ECD 0C09FB               LODA,R0 DISPON
2ED0 17                   RETC,UN
2ED1                      
2ED1                      
2ED1 4F50434F4445 EMSG2   DB      'OPCODE',$FF
2ED8              
2ED8              
2ED8 4C4142454C20         DB      'LABEL USED TWICE',$FF
2EE9              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 28

2EE9              
2EE9 4F504552414E         DB      'OPERAND',$FF
2EF1              
2EF1              
2EF1 524547495354         DB      'REGISTER FIELD',$FF
2F00              
2F00              
2F00 444953504C41         DB      'DISPLACEMENT',$FF
2F0D              
2F0D              
2F0D 504147494E47         DB      'PAGING',$FF
2F14                      
2F14              
2F14              
2F14              
2F14              
2F14              
2F14              
2F14              
2F14              ERRS    DS      1
2F15              
2F15 0511         GETADD  LODI,R1 $11
2F17 CD0FF4       GETAD2  STRA,R1 TMPS2
2F1A 20                   EORZ    R0      ; 0 OF 2
2F1B CC0F8B               STRA,R0 OPSTG
2F1E CC1014               STRA,R0 OPER2
2F21 CC1015               STRA,R0 OPER3
2F24 3F2F8C       ADL2A   BSTA,UN EVAL
2F27 0C0F8B               LODA,R0 OPSTG
2F2A 1C2F4D               BCTA,EQ ADDADD
2F2D E42B                 COMI,R0 $2B
2F2F 181C                 BCTR,EQ ADDADD
2F31 E42D                 COMI,R0 $2D
2F33 982E                 BCFR,EQ SUBADD
2F35 0C1015               LODA,R0 OPER3
2F38 AC1013               SUBA,R0 OPER1
2F3B CC1015               STRA,R0 OPER3
2F3E 0C1014               LODA,R0 OPER2
2F41 7708                 PPSL    WC
2F43 AC1012               SUBA,R0 OPER0
2F46 CC1014               STRA,R0 OPER2
2F49 7508                 CPSL    WC
2F4B 1B16                 BCTR,UN SUBADD
2F4D 0C1015       ADDADD  LODA,R0 OPER3
2F50 8C1013               ADDA,R0 OPER1
2F53 CC1015               STRA,R0 OPER3
2F56 7708                 PPSL    WC
2F58 0C1014               LODA,R0 OPER2
2F5B 8C1012               ADDA,R0 OPER0
2F5E CC1014               STRA,R0 OPER2
2F61 7508                 CPSL    WC
2F63 0D0FF3       SUBADD  LODA,R1 R2POS
2F66 CD0FF4               STRA,R1 TMPS2
2F69 0D6A18               LODA,R0 TXTBUF,R1
2F6C 180D                 BCTR,EQ CKHIG
2F6E E42C                 COMI,R0 ','
2F70 1809                 BCTR,EQ CKHIG
2F72 E420                 COMI,R0 ' '
2F74 1805                 BCTR,EQ CKHIG
2F76 C813                 STRR,R0 OPSTG

VACS 2650 Cross Assembler V1.24i/w32                                           Page 29

2F78 1F2F24               BCTA,UN ADL2A
2F7B 0511         CKHIG   LODI,R1 $11
2F7D 0D6A18               LODA,R0 TXTBUF,R1
2F80 E45E                 COMI,R0 '^'
2F82 15                   RETC,GT
2F83 16                   RETC,LT
2F84 0C1014               LODA,R0 OPER2
2F87 CC1015               STRA,R0 OPER3
2F8A 17                   RETC,UN
2F8B                      
2F8B              OPSTG   DS      1
2F8C              
2F8C 0D0FF4       EVAL    LODA,R1 TMPS2
2F8F 0D2A18       LU      LODA,R0 TXTBUF,R1,+
2F92 1810                 BCTR,EQ STRR2
2F94 E420                 COMI,R0 ' '
2F96 180C                 BCTR,EQ STRR2
2F98 E42D                 COMI,R0 $2D     ; minus -
2F9A 1808                 BCTR,EQ STRR2
2F9C E42B                 COMI,R0 $2B     ; PLUS +
2F9E 1804                 BCTR,EQ STRR2
2FA0 E42C                 COMI,R0 ','
2FA2 986B                 BCFR,EQ LU
2FA4 CD0FF3       STRR2   STRA,R1 R2POS
2FA7 0D0FF4               LODA,R1 TMPS2
2FAA 0D2A18               LODA,R0 TXTBUF,R1,+
2FAD E424                 COMI,R0 '$'
2FAF 180D                 BCTR,EQ CKASCI
2FB1 0C1980               LODA,R0 PC
2FB4 CC1012               STRA,R0 OPER0
2FB7 0C1981               LODA,R0 PC+1
2FBA CC1013               STRA,R0 OPER1
2FBD 17                   RETC,UN 
2FBE 20           CKASCI  EORZ    R0
2FBF CC1012               STRA,R0 OPER0
2FC2 CC1013               STRA,R0 OPER1
2FC5 0D6A18               LODA,R0 TXTBUF,R1
2FC8 E427                 COMI,R0 $27     ;$27 = '
2FCA 980C                 BCFR,EQ LOOKUP
2FCC 0D2A18               LODA,R0 TXTBUF,R1,+
2FCF CC1013               STRA,R0 OPER1
2FD2 8502                 ADDI,R1 2
2FD4 CD0FF3               STRA,R1 R2POS
2FD7 17                   RETC,UN
2FD8 3F3016       LOOKUP  BSTA,UN TBL2
2FDB 14                   RETC,EQ
2FDC 0916                 LODR,R1 TMPS2
2FDE 0D2A18       BYTE2   LODA,R0 TXTBUF,R1,+
2FE1 3F478C               BSTA,UN LTOU
2FE4 E90D                 COMR,R1 R2POS
2FE6 14                   RETC,EQ
2FE7 0710                 LODI,R3 $10
2FE9 EF56AC       BL2     COMA,R0 HXTBL,R3,-  ;LOOKUP HEX VALUE
2FEC 1807                 BCTR,EQ HEXMAT
2FEE 5B79                 BRNR,R3 BL2
2FF0 1F2E4F               BCTA,UN ERRMO
2FF3                      
2FF3              R2POS   DS      1
2FF4              TMPS2   DS      1
2FF5              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 30

2FF5 CB7D         HEXMAT  STRR,R3 TMPS2
2FF7 0819                 LODR,R0 OPER0
2FF9 0B18                 LODR,R3 OPER1
2FFB 7708                 PPSL    WC
2FFD D3                   RRL,R3
2FFE D0                   RRL,R0
2FFF D3                   RRL,R3
3000 D0                   RRL,R0
3001 D3                   RRL,R3
3002 D0                   RRL,R0
3003 D3                   RRL,R3
3004 D0                   RRL,R0
3005 7508                 CPSL    WC
3007 47F0                 ANDI,R3 $F0
3009 6B69                 IORR,R3 TMPS2
300B CB06                 STRR,R3 OPER1
300D C803                 STRR,R0 OPER0
300F 1F2FDE               BCTA,UN BYTE2
3012                      
3012              OPER0   DS      1       
3013              OPER1   DS      1
3014              OPER2   DS      1
3015              OPER3   DS      1
3016                      
3016 3F2399       TBL2    BSTA,UN IPADD
3019 07FF                 LODI,R3 $FF
301B 0957         TBL2A   LODR,R1 TMPS2
301D 0FAA04       TBL3    LODA,R0 *TMPA,R3,+
3020 16                   RETC,LT
3021 A701                 SUBI,R3 1
3023 0D2A18               LODA,R0 TXTBUF,R1,+
3026 3F478C               BSTA,UN LTOU
3029 ED0FF3               COMA,R1 R2POS
302C 1810                 BCTR,EQ STROP
302E EFAA04               COMA,R0 *TMPA,R3,+
3031 186A                 BCTR,EQ TBL3
3033 47F8         TBL4    ANDI,R3 $F8
3035 8707                 ADDI,R3 $7
3037 E7FF                 COMI,R3 $FF
3039 3C23CC               BSTA,EQ A1TA
303C 1B5D                 BCTR,UN TBL2A
303E 03           STROP   LODZ    R3
303F 4407                 ANDI,R0 $7
3041 E405                 COMI,R0 5
3043 9A09                 BCFR,LT ADDIN
3045 0FAA04               LODA,R0 *TMPA,R3,+
3048 E420                 COMI,R0 ' '
304A 9867                 BCFR,EQ TBL4
304C 1B70                 BCTR,UN STROP
304E 0FAA04       ADDIN   LODA,R0 *TMPA,R3,+
3051 CC1012               STRA,R0 OPER0
3054 0FAA04               LODA,R0 *TMPA,R3,+
3057 CC1013               STRA,R0 OPER1
305A 20                   EORZ    R0
305B 17                   RETC,UN
305C                      
305C 0401         CCK2    LODI,R0 1
305E 8C09FD               ADDA,R0 COMAST
3061 CC09FD               STRA,R0 COMAST
3064 0D0FF3               LODA,R1 R2POS

VACS 2650 Cross Assembler V1.24i/w32                                           Page 31

3067 0D6A18               LODA,R0 TXTBUF,R1
306A E42C                 COMI,R0 ','
306C 16                   RETC,LT
306D 15                   RETC,GT
306E 3F2F17               BSTA,UN GETAD2
3071 20                   EORZ    R0
3072 17                   RETC,UN
3073              
3073              
3073              
3073              
3073 04FF         PASS2   LODI,R0 $FF
3075 CC09F7               STRA,R0 PASS
3078 20           PASS2A  EORZ    R0
3079 CC0A0F               STRA,R0 DISPLN
307C CC1980               STRA,R0 PC
307F CC1981               STRA,R0 PC+1
3082 CC0A16               STRA,R0 LINE
3085 CC0A17               STRA,R0 LINE+1
3088 CC0A15               STRA,R0 OBPTR+1
308B CC0A0C               STRA,R0 PAGEN
308E CC0A0D               STRA,R0 PAGEN+1
3091 CC09FC               STRA,R0 BPPC
3094 04FF                 LODI,R0 $FF
3096 CC09FA               STRA,R0 OUTOFF
3099 CC09FB               STRA,R0 DISPON
309C CC09FE               STRA,R0 BPTR
309F 0C0005               LODA,R0 OBST
30A2 CC0A14               STRA,R0 OBPTR
30A5 04FF                 LODI,R0 $FF
30A7 CC0A11               STRA,R0 TAPEON
30AA CC0A10               STRA,R0 BLKSON
30AD 0402                 LODI,R0 2
30AF CC13F1               STRA,R0 HEXOST
30B2 3F3420               BSTA,UN HEXOS
30B5 0512                 LODI,R1 $12
30B7 3F46C7               BSTA,UN PSTRNG
30BA 3F463C               BSTA,UN EROLD
30BD 3F2259               BSTA,UN BEGIN
30C0 0C0D7C               LODA,R0 BLKSIN
30C3 BC2D7D               BSFA,EQ NEWBLK
30C6 20           P2NXT   EORZ    R0
30C7 CC09FD               STRA,R0 COMAST
30CA CC09FC               STRA,R0 BPPC
30CD CC1220               STRA,R0 RESBUF+2
30D0 04FF                 LODI,R0 $FF
30D2 CC13F2               STRA,R0 BYTSP
30D5 CC0E5F               STRA,R0 ERRPTR
30D8 3F2D21               BSTA,UN NEXT
30DB 0C0A18               LODA,R0 TXTBUF
30DE E42A                 COMI,R0 '*'
30E0 1C3378               BCTA,EQ NEXTLZ  ;
30E3 3F2E15               BSTA,UN FIND
30E6 E455                 COMI,R0 TCPCOM
30E8 1D3378               BCTA,GT NEXTLZ
30EB E54C                 COMI,R1 EQUP
30ED 1C3378               BCTA,EQ NEXTLZ
30F0 E450                 COMI,R0 ENDP
30F2 1C3515               BCTA,EQ P2END
30F5 E553                 COMI,R1 BLKSP

VACS 2650 Cross Assembler V1.24i/w32                                           Page 32

30F7 9809                 BCFR,EQ BLKS2
30F9 3F2CC9               BSTA,UN OFFON
30FC CC0A10               STRA,R0 BLKSON
30FF 1F30C6               BCTA,UN P2NXT
3102 E556         BLKS2   COMI,R1 TAPEP
3104 9809                 BCFR,EQ TAPE2
3106 3F2CC9               BSTA,UN OFFON   ;REMARK: MUST BE BCTA ?
3109 CC0A11               STRA,R0 TAPEON
310C 1F30C6               BCTA,UN P2NXT
310F E555         TAPE2   COMI,R1 DISPP
3111 9815                 BCFR,EQ BUMP2
3113 3F2CC9               BSTA,UN OFFON
3116 CC09FB               STRA,R0 DISPON
3119 1E30C6               BCTA,LT P2NXT
311C 3F45C9               BSTA,UN IPCR
311F 0C09FA               LODA,R0 OUTOFF
3122 3E35B9               BSTA,LT HEADIN
3125 1F30C6               BCTA,UN P2NXT
3128 E554         BUMP2   COMI,R1 BUMPP
312A 9809                 BCFR,EQ DISP2
312C 3F2CC9               BSTA,UN OFFON
312F CC0A0E               STRA,R0 BUMPON
3132 1F30C6               BCTA,UN P2NXT
3135 E54B         DISP2   COMI,R1 ORGP
3137 9809                 BCFR,EQ ORG2
3139 3F2D0F               BSTA,UN ORGX
313C 3F3420               BSTA,UN HEXOS
313F 1F3378               BCTA,UN NEXTLZ
3142 E552         ORG2    COMI,R1 PRNTP
3144 981E                 BCFR,EQ PRNT2
3146 3F2CC9               BSTA,UN OFFON
3149 CC09FA               STRA,R0 OUTOFF
314C 1808                 BCTR,EQ PRNT1
314E 04F0                 LODI,R0 $F0
3150 3F200A               BSTA,UN DPRINT
3153 1F30C6               BCTA,UN P2NXT
3156 04F8         PRNT1   LODI,R0 $F8
3158 3F200A               BSTA,UN DPRINT
315B 0E09FB               LODA,R2 DISPON
315E 3F35B9               BSTA,UN HEADIN
3161 1F30C6               BCTA,UN P2NXT
3164 E54B         PRNT2   COMI,R1 ORGP
3166 1E327E               BCTA,LT P2
3169 E551                 COMI,R1 ALITP
316B 9823                 BCFR,EQ ALIT2
316D 0511                 LODI,R1 $11
316F 0D2A18               LODA,R0 TXTBUF,R1,+
3172 CC0C97               STRA,R0 ALDEL
3175 0D2A18       NOALE2  LODA,R0 TXTBUF,R1,+
3178 1810                 BCTR,EQ ALDN2
317A EC0C97               COMA,R0         ALDEL
317D 180B                 BCTR,EQ ALDN2
317F CD0FF3               STRA,R1 R2POS
3182 3F33F3               BSTA,UN HEXOUT
3185 0D0FF3               LODA,R1 R2POS
3188 1B6B                 BCTR,UN NOALE2
318A A513         ALDN2   SUBI,R1 $13
318C 01                   LODZ    R1
318D 1F3379               BCTA,UN NEXTL ; NEXTLINE ?
3190 3F2F15       ALIT2   BSTA,UN GETADD

VACS 2650 Cross Assembler V1.24i/w32                                           Page 33

3193 0D0E14               LODA,R1 OPPOS
3196 E54D                 COMI,R1 DATAP
3198 9811                 BCFR,EQ DATA2
319A 0C1015       DAT2A   LODA,R0 OPER3
319D 3F33F3               BSTA,UN HEXOUT
31A0 3F305C               BSTA,UN CCK2
31A3 1875                 BCTR,EQ DAT2A
31A5 0C09FD               LODA,R0 COMAST
31A8 1F3379               BCTA,UN NEXTL ; 
31AB E54E         DATA2   COMI,R1 ACONP
31AD 9818                 BCFR,EQ ACON2
31AF 0C1014       ACON2A  LODA,R0 OPER2
31B2 3F33F3               BSTA,UN HEXOUT
31B5 0C1015               LODA,R0 OPER3
31B8 3F33F3               BSTA,UN HEXOUT
31BB 3F305C               BSTA,UN CCK2
31BE 186F                 BCTR,EQ ACON2A
31C0 0C09FD               LODA,R0 COMAST
31C3 D0                   RRL,R0
31C4 1F3379               BCTA,UN NEXTL
31C7 E54F         ACON2   COMI,R1 RESP
31C9 9C3216               BCFA,EQ ADDP2
31CC 0C1014               LODA,R0 OPER2
31CF 182D                 BCTR,EQ RES4
31D1 0C1980               LODA,R0 PC
31D4 CC121E               STRA,R0 RESBUF
31D7 0C1981               LODA,R0 PC+1
31DA CC121F               STRA,R0 RESBUF+1
31DD 04FF                 LODI,R0 $FF
31DF CC1220               STRA,R0 RESBUF+2
31E2 0C1015               LODA,R0 OPER3
31E5 8C1981               ADDA,R0 PC+1
31E8 CC1981               STRA,R0 PC+1
31EB 7708                 PPSL    WC
31ED 0C1014               LODA,R0 OPER2
31F0 8C1980               ADDA,R0 PC
31F3 CC1980               STRA,R0 PC
31F6 7508                 CPSL    WC
31F8 3F3420               BSTA,UN HEXOS
31FB 1F3379               BCTA,UN NEXTL
31FE 0D1015       RES4    LODA,R1 OPER3
3201 1F3379               BCTA,UN NEXTL
3204 CD121D       RES3    STRA,R1 RESSTG
3207 20                   EORZ    R0
3208 3F33F3               BSTA,UN HEXOUT
320B 0D121D               LODA,R1 RESSTG
320E F974                 BDRR,R1 RES3
3210 0E1015               LODA,R2 OPER3
3213 1F3379               BCTA,UN NEXTL
3216 0C0CFA       ADDP2   LODA,R0 LENT
3219 1F3379               BCTA,UN NEXTL
321C                      
321C                      
321C              R1STG   DS      1
321D              RESSTG  DS      1
321E              RESBUF  DS      3       
3221                      
3221 3F3246       PRTLN   BSTA,UN PLN
3224 087A                 LODR,R0 RESBUF+2
3226 1B0F                 BCTR,UN PRNT3

VACS 2650 Cross Assembler V1.24i/w32                                           Page 34

3228 0C121E               LODA,R0 RESBUF
322B 3F3558               BSTA,UN PRINT
322E 0C121F               LODA,R0 RESBUF+1
3231 3F3558               BSTA,UN PRINT
3234 3F356E               BSTA,UN PRBL
3237 0C1980       PRNT3   LODA,R0 PC
323A 3F3558               BSTA,UN PRINT
323D 0C1981               LODA,R0 PC+1
3240 3F3558               BSTA,UN PRINT
3243 1F356E               BCTA,UN PRBL
3246                      
3246 0C0A17       PLN     LODA,R0 LINE+1
3249 8467                 ADDI,R0 $67
324B 94                   DAR,R0
324C CC0A17               STRA,R0 LINE+1
324F 7708                 PPSL    WC
3251 0466                 LODI,R0 $66
3253 8C0A16               ADDA,R0 LINE
3256 94                   DAR,R0
3257 CC0A16               STRA,R0 LINE
325A 7508                 CPSL    WC
325C 3F3558               BSTA,UN PRINT
325F 0C0A17               LODA,R0 LINE+1
3262 3F3558               BSTA,UN PRINT
3265 3F356E               BSTA,UN PRBL
3268 1F356E               BCTA,UN PRBL
326B                      
326B CD0FF4       CC      STRA,R1 TMPS2
326E 8503                 ADDI,R1 3
3270 CD0FF3               STRA,R1 R2POS
3273 3F3016               BSTA,UN TBL2
3276 3E2E53               BSTA,LT ERRMR
3279 0C1013               LODA,R0 OPER1
327C 1B24                 BCTR,UN SPEC1
327E                      
327E 050A         P2      LODI,R1 $A
3280 0D6A18               LODA,R0 TXTBUF,R1
3283 E420                 COMI,R0 ' '
3285 1804                 BCTR,EQ P2A
3287 050C                 LODI,R1 $C
3289 1B02                 BCTR,UN P2B
328B 050B         P2A     LODI,R1 $B      
328D 070C         P2B     LODI,R3 $C      
328F 0D6A18               LODA,R0 TXTBUF,R1
3292 A501                 SUBI,R1 1
3294 E420                 COMI,R0 ' '
3296 1808                 BCTR,EQ SPEC0
3298 E430                 COMI,R0 '0'
329A 1A4F                 BCTR,LT CC
329C E433                 COMI,R0 '3'
329E 194B                 BCTR,GT CC
32A0 4403         SPEC0   ANDI,R0 3
32A2 6C0E13       SPEC1   IORA,R0 OPCODE
32A5 3F33F3               BSTA,UN HEXOUT
32A8 0C0E13               LODA,R0 OPCODE
32AB 3F2CDA               BSTA,UN ADDLN
32AE 0C0CF9               LODA,R0 TYPE
32B1 4403                 ANDI,R0 3
32B3 1C3216               BCTA,EQ ADDP2
32B6 E401                 COMI,R0 1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 35

32B8 980C                 BCFR,EQ ADDRX
32BA 3F2F15               BSTA,UN GETADD
32BD 0C1015               LODA,R0 OPER3
32C0 3F33F3               BSTA,UN HEXOUT
32C3 1F3216               BCTA,UN ADDP2
32C6 3F2F15       ADDRX   BSTA,UN GETADD
32C9 0C0CF9               LODA,R0 TYPE
32CC F403                 TMI,R0  3
32CE 1C3322               BCTA,EQ ABSBR
32D1 0402                 LODI,R0 2
32D3 3F35A7               BSTA,UN APCTA
32D6 0C0E13               LODA,R0 OPCODE
32D9 E4BB                 COMI,R0 $BB
32DB 1804                 BCTR,EQ ZERORL
32DD E49B                 COMI,R0 $9B
32DF 9807                 BCFR,EQ NOZERO
32E1 20           ZERORL  EORZ    R0
32E2 CC0A04               STRA,R0 TMPA
32E5 CC0A05               STRA,R0 TMPA+1
32E8 0C1014       NOZERO  LODA,R0 OPER2
32EB 2C0A04               EORA,R0 TMPA
32EE 4460                 ANDI,R0 $60
32F0 BC3336               BSFA,EQ ABSX
32F3 0D1015               LODA,R1 OPER3
32F6 AD0A05               SUBA,R1 TMPA+1
32F9 7708                 PPSL    WC
32FB 0C1014               LODA,R0 OPER2
32FE AC0A04               SUBA,R0 TMPA
3301 7508                 CPSL    WC
3303 1805                 BCTR,EQ TB2
3305 F4FF                 TMI,R0  $FF
3307 BC2E57               BSFA,EQ ERRMD
330A 01           TB2     LODZ    R1
330B F4C0                 TMI,R0  $C0
330D 1808                 BCTR,EQ TTZ
330F 24FF                 EORI,R0 $FF
3311 F4C0                 TMI,R0  $C0
3313 BC2E57               BSFA,EQ ERRMD
3316 01                   LODZ    R1
3317 C3           TTZ     STRZ    R3
3318 3F3507               BSTA,UN INDIR
331B 03                   LODZ    R3
331C 3F33F3               BSTA,UN HEXOUT
331F 1F3216               BCTA,UN ADDP2
3322 0F1014       ABSBR   LODA,R3 OPER2
3325 3F3507               BSTA,UN INDIR
3328 0C0CF9               LODA,R0 TYPE
332B E403                 COMI,R0 3
332D 1807                 BCTR,EQ ABSX
332F 03                   LODZ    R3
3330 3F33F3               BSTA,UN HEXOUT
3333 1F336E               BCTA,UN BYTET
3336 03           ABSX    LODZ    R3
3337 2C1980               EORA,R0 PC
333A 4460                 ANDI,R0 $60
333C BC3336               BSFA,EQ ABSX
333F 479F                 ANDI,R3 $9F
3341 0D0FF3               LODA,R1 R2POS
3344 0D6A18               LODA,R0 TXTBUF,R1
3347 1821                 BCTR,EQ NOIND

VACS 2650 Cross Assembler V1.24i/w32                                           Page 36

3349 E42C                 COMI,R0 ','
334B 981D                 BCFR,EQ NOIND
334D 0D2A18               LODA,R0 TXTBUF,R1,+
3350 3F478C               BSTA,UN LTOU
3353 E42B                 COMI,R0 $2B  ;"+ "
3355 9804                 BCFR,EQ NOPLUS
3357 6720                 IORI,R3 $20
3359 1B0F                 BCTR,UN NOIND
335B E42D         NOPLUS  COMI,R0 $2d  ;"- "
335D 9804                 BCFR,EQ NOMINU
335F 6740                 IORI,R3 $40
3361 1B07                 BCTR,UN NOIND
3363 E449         NOMINU  COMI,R0 'I'
3365 BC2E4F               BSFA,EQ ERRMO
3368 6760                 IORI,R3 $60
336A 03           NOIND   LODZ    R3
336B 3F33F3               BSTA,UN HEXOUT
336E 0C1015       BYTET   LODA,R0 OPER3
3371 3F33F3               BSTA,UN HEXOUT
3374 1F3216               BCTA,UN ADDP2
3377                      
3377              NEXTLS  DS      1
3378                      
3378 20           NEXTLZ  EORZ    R0
3379 C87C         NEXTL   STRR,R0 NEXTLS
337B 040D                 LODI,R0 CR
337D 3F3570               BSTA,UN PRNT
3380 040A                 LODI,R0 LF
3382 3F3570               BSTA,UN PRNT
3385 3F2EC9               BSTA,UN CHKPR
3388 9C33E6               BCFA,EQ NEXTL4
338B 3F2E84               BSTA,UN ERRP
338E 3F3221               BSTA,UN PRTLN
3391 06FF                 LODI,R2 $FF
3393 3F34F1               BSTA,UN PRTDB
3396 0F09FC               LODA,R3 BPPC
3399 E703         BL3     COMI,R3 3
339B 190B                 BCTR,GT PRTLM
339D 3F356E               BSTA,UN PRBL
33A0 3F356E               BSTA,UN PRBL
33A3 3F356E               BSTA,UN PRBL
33A6 DB71                 BIRR,R3 BL3
33A8 05FF         PRTLM   LODI,R1 $FF
33AA 0D2A18       PRTNX   LODA,R0 TXTBUF,R1,+
33AD 1805                 BCTR,EQ GOON2
33AF 3F3570               BSTA,UN PRNT
33B2 3B76                 BSTR,UN PRTNX
33B4 0603         GOON2   LODI,R2 3
33B6 0C13F0       GOON    LODA,R0 PLINE
33B9 8401                 ADDI,R0 1
33BB CC13F0               STRA,R0 PLINE
33BE E436                 COMI,R0 $36
33C0 3D35B9               BSTA,GT HEADIN
33C3 0C09FC               LODA,R0 BPPC
33C6 E405                 COMI,R0 5
33C8 1A1F                 BCTR,LT NEXTL6
33CA A404                 SUBI,R0 4
33CC CC09FC               STRA,R0 BPPC
33CF 0404                 LODI,R0 4
33D1 3F2CFB               BSTA,UN APC

VACS 2650 Cross Assembler V1.24i/w32                                           Page 37

33D4 040D                 LODI,R0 CR
33D6 3F3570               BSTA,UN PRNT
33D9 040A                 LODI,R0 LF
33DB 3F3570               BSTA,UN PRNT
33DE 3F3221               BSTA,UN PRTLN
33E1 3F34F1               BSTA,UN PRTDB
33E4 1B50                 BCTR,UN GOON
33E6 0C1377       NEXTL4  LODA,R0 NEXTLS
33E9 3F2CFB       NEXTL6  BSTA,UN APC
33EC 1F30C6               BCTA,UN P2NXT
33EF                      
33EF              BLESO   DS      1
33F0              PLINE   DS      1
33F1              HEXOST  DS      1
33F2              BYTSP   DS      1
33F3              
33F3              
33F3              
33F3              
33F3 0F0A10       HEXOUT  LODA,R3 BLKSON
33F6 980B                 BCFR,EQ NODIRL
33F8 C1                   STRZ    R1
33F9 0C09FC               LODA,R0 BPPC
33FC 3F34C8               BSTA,UN APCDA
33FF 01                   LODZ    R1
3400 CC8A02               STRA,R0 *DUMA
3403 0E13F1       NODIRL  LODA,R2 HEXOST
3406 CEAA14               STRA,R0 *OBPTR,R2,+
3409 CE13F1               STRA,R2 HEXOST
340C 0D13F2               LODA,R1 BYTSP
340F CD2A69               STRA,R0 BYTSTG,R1,+
3412 CD13F2               STRA,R1 BYTSP
3415 0D09FC               LODA,R1 BPPC
3418 8501                 ADDI,R1 1
341A CD09FC               STRA,R1 BPPC
341D E6FF                 COMI,R2 $FF
341F 16                   RETC,LT
3420                              
3420 0E0A11       HEXOS   LODA,R2 TAPEON
3423 16                   RETC,LT
3424 0E13F1               LODA,R2 HEXOST
3427 E602                 COMI,R2 2
3429 1C34AB               BCTA,EQ HEX03
342C 02                   LODZ    R2
342D A403                 SUBI,R0 3
342F 9802                 BCFR,EQ HEXOS1
3431 0401                 LODI,R0 1
3433 0502         HEXOS1  LODI,R1 2
3435 CDEA14               STRA,R0 *OBPTR,R1
3438 0C0A14       HEXOS2  LODA,R0 OBPTR
343B 8401                 ADDI,R0 1
343D CC0A14               STRA,R0 OBPTR
3440 EC0006               COMA,R0 ENDRAM
3443 1E34AB               BCTA,LT HEX03
3446 051C         BINOT   LODI,R1 $1C
3448 3F46C7               BSTA,UN PSTRNG
344B 3F46F7               BSTA,UN PAUSE
344E E41B                 COMI,R0 ESC
3450 1F2030               BCTA,UN EDITOR
3453 3F34E6               BSTA,UN BINADD

VACS 2650 Cross Assembler V1.24i/w32                                           Page 38

3456 20           NBO     EORZ    R0
3457 CC8843               STRA,R0 *SUMK
345A 073A                 LODI,R3 ':'
345C 3F024F               BSTA,UN SERO
345F 05FF                 LODI,R1 $FF
3461 0DAA14       HEADO   LODA,R0 *OBPTR,R1,+
3464 C3                   STRZ    R3
3465 3F024F               BSTA,UN SERO
3468 E502                 COMI,R1 02
346A 9875                 BCFR,EQ HEADO
346C 0F8843               LODA,R3 *SUMK
346F 3F024F               BSTA,UN SERO
3472 3F0278               BSTA,UN DELAY
3475 CC8843               STRA,R0 *SUMK
3478 0DEA14               LODA,R0 *OBPTR,R1
347B 8403                 ADDI,R0 3
347D CC002E               STRA,R0 TMPS
3480 0DAA14       BITS0   LODA,R0 *OBPTR,R1,+
3483 C3                   STRZ    R3
3484 3F024F               BSTA,UN SERO
3487 ED002E               COMA,R1 TMPS
348A 9874                 BCFR,EQ BITS0
348C 0F8843               LODA,R3 *SUMK
348F 3F024F               BSTA,UN SERO
3492 0C002E               LODA,R0 TMPS
3495 E403                 COMI,R0 3
3497 1806                 BCTR,EQ BITS2
3499 3F34DA               BSTA,UN A1HT    ;RELATIVE ?
349C 1E3456               BCTA,LT NBO
349F 3F34E6       BITS2   BSTA,UN BINADD
34A2 3F2E0A               BSTA,UN AOK
34A5 0C0005               LODA,R0 OBST
34A8 CC0A14               STRA,R0 OBPTR
34AB 0C09FC       HEX03   LODA,R0 BPPC
34AE 3F35A7               BSTA,UN APCTA
34B1 06FF                 LODI,R2 $FF
34B3 0C0A04               LODA,R0 TMPA
34B6 CEAA14               STRA,R0 *OBPTR,R2,+
34B9 0C0A05               LODA,R0 TMPA+1
34BC CEAA14               STRA,R0 *OBPTR,R2,+
34BF 20                   EORZ    R0
34C0 CEAA14               STRA,R0 *OBPTR,R2,+
34C3 CE13F1               STRA,R2 HEXOST
34C6 17                   RETC,UN
34C7 C0                   NOP     ;BUG IN LISTING ? 2 X retc
34C8                      
34C8                      
34C8 8C1981       APCDA   ADDA,R0 PC+1
34CB CC0A03               STRA,R0 DUM2
34CE 7708                 PPSL    WC
34D0 20                   EORZ    R0
34D1 8C1980               ADDA,R0 PC
34D4 CC0A02               STRA,R0 DUMA
34D7 7508                 CPSL    WC
34D9 17                   RETC,UN
34DA              
34DA              
34DA 0C0A14       A1HT    LODA,R0 OBPTR
34DD 8401                 ADDI,R0 1
34DF CC0A14               STRA,R0 OBPTR

VACS 2650 Cross Assembler V1.24i/w32                                           Page 39

34E2 EC0006               COMA,R0 ENDRAM
34E5 17                   RETC,UN
34E6                      
34E6                      
34E6 0C0005       BINADD  LODA,R0 OBST
34E9 CC0A14               STRA,R0 OBPTR
34EC 20                   EORZ    R0
34ED CC0A15               STRA,R0 OBPTR+1
34F0 17                   RETC,UN
34F1                      
34F1 0D09FC       PRTDB   LODA,R1 BPPC
34F4 14                   RETC,EQ
34F5 E504                 COMI,R1 4
34F7 1A02                 BCTR,LT NEXTL3
34F9 0504                 LODI,R1 4
34FB 0E2A69       NEXTL3  LODA,R0 BYTSTG,R2,+
34FE 3F3558               BSTA,UN PRINT
3501 3F356E               BSTA,UN PRBL
3504 F975                 BDRR,R1 NEXTL3
3506 17                   RETC,UN
3507                      
3507                      
3507 477F         INDIR   ANDI,R3 $7F
3509 0511                 LODI,R1 $11
350B 0D6A18               LODA,R0 TXTBUF,R1
350E E42A                 COMI,R0 '*'
3510 16                   RETC,LT
3511 15                   RETC,GT
3512 6780                 IORI,R3 $80
3514 17                   RETC,UN 
3515                      
3515 3F45C9       P2END   BSTA,UN IPCR
3518 0C0A11               LODA,R0 TAPEON
351B 9C353F               BCFA,EQ P2D2
351E 0C13F1               LODA,R0 HEXOST
3521 A403                 SUBI,R0 03
3523 9802                 BCFR,EQ P2D1
3525 0401                 LODI,R0 1
3527 0602         P2D1    LODI,R2 2
3529 CEEA14               STRA,R0 *OBPTR,R2
352C 3F34DA               BSTA,UN A1HT
352F 9A08                 BCFR,LT NOZFR
3531 0603                 LODI,R2 03
3533 20                   EORZ    R0
3534 CECA14       ZFRLP   STRA,R0 *OBPTR,R2,-
3537 5A7B                 BRNR,R2 ZFRLP
3539 3F3446       NOZFR   BSTA,UN BINOT
353C 3F45C9               BSTA,UN IPCR
353F 0C0F14       P2D2    LODA,R0 ERRS
3542 3F474F               BSTA,UN HXOT
3545 0414                 LODI,R0 $14
3547 3F46CA               BSTA,UN PRING
354A 04F0                 LODI,R0 $F0
354C 0D09FA               LODA,R1 OUTOFF
354F 3C200A               BSTA,EQ DPRINT
3552 3F46F7               BSTA,UN PAUSE
3555 3F2030               BSTA,UN EDITOR
3558                      
3558 C3           PRINT   STRZ    R3
3559 50                   RRR,R0

VACS 2650 Cross Assembler V1.24i/w32                                           Page 40

355A 50                   RRR,R0
355B 50                   RRR,R0  
355C 50                   RRR,R0
355D 440F                 ANDI,R0 $0F
355F 0C76AC               LODA,R0 HXTBL,R0        ;
3562 3F3570               BSTA,UN PRNT
3565 470F                 ANDI,R3 $0F
3567 0F76AC               LODA,R0 HXTBL,R3
356A 3F3570               BSTA,UN PRNT
356D 17                   RETC,UN
356E                      
356E 0420         PRBL    LODI,R0 ' '
3570 7710         PRNT    PPSL    RS
3572 0D09FA               LODA,R1 OUTOFF
3575 9805                 BCFR,EQ CXDISP
3577 3F200A               BSTA,UN DPRINT
357A 7710                 PPSL    RS
357C 0D09FB       CXDISP  LODA,R1 DISPON
357F 1A0D                 BCTR,LT PRTRTN
3581 447F                 ANDI,R0 $7F
3583 E40D                 COMI,R0 CR
3585 9804                 BCFR,EQ DISP3
3587 3B08                 BSTR,UN LFCRST
3589 3B03                 BSTR,UN PRTRTN
358B 3F458D       DISP3   BSTA,UN WRT
358E 7510         PRTRTN  CPSL    RS
3590 17                   RETC,UN
3591              
3591 3F45C9       LFCRST  BSTA,UN IPCR
3594 0C0A0F               LODA,R0 DISPLN
3597 8401                 ADDI,R0 1
3599 CC0A0F               STRA,R0 DISPLN
359C E40F                 COMI,R0 $F
359E 16                   RETC,LT
359F 20                   EORZ    R0
35A0 CC0A0F               STRA,R0 DISPLN
35A3 3F46F7               BSTA,UN PAUSE
35A6 17                   RETC,UN
35A7                      
35A7 8C1981       APCTA   ADDA,R0 PC+1
35AA CC0A05               STRA,R0 TMPA+1
35AD 7708                 PPSL    WC
35AF 20                   EORZ    R0
35B0 8C1980               ADDA,R0 PC
35B3 CC0A04               STRA,R0 TMPA
35B6 7508                 CPSL    WC
35B8 17                   RETC,UN
35B9              
35B9              
35B9              
35B9 0502         HEADIN  LODI,R1 2
35BB CD13F0               STRA,R1 PLINE
35BE 3F364B               BSTA,UN BLKPRT
35C1 0C0A0D               LODA,R0 PAGEN+1
35C4 8467                 ADDI,R0 $67     
35C6 94                   DAR,R0
35C7 CC0A0D               STRA,R0 PAGEN+1
35CA 7708                 PPSL    WC
35CC 0C0A0C               LODA,R0 PAGEN
35CF 8466                 ADDI,R0 $66

VACS 2650 Cross Assembler V1.24i/w32                                           Page 41

35D1 94                   DAR,R0
35D2 CC0A0C               STRA,R0 PAGEN
35D5 7508                 CPSL    WC
35D7 3F3558               BSTA,UN PRINT
35DA 0E0A0D               LODA,R2 PAGEN+1
35DD 3F3558               BSTA,UN PRINT
35E0 040A                 LODI,R0 LF
35E2 3F3570               BSTA,UN PRNT
35E5 040D                 LODI,R0 CR
35E7 3F3570               BSTA,UN PRNT
35EA 17                   RETC,UN
35EB              
35EB              
35EB 0C0A0A0A0D   PRTBUF  DB      FORMF,LF,LF,LF,CR
35F0              
35F0 4C494E452020         DB      'LINE  ADDR B1 B2 B3 B4  LABEL  OPCODE    OPERAND'
3620              
3620              
3620              
3620              
3620              
3620              
3620              
3620              
3620              
3620              
3620              
3620 2020434F4D4D         DB      '  COMMENTS        PAGE  ',$FF
3639              
3639              
3639              
3639              
3639              
3639              
3639 2A2A2A20FF   PMSG4   db      '*** ',$FF
363E              
363E 204552524F52 PMSG5   db      ' ERROR ***',LF,CR,$FF
364B              
364B              
364B              
364B              
364B 0D75EB       BLKPRT  LODA,R0 PRTBUF,R1   ;
364E 16                   RETC,LT
364F 3F3570               BSTA,UN PRNT
3652 D977                 BIRR,R1 BLKPRT
3654 17                   RETC,UN
3655                      
3655 3F2192       BUG     BSTA,UN ERASE
3658 1F4290               BCTA,UN DCOMD
365B 3F2192       DEBUG   BSTA,UN ERASE
365E 3F414C               BSTA,UN AR
3661              
3661              
3661              
3661              
3661 70           TAB1    DB      INZERO-JADD1
3662 5E                   DB      INIM-JADD1
3663 65                   DB      INREL-JADD1
3664 00                   DB      INABS-JADD1
3665 15           TAB2    DB      CTZERO-JADD2

VACS 2650 Cross Assembler V1.24i/w32                                           Page 42

3666 03                   DB      OUTIM-JADD2
3667 00                   DB      OUTREL-JADD2
3668 00                   DB      OUTABS-JADD2
3669 6C           TAB3    DB      EX1-JADD3
366A 64                   DB      EX0-JADD3
366B 00                   DB      GREL-JADD3
366C 43                   DB      GABS-JADD3
366D                      
366D 00           TABEX0  DB      RETCX-JEX0
366E 05                   DB      RETEX-JEX0
366F 5E                   DB      REDEY-JEX0
3670 12                   DB      CPS-JEX0
3671 F7                   DB      DARX-JEX0
3672 34                   DB      TBS-JEX0
3673 92                   DB      WRTZ-JEX0
3674 40                   DB      TMIX-JEX0
3675                      
3675 10           TABEX1  DB      SPS-JEX1
3676 30                   DB      REDCX-JEX1
3677 00                   DB      RRRX-JEX1
3678 36                   DB      REDDX-JEX1
3679 20                   DB      LPS-JEX1
367A 7B                   DB      WRTCX-JEX1
367B 00                   DB      RRLX-JEX1
367C 81                   DB      WRTDX-JEX1
367D                      
367D 00           REDETB  DB      REDEI-REDEI
367E 05                   DB      REDE1-REDEI
367F 05                   DB      REDE1-REDEI
3680 19                   DB      REDB-REDEI
3681                      
3681 00           REDTAB  DB      RED0-RED0
3682 04                   DB      RED1-RED0
3683 04                   DB      RED1-RED0
3684 11                   DB      RED2-RED0
3685                      
3685 00           WRTETB  DB      WRTEX-WRTEX
3686 0F                   DB      WRTE1-WRTEX
3687 06                   DB      WRTE5-WRTEX
3688 06                   DB      WRTE5-WRTEX
3689                      
3689 00           WRTTB   DB      WRT1-WRT1
368A 05                   DB      WRT5-WRT1
368B 17                   DB      WRT4-WRT1
368C 17                   DB      WRT4-WRT1
368D                      
368D 7D           MODTAB  DB      DCOMD-OUT
368E 73                   DB      SI-OUT
368F 43                   DB      ST-OUT
3690 1F                   DB      TR-OUT
3691 62                   DB      SS-OUT
3692                      
3692 10119091B6B7 INVAL   DB      $10,$11,$90,$91,$B6,$B7,$C4,$C5,$C6,$C7
369C              
369C              
369C              
369C              
369C              
369C              
369C              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 43

369C              
369C              
369C              
369C              
369C 4A4C55494F4D KEYTAB  DB      'JLUIOM,.'
36A4              
36A4 FF01EFF0F10F KEY0    DB      $FF,$01,$EF,$F0,$F1,$0F,$10,$11
36AC              
36AC              
36AC              
36AC              
36AC              
36AC              
36AC              
36AC              
36AC 303132333435 HXTBL   DB      '0123456789ABCDEF'
36BC              
36BC              
36BC              
36BC              
36BC 00010102     ADRTAB  DB      $00,$01,$01,$02
36C0              
36C0              
36C0              
36C0              
36C0              
36C0 4348         comtb2  DB      'CH'
36C2 4166                 DW      CH
36C4 434F                 DB      'CO'
36C6 4000                 DW      CO
36C8 4449                 DB      'DI'
36CA 4388                 DW      DDIS
36CC 4453                 DB      'DS'
36CE 3F75                 DW      DSBUG
36D0 494E                 DB      'IN'
36D2 4098                 DW      IN
36D4 5041                 DB      'PA'
36D6 4359                 DW      DPAGE
36D8 5043                 DB      'PC'
36DA 4341                 DW      PCIT
36DC 5245                 DB      'RE'
36DE 4194                 DW      RE
36E0 4141                 DB      'AA'
36E2 4146                 DW      AA
36E4 4150                 DB      'AP'
36E6 4134                 DW      AP
36E8 4152                 DB      'AR'
36EA 414C                 DW      AR
36EC 4153                 DB      'AS'
36EE 4152                 DW      AS
36F0 4950                 DB      'IP'
36F2 40DD                 DW      IP
36F4 4952                 DB      'IR'
36F6 40D5                 DW      IRIT
36F8 4953                 DB      'IS'
36FA 40D9                 DW      IS
36FC 4F41                 DB      'OA'
36FE 40E9                 DW      OA
3700 4F53                 DB      'OS'
3702 40E5                 DW      OS

VACS 2650 Cross Assembler V1.24i/w32                                           Page 44

3704 4F52                 DB      'OR'
3706 40E1                 DW      OR
3708 5349                 DB      'SI'
370A 430F                 DW      CSI
370C 5354                 DB      'ST'
370E 4317                 DW      CST
3710 5452                 DB      'TR'
3712 4349                 DW      CTR
3714 4252                 DB      'BR'
3716 3E69                 DW      BR
3718 434C                 DB      'CL'
371A 3E43                 DW      CLIT
371C 4558                 DB      'EX'
371E 3ED1                 DW      EX
3720 5255                 DB      'RU'
3722 2B6C                 DW      PASS1
3724 4544                 DB      'ED'
3726 2030                 DW      EDITOR
3728 FF                   DB      $FF
3729                      
3729              
3729              
3729              
3729 494E50555420 MSG0    DB      'INPUT PORT ',$FF
3735 4F5554505554 MSG1    DB      'OUTPUT PORT ',$Ff
3742 425245414B20 MSG2    DB      'BREAK POINT ',$FF
374F 20434C454152 MSG3    DB      ' CLEARED',$FF
3758 535441434B3D MSG4    DB      'STACK= ',$FF
3760 20494E56414C MSG5    DB      ' INVALID COMMAND',$FF
3771 44454255473E MSG6    DB      'DEBUG> ',$FF
3779 50524F475241 MSG7    DB      'PROGRAM HALTED',$FF
3788 205245414348 MSG8    DB      ' REACHED AT ',$FF
3795 494E56414C49 MSG9    DB      'INVALID OPCODE',$FF
37A4 2043433DFF   MSGA    DB      ' CC=',$FF
37A9 2020494E5641 MSGB    DB      '  INVALID HEX VALUE',$FF
37BD 424C4F434B53 MSGC    DB      'BLOCKS  LEFT:  ',$FF
37CD 544F4F204D55 MSGD    DB      'TOO MUCH',$FF
37D6 4E4F5420464F MSGE    DB      'NOT FOUND',$FF
37E0 4D4F44494659 MSGF    DB      'MODIFY STRING ',$FF
37EF              MNAME   DS      $10
37FF 2020544F2020 MSG102  DB      '  TO  ',$FF   ;CHECK THIS
3806 434845434B53 MSG10   DB      'CHECKSUM ERROR',$FF
3815 504153532031 MSG11   DB      'PASS 1',$FF
381C 504153532032 MSG12   DB      'PASS 2',$FF
3823 53594D424F4C MSG13   DB      'SYMBOL OVERFLOW',$FF
3833 204552524F52 MSG14   DB      ' ERRORS',$FF
383B 4455504C4943 MSG15   DB      'DUPLICATE LABLE: ',$FF
384D 4F50434F4445 MSG16   DB      'OPCODE',$FF
3854 4C41424C4520 MSG17   DB      'LABLE USED TWICE',$FF
3865 4F504552414E MSG18   DB      'OPERAND',$FF
386D 524547495354 MSG19   DB      'REGISTER FIELD',$FF
387C 444953504C41 MSG1A   DB      'DISPLACEMENT',$FF
3889 50414745494E MSG1B   DB      'PAGEING',$FF
3891 42494E415259 MSG1C   DB      'BINARY  OUTPUT',$FF
38A0 434F4D4D414E MSG1D   DB      'COMMAND:  ',$FF
38AB 444154412049 MSG1E   DB      'DATA INPUT',$FF
38B6 204F4BFF     MSG1F   DB      ' OK',$FF
38BA              
38BA              
38BA              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 45

38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 46

38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              
38BA              ***** SIMULATOR ************
38BA              
38BA              
38BA 0509         INER    LODI,R1 9
38BC 3F46C7               BSTA,UN PSTRNG
38BF 1F204B               BCTA,UN COMD
38C2                      
38C2                      IR      DS      1
38C3                      
38C3 0C9980       GETOP   LODA,R0 *PC
38C6 3F3A98               BSTA,UN PCINC
38C9 C877                 STRR,R0 IR
38CB 070A                 LODI,R3 $0A
38CD EF5692       VALID   COMA,R0 INVAL,R3,-
38D0 1868                 BCTR,EQ INER
38D2 5B79                 BRNR,R3 VALID
38D4 C1                   STRZ    R1
38D5 C2                   STRZ    R2
38D6 4403                 ANDI,R0 3
38D8 CC1A7E               STRA,R0 REGIND ;STORE REGISTER BITS
38DB 51                   RRR,R1
38DC 51                   RRR,R1
38DD 01                   LODZ    R1
38DE 4403                 ANDI,R0 3

VACS 2650 Cross Assembler V1.24i/w32                                           Page 47

38E0 C3                   STRZ    R3
38E1 CC197F               STRA,R0 ADRMD  ; ADRESSMODE BITS
38E4 51                   RRR,R1
38E5 51                   RRR,R1
38E6 01                   LODZ    R1
38E7 450E                 ANDI,R1 $0E
38E9 4401                 ANDI,R0 1
38EB 9C3945               BCFA,EQ BRANCH ; PROCESS BRANCH
38EE E6C0         NONB    COMI,R2 $C0     ;TEST ON NOP
38F0 1C4213               BCTA,EQ NOPX
38F3 E640                 COMI,R2 $40     ;TEST ON HALT INSTR
38F5 1C3B9B               BCTA,EQ HALTX
38F8 0F7661               LODA,R0 TAB1,R3 ;SET UP REGISTERS
38FB C3                   STRZ    R3
38FC BF3A21               BSXA    JADD1
38FF 0F18C2               LODA,R3 IR      ;SETUP OPCODE
3902 47E0                 ANDI,R3 $E0
3904 6701                 IORI,R3 01
3906 C83A         NON0    STRR,R0 CTMP
3908 C939                 STRR,R1 CTMP+1
390A CB08                 STRR,R3 CODE
390C 0C1F06               LODA,R0 SPSLX
390F 93                   LPSL
3910 0931                 LODR,R1 CTMP+1
3912 082E                 LODR,R0 CTMP
3914              CODE    DS      1       ;EXECUTE OPCODE 
3915 C92C                 STRR,R1 CTMP+1
3917 C829                 STRR,R0 CTMP
3919 13                   SPSL
391A C828                 STRR,R0 CTMP+2
391C 0402                 LODI,R0 2
391E 93                   LPSL
391F 0C18C2               LODA,R0 IR
3922 44FC                 ANDI,R0 $FC
3924 E4C8                 COMI,R0 $C8
3926 1809                 BCTR,EQ NONB0
3928 E4C8                 COMI,R0 $C8
392A 1805                 BCTR,EQ NONB0
392C 0B16                 LODR,R3 CTMP+2
392E CF1F06               STRA,R3 SPSLX
3931 0F197F       NONB0   LODA,R3 ADRMD
3934 0F7665               LODA,R0 TAB2,R3
3937 C3                   STRZ    R3
3938 0808                 LODR,R0 CTMP
393A 0907                 LODR,R1         CTMP+1
393C BF3A00               BSXA    JADD2
393F 1F4213               BCTA,UN OUT
3942              
3942              CTMP    DS      3
3945              
3945              
3945 0F7669       BRANCH  LODA,R0 TAB3,R3
3948 C3                   STRZ    R3
3949 BF3B27               BSXA    JADD3
394C 0E18C2               LODA,R2 IR
394F 0D1F06               LODA,R1 SPSLX
3952 0C1A7E               LODA,R0 REGIND
3955 F640                 TMI,R2  $40
3957 1C39D7               BCTA,EQ BREG
395A F403                 TMI,R0  03

VACS 2650 Cross Assembler V1.24i/w32                                           Page 48

395C 1C3984               BCTA,EQ BRUN
395F 50                   RRR,R0
3960 50                   RRR,R0
3961 21                   EORZ    R1
3962 C1                   STRZ    R1
3963 D1                   RRL,R1
3964 61                   IORZ    R1
3965 22                   EORZ    R2
3966 1E4213               BCTA,LT OUT
3969 3F3B0E       JUMP0   BSTA,UN INDIRT
396C 0F18C2       JUMP    LODA,R3 IR
396F F720                 TMI,R3  $20
3971 3C3AB6               BSTA,EQ PUSH
3974 080C         JUMP1   LODR,R0 MAB
3976 090B                 LODR,R1 MAB+1
3978 C806                 STRR,R0 PC
397A C905                 STRR,R1 PC+1
397C 1F4213               BCTA,UN OUT
397F                      
397F                      ADRMD   DS      1
3980                      PC      DS      2
3982                      MAB     DS      2
3984                      
3984 02           BRUN    LODZ    R2
3985 9A62                 BCFR,LT JUMP0
3987 0876                 LODR,R0 ADRMD
3989 E402                 COMI,R0 02
398B 1817                 BCTR,EQ ZB2R
398D                      
398D 3F3B0E               BSTA,UN INDIRT
3990 3F3A6D               BSTA,UN LREG
3993 C1                   STRZ    R1
3994 20                   EORZ    R0
3995 896C                 ADDR,R1 MAB+1
3997 C96A                 STRR,R1 MAB+1
3999 7708                 PPSL    WC
399B 8865                 ADDR,R0 MAB
399D C863                 STRR,R0 MAB
399F 7508                 CPSL    WC
39A1 3F396C               BSTA,UN JUMP    
39A4 095B         ZB2R    LODR,R1 PC+1
39A6 0858                 LODR,R0 PC
39A8 C82B                 STRR,R0 PCSAV
39AA C92A                 STRR,R1 PCSAV+1
39AC A501                 SUBI,R1 01
39AE 7708                 PPSL    WC
39B0 A600                 SUBI,R2 0
39B2 7508                 CPSL    WC
39B4 C84A                 STRR,R0 PC
39B6 C949                 STRR,R1 PC+1
39B8 0AC6                 LODR,R2 *PC
39BA 3F3A98               BSTA,UN PCINC
39BD 20                   EORZ    R0
39BE CC1980               STRA,R0 PC
39C1 CC1981               STRA,R0 PC+1
39C4 02                   LODZ    R2
39C5 3F3B2D               BSTA,UN GREL0
39C8 080B                 LODR,R0         PCSAV
39CA CC1980               STRA,R0 PC
39CD 0807                 LODR,R0 PCSAV+1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 49

39CF CC1981               STRA,R0 PC+1
39D2 1F396C               BCTA,UN JUMP
39D5                      
39D5 0002         PCSAV   DW      2
39D7              
39D7              
39D7 3F3A6D       BREG    BSTA,UN LREG
39DA F680                 TMI,R2  $80
39DC 1807                 BCTR,EQ BREG0
39DE 60                   LODZ    R0
39DF 1C4213               BCTA,EQ OUT
39E2 1F3969               BCTA,UN JUMP0
39E5 F620         BREG0   TMI,R2  $20
39E7 1802                 BCTR,EQ BREG1
39E9 8402                 ADDI,R0 02
39EB A401         BREG1   SUBI,R0 01
39ED 3F3A03               BSTA,UN SREG
39F0 60                   LODZ    R0
39F1 1C4213               BCTA,EQ OUT
39F4 3F3B0E               BSTA,UN INDIRT
39F7 0C1982               LODA,R0 MAB
39FA 0D1983               LODA,R1 MAB+1
39FD 1F396C               BCTA,UN JUMP
3A00                      
3A00 = 00003A00   JADD2   EQU     $
3A00                      
3A00                      
3A00 = 00003A00   OUTABS  EQU     $
3A00 CD9982       OUTREL  STRA,R1 *MAB
3A03 = 00003A03   OUTIM   EQU     $
3A03 0F1A7E       SREG    LODA,R3 REGIND
3A06 1809                 BCTR,EQ REG1
3A08 0E1F06               LODA,R2 SPSLX
3A0B 4610                 ANDI,R2 $10
3A0D 1802                 BCTR,EQ REG1
3A0F 8703                 ADDI,R3 03
3A11 CF7EFF       REG1    STRA,R0 CPUREG,R3  ;
3A14 17                   RETC,UN
3A15                      
3A15                      
3A15 C809         CTZERO  STRR,R0 ZTEM    
3A17 01                   LODZ    R1
3A18 3B69                 BSTR,UN SREG
3A1A 0804                 LODR,R0 ZTEM
3A1C CC1EFF               STRA,R0 CPUREG
3A1F 17                   RETC,UN
3A20                      
3A20              ZTEM    DS      1
3A21              
3A21              
3A21 = 00003A21   JADD1   EQU     $
3A21              
3A21              
3A21              
3A21 3F3B6A       INABS   BSTA,UN GABS
3A24 0C1980               LODA,R0 PC
3A27 4460                 ANDI,R0 $60
3A29 0D1982               LODA,R1 MAB
3A2C 441F                 ANDI,R0 $1F
3A2E 61                   IORZ    R1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 50

3A2F CC1982               STRA,R0 MAB
3A32 3F3B0E               BSTA,UN INDIRT
3A35 0C0A0C               LODA,R0 PAGEN
3A38 1830                 BCTR,EQ INABS0
3A3A 0600                 LODI,R2 00
3A3C E460                 COMI,R0 $60
3A3E 1807                 BCTR,EQ LDABS0  ;INDEX ONLY
3A40 D0                   RRL,R0
3A41 1A02                 BCTR,LT LDABS1  ;AUTODECREMENT
3A43 8602                 ADDI,R2 2
3A45 A601         LDABS1  SUBI,R2 1
3A47 3F3A6D       LDABS0  BSTA,UN LREG
3A4A 82                   ADDZ    R2
3A4B 3F3A03               BSTA,UN SREG
3A4E 8C1983               ADDA,R0 MAB+1
3A51 CC1983               STRA,R0 MAB+1
3A54 7708                 PPSL    WC
3A56 20                   EORZ    R0
3A57 8C1982               ADDA,R0 MAB
3A5A 7508                 CPSL    WC
3A5C 0D1982               LODA,R1 MAB
3A5F 441F                 ANDI,R0 $1F
3A61 4560                 ANDI,R1 $60
3A63 61                   IORZ    R1
3A64 CC1982               STRA,R0 MAB
3A67 20                   EORZ    R0
3A68 C814                 STRR,R0         REGIND
3A6A 0D9982       INABS0  LODA,R1 *MAB    ; 
3A6D 0B0F         LREG    LODR,R3 REGIND
3A6F 1809                 BCTR,EQ         REG0
3A71 0E1F06               LODA,R2 SPSLX
3A74 4410                 ANDI,R0 $10
3A76 1802                 BCTR,EQ REG0
3A78 8703                 ADDI,R3 03
3A7A 0F7EFF       REG0    LODA,R0 CPUREG,R3  ; 
3A7D 17                   RETC,UN
3A7E                      
3A7E              REGIND  DS      1
3A7F                      
3A7F 0D9980       INIM    LODA,R1 *PC
3A82 3B14                 BSTR,UN PCINC
3A84 1B67                 BCTR,UN LREG
3A86                      
3A86 3F3B27       INREL   BSTA,UN GREL
3A89 3F3B0E               BSTA,UN INDIRT
3A8C 0D1982               LODA,R1 MAB
3A8F 1B5C                 BCTR,UN LREG
3A91                      
3A91 3B5A         INZERO  BSTR,UN LREG
3A93 C1                   STRZ    R1
3A94 0C1EFF               LODA,R0 CPUREG
3A97 17                   RETC,UN
3A98                      
3A98 7710         PCINC   PPSL    RS
3A9A C3                   STRZ    R3
3A9B 20                   EORZ    R0
3A9C 0501                 LODI,R1 1
3A9E 0E1980               LODA,R2 PC
3AA1 8D1981               ADDA,R1 PC+1
3AA4 7708                 PPSL    WC

VACS 2650 Cross Assembler V1.24i/w32                                           Page 51

3AA6 82                   ADDZ    R2
3AA7 441F                 ANDI,R0 $1F
3AA9 4660                 ANDI,R2 $60
3AAB 62                   IORZ    R2
3AAC CC1980               STRA,R0 PC
3AAF CD1981               STRA,R1 PC+1
3AB2 03                   LODZ    R3
3AB3 7518                 CPSL    WC+RS
3AB5 17                   RETC,UN
3AB6                      
3AB6 7710         PUSH    PPSL    RS
3AB8 C3                   STRZ    R3
3AB9 0C1F07               LODA,R0 SPSUX
3ABC C2                   STRZ    R2
3ABD 8601                 ADDI,R2 01
3ABF 4607                 ANDI,R2 07
3AC1 44F8                 ANDI,R0 $F8
3AC3 62                   IORZ    R2
3AC4 CC1F07               STRA,R0 SPSUX
3AC7 D2                   RRL,R2
3AC8 0C1980               LODA,R0 PC
3ACB CE7AD8               STRA,R0 STACK,R2
3ACE 0C1981               LODA,R0 PC+1
3AD1 CE7AD9               STRA,R0 STACK+1,R2
3AD4 03                   LODZ    R3
3AD5 7510                 CPSL    RS
3AD7 17                   RETC,UN 
3AD8                      
3AD8                      STACK   DS      $10
3AE8                      
3AE8                      
3AE8                      
3AE8                      
3AE8 7710         POP     PPSL    RS
3AEA C3                   STRZ    R3
3AEB 0C1F07               LODA,R0 SPSUX
3AEE C2                   STRZ    R2
3AEF C1                   STRZ    R1
3AF0 A501                 SUBI,R1 1
3AF2 4507                 ANDI,R1 07
3AF4 44F8                 ANDI,R0 $F8
3AF6 61                   IORZ    R1
3AF7 CC1F07               STRA,R0 SPSUX
3AFA 4607                 ANDI,R2 07
3AFC D2                   RRL,R2
3AFD 0E7AD8               LODA,R0 STACK,R2
3B00 CC1980               STRA,R0 PC
3B03 0E7AD9               LODA,R0 STACK+1,R2
3B06 CC1981               STRA,R0 PC+1
3B09 03                   LODZ    R3
3B0A 7510                 CPSL    RS
3B0C 17                   RETC,UN
3B0D                      
3B0D              INDIR0  DS      1
3B0E              
3B0E 087D         INDIRT  LODR,R0 INDIR0
3B10 14                   RETC,EQ
3B11 7710                 PPSL    RS
3B13 0702                 LODI,R3 02
3B15 0D9982               LODA,R1 *MAB

VACS 2650 Cross Assembler V1.24i/w32                                           Page 52

3B18 0FD982               LODA,R0 *MAB,R3,-
3B1B CC1983               STRA,R0 MAB+1
3B1E CD1982               STRA,R1 MAB
3B21 7510                 CPSL    RS
3B23 20                   EORZ    R0
3B24 C867                 STRR,R0 INDIR0
3B26 17                   RETC,UN
3B27                      
3B27 = 00003B27   JADD3   EQU     $
3B27              
3B27 0C9980       GREL    LODA,R0 *PC
3B2A 3F3A98               BSTA,UN PCINC
3B2D C1           GREL0   STRZ    R1
3B2E 4480                 ANDI,R0 $80
3B30 CC1B0D               STRA,R0 INDIR0
3B33 01                   LODZ    R1
3B34 F440                 TMI,R0  $40
3B36 1810                 BCTR,EQ RELM
3B38 453F                 ANDI,R1 $3F
3B3A 20                   EORZ R0
3B3B 8D1981               ADDA,R1 PC+1
3B3E CD1983               STRA,R1 MAB+1
3B41 7708                 PPSL    WC
3B43 8E1980               ADDA,R2 PC
3B46 1B14                 BCTR,UN REL
3B48 0C1981       RELM    LODA,R0 PC+1
3B4B 25FF                 EORI,R1 $FF
3B4D 453F                 ANDI,R1 $3F
3B4F 8501                 ADDI,R1 01
3B51 A1                   SUBZ    R1
3B52 CC1983               STRA,R0 MAB+1
3B55 7708                 PPSL    WC
3B57 0C1980               LODA,R0 PC
3B5A A400                 SUBI,R0 00
3B5C 441F         REL     ANDI,R0 $1F
3B5E 0D1980               LODA,R1 PC
3B61 4560                 ANDI,R1 $60
3B63 61                   IORZ    R1
3B64 CC1982               STRA,R0 MAB
3B67 7508                 CPSL    WC
3B69 17                   RETC,UN
3B6A                      
3B6A 0C9980       GABS    LODA,R0 *PC
3B6D 3F3A98               BSTA,UN PCINC
3B70 C1                   STRZ    R1
3B71 4480                 ANDI,R0 $80
3B73 CC1B0D               STRA,R0 INDIR0
3B76 01                   LODZ    R1
3B77 4560                 ANDI,R1 $60
3B79 CC0A0C               STRA,R0 PAGEN
3B7C 457F                 ANDI,R1 $7F
3B7E CD1982               STRA,R1 MAB
3B81 0C9980               LODA,R0 *PC
3B84 3F3A98               BSTA,UN PCINC
3B87 CC1983               STRA,R0 MAB+1
3B8A 17                   RETC,UN
3B8B                      
3B8B 51           EX0     RRR,R1
3B8C 0D766D               LODA,R0 TABEX0,R1
3B8F C3                   STRZ    R3

VACS 2650 Cross Assembler V1.24i/w32                                           Page 53

3B90 9F3BBB               BXA     JEX0
3B93                      
3B93 51           EX1     RRR,R1
3B94 0D7675               LODA,R0 TABEX1,R1
3B97 C3                   STRZ    R3
3B98 9F3CB2               BXA     JEX1
3B9B                      
3B9B 0507         HALTX   LODI,R1 7
3B9D 3F46C7               BSTA,UN PSTRNG
3BA0 1F4290               BCTA,UN DCOMD
3BA3                      
3BA3                      
3BA3 0C1A7E       RETC0   LODA,R0 REGIND
3BA6 E403                 COMI,R0 03
3BA8 180D                 BCTR,EQ RET
3BAA 50                   RRR,R0
3BAB 50                   RRR,R0
3BAC 0D1F06               LODA,R1 SPSLX
3BAF 44C0                 ANDI,R0 $C0
3BB1 45C0                 ANDI,R1 $C0
3BB3 E1                   COMZ    R1
3BB4 9C4213               BCFA,EQ OUT
3BB7 3F3AE8       RET     BSTA,UN POP
3BBA 17                   RETC,UN
3BBB                      
3BBB                      
3BBB                      
3BBB                      
3BBB = 00003BBB   JEX0    EQU     $
3BBB              
3BBB 3B66         RETCX   BSTR,UN RETC0
3BBD 1F4213               BCTA,UN OUT
3BC0                      
3BC0 3B61         RETEX   BSTR,UN RETC0
3BC2 0C1F07               LODA,R0 SPSUX
3BC5 44DF                 ANDI,R0 $DF
3BC7 CC1F07               STRA,R0 SPSUX
3BCA 1F4213               BCTA,UN OUT
3BCD                      
3BCD 0C18C2       CPS     LODA,R0 IR
3BD0 C3                   STRZ    R3
3BD1 4701                 ANDI,R3 01
3BD3 C1                   STRZ    R1
3BD4 2701                 EORI,R3 1
3BD6 0F7F06               LODA,R0 SPSLX,R3
3BD9 0E9980               LODA,R2 *PC
3BDC 3F3A98               BSTA,UN PCINC
3BDF F502                 TMI,R1  02
3BE1 1805                 BCTR,EQ CPS0
3BE3 26FF                 EORI,R2 $FF
3BE5 42                   ANDZ    R2
3BE6 1B01                 BCTR,UN CPS1
3BE8 62           CPS0    IORZ    R2
3BE9 CF7F06       CPS1    STRA,R0 SPSLX,R3
3BEC 1F4213               BCTA,UN OUT
3BEF                      
3BEF                      
3BEF 0D18C2       TBS     LODA,R1 IR
3BF2 4501                 ANDI,R1 01
3BF4 2501                 EORI,R1 1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 54

3BF6 0D7F06               LODA,R0 SPSLX,R1
3BF9 1B03                 BCTR,UN MCC
3BFB                      
3BFB                      
3BFB 0D1A6D       TMIX    LODA,R1 LREG
3BFE 0E9980       MCC     LODA,R2 *PC
3C01 3F3A98               BSTA,UN PCINC
3C04 42                   ANDZ    R2
3C05 22                   EORZ    R2
3C06 9902                 BCFR,GT MASKCC
3C08 04FF                 LODI,R0 $ff
3C0A 13           MASKCC  SPSL
3C0B 0D1F06               LODA,R1 SPSLX
3C0E 44C0                 ANDI,R0 $C0
3C10 453F                 ANDI,R1 $3F
3C12 61                   IORZ    R1
3C13 CC1F06               STRA,R0 SPSLX
3C16 1F4213               BCTA,UN OUT
3C19                      
3C19                      
3C19 0D9980       REDEY   LODA,R1 *PC
3C1C 3F3A98               BSTA,UN PCINC
3C1F 20                   EORZ    R0
3C20 CD1C66               STRA,R1 REDEI+1
3C23 0680                 LODI,R2 $80
3C25 3F3D82               BSTA,UN INOUT
3C28 0C767D               LODA,R0 REDETB,R0  ;
3C2B C3                   STRZ    R3
3C2C CF1D24               STRA,R3 R3STG
3C2F BF3C65       ERED    BSXA    REDEI
3C32 9814                 BCFR,EQ EREDE
3C34 C1           REDCC   STRZ    R1
3C35 13                   SPSL
3C36 0E1F06               LODA,R2 SPSLX
3C39 44C0                 ANDI,R0 $C0
3C3B 463F                 ANDI,R2 $3F
3C3D 62                   IORZ    R2      
3C3E CC1F06               STRA,R0 SPSLX
3C41 01                   LODZ    R1
3C42 3F3A03               BSTA,UN SREG
3C45 3F4213               BSTA,UN OUT
3C48                      
3C48 3F3D25       EREDE   BSTA,UN ERR
3C4B 1B62                 BCTR,UN ERED
3C4D                      
3C4D 0D9980       WRTZ    LODA,R1 *PC
3C50 3F3A98               BSTA,UN         PCINC
3C53 20                   EORZ    R0
3C54 C2                   STRZ    R2
3C55 CD1C88               STRA,R1 WRTS1+1   ;
3C58 3F3D82               BSTA,UN INOUT
3C5B 0C7685               LODA,R0 WRTETB,R0 ;
3C5E C3                   STRZ    R3
3C5F BF3C84               BSXA    WRTEX
3C62 1F4213               BCTA,UN OUT
3C65              
3C65              
3C65 5400         REDEI   REDE,R0 00
3C67 75C0                 CPSL    $C0
3C69 17                   RETC,UN

VACS 2650 Cross Assembler V1.24i/w32                                           Page 55

3C6A 0500         REDE1   LODI,R1 0
3C6C 3F46C7               BSTA,UN PSTRNG
3C6F 0C1C66               LODA,R0 REDEI+1
3C72 3F474F               BSTA,UN HXOT
3C75 043D         REDA    LODI,R0 '='
3C77 3F458D               BSTA,UN WRT
3C7A 3F470F               BSTA,UN HEXIN
3C7D 17                   RETC,UN
3C7E 0C1DF0       REDB    LODA,R0         PRESET
3C81 75C0                 CPSL    $C0
3C83 17                   RETC,UN
3C84                      
3C84                      
3C84                      
3C84 3F3A6D       WRTEX   BSTA,UN LREG
3C87 D400         WRTS1   WRTE,R0 0
3C89 17                   RETC,UN
3C8A                      
3C8A 3F3D72       WRTE5   BSTA,UN OKREGA
3C8D 1804                 BCTR,EQ WRTE1
3C8F 05FF                 LODI,R1 $FF
3C91 1B02                 BCTR,UN WRTE0
3C93                      
3C93 0500         WRTE1   LODI,R1 00
3C95 C91A         WRTE0   STRR,R1 TFLAG
3C97 0501                 LODI,R1 1
3C99 3F46C7               BSTA,UN PSTRNG
3C9C 086A                 LODR,R0 WRTS1+1
3C9E 3F474F               BSTA,UN HXOT
3CA1 043D         WRTALL  LODI,R0 '='
3CA3 3F458D               BSTA,UN WRT
3CA6 3F3A6D               BSTA,UN LREG
3CA9 0B06                 LODR,R3 TFLAG
3CAB 9C458D               BCFA,EQ WRT
3CAE 3F474F               BSTA,UN HXOT
3CB1                      
3CB1              TFLAG   DS      1       
3CB2              
3CB2              
3CB2 = 00003CB2   JEX1    EQU     $
3CB2              
3CB2 = 00003CB2   DARX    EQU     $
3CB2 = 00003CB2   RRLX    EQU     $
3CB2 3F3A6D       RRRX    BSTA,UN LREG
3CB5 0501                 LODI,R1 01
3CB7 CD197F               STRA,R1 ADRMD
3CBA 0F18C2               LODA,R3 IR
3CBD 47FC                 ANDI,R3 $fc
3CBF 1F3906               BCTA,UN NON0
3CC2                      
3CC2 0D18C2       SPS     LODA,R1 IR   ; 
3CC5 4501                 ANDI,R1 01
3CC7 2501                 EORI,R1 01
3CC9 0D7F06               LODA,R0 SPSLX,R1  ;
3CCC CC1EFF               STRA,R0 CPUREG
3CCF 1F3C0A               BCTA,UN MASKCC
3CD2                      
3CD2                      
3CD2 0D18C2       LPS     LODA,R1 IR
3CD5 4501                 ANDI,R1 01

VACS 2650 Cross Assembler V1.24i/w32                                           Page 56

3CD7 2501                 EORI,R1 01
3CD9 0C1EFF               LODA,R0 CPUREG
3CDC CD7F06               STRA,R0 SPSLX,R1
3CDF 1F4213               BCTA,UN OUT
3CE2                      
3CE2                      
3CE2 0643         REDCX   LODI,R2 'C'     
3CE4 0501                 LODI,R1 1
3CE6 1B04                 BCTR,UN REDIT
3CE8 0644         REDDX   LODI,R2 'D'
3CEA 0500                 LODI,R1 0
3CEC 0C18C2       REDIT   LODA,R0 IR
3CEF 44FC                 ANDI,R0 $FC
3CF1 C819                 STRR,R0 RED0
3CF3 0401                 LODI,R0 1
3CF5 CA2C                 STRR,R2 HOLD
3CF7 0680                 LODI,R2 $80
3CF9 3F3D82               BSTA,UN INOUT
3CFC 0C7681               LODA,R0 REDTAB,R0  
3CFF C3                   STRZ    R3
3D00 C822                 STRR,R0 R3STG
3D02 BF3D0C       EREDIT  BSXA    RED0
3D05 1C3C34               BCTA,EQ REDCC
3D08 3B1B                 BSTR,UN ERR
3D0A 1B76                 BCTR,UN EREDIT
3D0C                      
3D0C 70           RED0    REDD,R0
3D0D 75C0                 CPSL    $C0
3D0F 17                   RETC,UN
3D10                      
3D10 0500         RED1    LODI,R1 0
3D12 3F46C7               BSTA,UN PSTRNG
3D15 080C                 LODR,R0 HOLD
3D17 3F458D               BSTA,UN WRT
3D1A 1F3C75               BCTA,UN REDA
3D1D                      
3D1D 0C1DF0       RED2    LODA,R0 PRESET
3D20 75C0                 CPSL    $C0
3D22 17                   RETC,UN
3D23                      
3D23              HOLD    DS      1
3D24              R3STG   DS      1
3D25              
3D25 060B         ERR     LODI,R2 $B
3D27 3F46CA               BSTA,UN PRING
3D2A 0B78                 LODR,R3 R3STG
3D2C 17                   RETC,UN
3D2D                      
3D2D 0643         WRTCX   LODI,R2 'C'
3D2F 0501                 LODI,R1 1
3D31 1B04                 BCTR,UN WRTIT
3D33 0644         WRTDX   LODI,R2 'D'
3D35 0500                 LODI,R1 0
3D37 0C18C2       WRTIT   LODA,R0 IR
3D3A 44FC                 ANDI,R0 $FC
3D3C CC1D55               STRA,R0 WRT0
3D3F 0401                 LODI,R0 1
3D41 CA60                 STRR,R2 HOLD
3D43 0600                 LODI,R2 0
3D45 3F3D82               BSTA,UN INOUT

VACS 2650 Cross Assembler V1.24i/w32                                           Page 57

3D48 0D7689               LODA,R0 WRTTB,R1 ;
3D4B C3                   STRZ    R3
3D4C BF3D52               BSXA    WRT1
3D4F 3F4213               BSTA,UN OUT
3D52                      
3D52 3F3A6D       WRT1    BSTA,UN LREG
3D55 F0           WRT0    WRTD,R0
3D56 17                   RETC,UN
3D57                      
3D57 0500         WRT5    LODI,R1 0
3D59 CD1CB1       WRT3    STRA,R1 TFLAG   
3D5C 0501                 LODI,R1 1       ;OUTPUT PORT    
3D5E 3F46C7               BSTA,UN PSTRNG
3D61 0840                 LODR,R0 HOLD
3D63 3F458D               BSTA,UN WRT
3D66 1F3CA1               BCTA,UN WRTALL
3D69                      
3D69 3B07         WRT4    BSTR,UN OKREGA
3D6B 186A                 BCTR,EQ WRT5
3D6D 05FF                 LODI,R1 $FF
3D6F 1F3D59               BCTA,UN WRT3
3D72                      
3D72 3F3A6D       OKREGA  BSTA,UN LREG
3D75 C1                   STRZ    R1
3D76 45E0                 ANDI,R1 $E0
3D78 14                   RETC,EQ
3D79 F480                 TMI,R0  $80
3D7B 17                   RETC,UN
3D7C                      
3D7C                      
3D7C              TEMPC   DS      2
3D7E              TEMPB   DS      2
3D80              TEMPA   DS      2
3D82                      
3D82                      
3D82                      
3D82 C878         INOUT   STRR,R0 TEMPC
3D84 C977                 STRR,R1 TEMPC+1
3D86 85DF                 ADDI,R1 LO(NBUFF) ;
3D88 C975                 STRR,R1 TEMPB+1
3D8A                      
3D8A 7708                 PPSL    WC
3D8C 8447                 ADDI,R0 HI(NBUFF) ;
3D8E C86E                 STRR,R0 TEMPB
3D90 096B                 LODR,R1 TEMPC+1
3D92 0868                 LODR,R0 TEMPC
3D94 7501                 CPSL    CRY   ; 
3D96 50                   RRR,R0
3D97 51                   RRR,R1
3D98 52                   RRR,R2
3D99 7508                 CPSL    WC
3D9B 02                   LODZ    R2
3D9C 9C428B               BCFA,EQ INCOMD
3D9F E581                 COMI,R1 $81
3DA1 1D428B               BCTA,GT INCOMD
3DA4 85E1                 ADDI,R1 LO(MBUFF)       ;
3DA6 7708                 PPSL    WC
3DA8 20                   EORZ    R0
3DA9 8448                 ADDI,R0 HI(MBUFF) ;
3DAB 7508                 CPSL    WC

VACS 2650 Cross Assembler V1.24i/w32                                           Page 58

3DAD C851                 STRR,R0 TEMPA
3DAF C950                 STRR,R1 TEMPA+1
3DB1 08CD                 LODR,R0 *TEMPA
3DB3 F680                 TMI,R2  $80
3DB5 9804                 BCFR,EQ INOUT0
3DB7 50                   RRR,R0
3DB8 50                   RRR,R0
3DB9 50                   RRR,R0
3DBA 50                   RRR,R0
3DBB F640         INOUT0  TMI,R2  $40
3DBD 9802                 BCFR,EQ INOUT1
3DBF 50                   RRR,R0
3DC0 50                   RRR,R0
3DC1 F620         INOUT1  TMI,R2  $20
3DC3 C82C                 STRR,R0 INOUTTEM
3DC5 9821                 BCFR,EQ INOUT4  
3DC7 F660                 TMI,R2  $60
3DC9 9803                 BCFR,EQ INOUT5
3DCB CF9D7E               STRA,R3 *TEMPB
3DCE C1           INOUT5  STRZ    R1
3DCF 02                   LODZ    R2
3DD0 45FC                 ANDI,R1 $FC
3DD2 4403                 ANDI,R0 03
3DD4 61                   IORZ    R1
3DD5 F640                 TMI,R2  $40
3DD7 9802                 BCFR,EQ INOUT2
3DD9 D0                   RRL,R0
3DDA D0                   RRL,R0
3DDB F680         INOUT2  TMI,R2  $80
3DDD 9804                 BCFR,EQ INOUT3
3DDF D0                   RRL,R0
3DE0 D0                   RRL,R0
3DE1 D0                   RRL,R0
3DE2 D0                   RRL,R0
3DE3 CC1D80       INOUT3  STRA,R0 TEMPA
3DE6 0809                 LODR,R0 INOUTTEM
3DE8 4603         INOUT4  ANDI,R2 03
3DEA 0F9D7E               LODA,R3 *TEMPB  ;
3DED CB01                 STRR,R3 PRESET
3DEF 17                   RETC,UN
3DF0                      
3DF0              PRESET  DS      1
3DF1              
3DF1              INOUTTEM        DS      1
3DF2              
3DF2              BPTAB1  DS      $8
3DFA              
3DFA              BPTAB2  DS      $10
3E0A              
3E0A                      
3E0A                      
3E0A              BPTEMP  DS      2
3E0C              
3E0C              **********COMMANDS*******
3E0C              
3E0C A401         CLEAR   SUBI,R0 1       ;R0 IS BREAKPOINT #
3E0E C87A                 STRR,R0 BPTEMP
3E10 E403                 COMI,R0 3
3E12 1D428B               BCTA,GT INCOMD  ;ERROR > 3
3E15 C3                   STRZ    R3

VACS 2650 Cross Assembler V1.24i/w32                                           Page 59

3E16 D3                   RRL,R3          ; * 2
3E17 0F7DF2               LODA,R0 BPTAB1,R3
3E1A CC1D80               STRA,R0 TEMPA
3E1D 0F7DF3               LODA,R0 BPTAB1+1,R3
3E20 CC1D81               STRA,R0 TEMPA+1
3E23 D3                   RRL,R3
3E24 0602                 LODI,R2 02
3E26 0F7DFD               LODA,R0 BPTAB2+3,R3
3E29 14                   RETC,EQ
3E2A 0F7DFC               LODA,R0 BPTAB2+2,R3
3E2D CEFD80               STRA,R0 *TEMPA,R2  ;
3E30 0F7DFB               LODA,R0 BPTAB2+1,R3
3E33 CEDD80               STRA,R0 *TEMPA,R2,-  ;
3E36 0F7DFA               LODA,R0 BPTAB2,R3
3E39 CEDD80               STRA,R0 *TEMPA,R2,-
3E3C 20                   EORZ    R0
3E3D CF7DFD               STRA,R0 BPTAB2+3,R3
3E40 0401                 LODI,R0 01
3E42 17                   RETC,UN
3E43                      
3E43                      
3E43 3F4792       CLIT    BSTA,UN GETNUM  ;CLEAR BREAKPOINT
3E46 9C428B               BCFA,EQ INCOMD
3E49 60                   LODZ    R0      ;
3E4A 9C428B               BCFA,EQ INCOMD
3E4D 01                   LODZ    R1      
3E4E 3F3E0C               BSTA,UN CLEAR
3E51 3C4290               BSTA,EQ DCOMD
3E54 0502                 LODI,R1 2
3E56 3F46C7               BSTA,UN PSTRNG
3E59 0C1E0A               LODA,R0 BPTEMP
3E5C 8401                 ADDI,R0 1
3E5E 3F474F               BSTA,UN HXOT
3E61 0503                 LODI,R1 3
3E63 3F46CA               BSTA,UN PRING
3E66 1F204B               BCTA,UN COMD
3E69                      
3E69                      
3E69 3F4792       BR      BSTA,UN GETNUM  ;BREAKPOINT SET
3E6C 9C428B               BCFA,EQ INCOMD
3E6F 60                   LODZ    R0      ;
3E70 9C428B               BCFA,EQ INCOMD
3E73 01                   LODZ    R1
3E74 3F3E0C               BSTA,UN CLEAR
3E77 04FF                 LODI,R0 $FF
3E79 CF7DFD               STRA,R0 BPTAB2+3,R3
3E7C CF1E0B               STRA,R3 BPTEMP+1
3E7F 3F4792               BSTA,UN GETNUM
3E82 9C428B               BCFA,EQ INCOMD
3E85 0F1E0B               LODA,R3 BPTEMP+1
3E88 CC1D80               STRA,R0 TEMPA
3E8B CD1D81               STRA,R1 TEMPA+1
3E8E 0E1E0A               LODA,R2 BPTEMP
3E91 D2                   RRL,R2
3E92 CE7DF2               STRA,R0 BPTAB1,R2
3E95 01                   LODZ    R1
3E96 CE7DF3               STRA,R0 BPTAB1+1,R2
3E99 0C9D80               LODA,R0 *TEMPA
3E9C CF7DFA               STRA,R0 BPTAB2,R3
3E9F 0500                 LODI,R1 00

VACS 2650 Cross Assembler V1.24i/w32                                           Page 60

3EA1 0DBD80               LODA,R0 *TEMPA,R1,+
3EA4 CF3DFA               STRA,R0 BPTAB2,R3,+
3EA7 0DBD80               LODA,R0 *TEMPA,R1,+
3EAA CF3DFA               STRA,R0 BPTAB2,R3,+
3EAD 041F                 LODI,R0 $1F
3EAF CC9D80               STRA,R0 *TEMPA
3EB2 053F                 LODI,R1 HI(ENTER)
3EB4 0426                 LODI,R0 LO(ENTER)
3EB6 0E1E0A               LODA,R2 BPTEMP
3EB9 D2                   RRL,R2
3EBA D2                   RRL,R2
3EBB D2                   RRL,R2
3EBC 82                   ADDZ    R2
3EBD 7708                 PPSL    WC
3EBF 8500                 ADDI,R1 0
3EC1 7508                 CPSL    WC
3EC3 C2                   STRZ    R2
3EC4 01                   LODZ    R1
3EC5 0700                 LODI,R3 0
3EC7 CFBD80               STRA,R0 *TEMPA,R3,+ ;
3ECA 02                   LODZ    R2
3ECB CFBD80               STRA,R0 *TEMPA,R3,+ ;
3ECE 1F4290               BCTA,UN DCOMD
3ED1                      
3ED1              
3ED1 3F4792       EX      BSTA,UN GETNUM
3ED4 9806                 BCFR,EQ EXX0
3ED6 CC1980               STRA,R0 PC
3ED9 CD1981               STRA,R1 PC+1
3EDC 0C1F06       EXX0    LODA,R0 SPSLX
3EDF CE1EFB               STRA,R2 EXX1+1
3EE2 0C1F07               LODA,R0 SPSUX
3EE5 92                   LPSU
3EE6 7710                 PPSL    RS
3EE8 0919                 LODR,R1 CPUREG+4
3EEA 0A18                 LODR,R2 CPUREG+5
3EEC 0B17                 LODR,R3 CPUREG+6
3EEE 7510                 CPSL    RS
3EF0 090E                 LODR,R1 CPUREG+1
3EF2 0A0D                 LODR,R2 CPUREG+2
3EF4 0B0C                 LODR,R3 CPUREG+3
3EF6 0807                 LODR,R0 CPUREG
3EF8 75FF                 CPSL    $FF
3EFA 7700         EXX1    PPSL    00
3EFC 1FB980               BCTA,UN *PC
3EFF                      
3EFF                      
3EFF                      
3EFF              CPUREG  DS      7
3F06              
3F06              SPSLX   DS      1
3F07              SPSUX   DS      1
3F08              
3F08 C875         SAVEIT  STRR,R0 CPUREG
3F0A 13                   SPSL
3F0B CC1F06               STRA,R0 SPSLX
3F0E 12                   SPSU
3F0F CC1F07               STRA,R0 SPSUX
3F12 7510                 CPSL    RS
3F14 C96A                 STRR,R1 CPUREG+1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 61

3F16 CA69                 STRR,R2 CPUREG+2
3F18 CB68                 STRR,R3 CPUREG+3
3F1A 7710                 PPSL    RS
3F1C C965                 STRR,R1 CPUREG+4
3F1E CA64                 STRR,R2 CPUREG+5
3F20 CB63                 STRR,R3 CPUREG+6
3F22 0602                 LODI,R2 2
3F24 93                   LPSL
3F25 17                   RETC,UN
3F26                      
3F26 3F3F08       ENTER   BSTA,UN SAVEIT
3F29 0401                 LODI,R0 1
3F2B 1F3F43               BCTA,UN         EN0
3F2E 3F3F08               BSTA,UN SAVEIT
3F31 0402                 LODI,R0 2
3F33 1F3F43               BCTA,UN         EN0
3F36 3F3F08               BSTA,UN SAVEIT
3F39 0403                 LODI,R0 3
3F3B 1F3F43               BCTA,UN         EN0
3F3E 3F3F08               BSTA,UN SAVEIT
3F41 0404                 LODI,R0 4
3F43 C82F         EN0     STRR,R0 ENSAV
3F45 0502                 LODI,R1 2
3F47 3F46C7               BSTA,UN PSTRNG
3F4A 0828                 LODR,R0 ENSAV
3F4C 6400                 IORI,R0 0
3F4E 3F458D               BSTA,UN WRT
3F51 0508                 LODI,R1 8
3F53 3F46CA               BSTA,UN PRING
3F56 081C                 LODR,R0 ENSAV
3F58 3F3E0C               BSTA,UN CLEAR
3F5B 0F1E0A               LODA,R3 BPTEMP
3F5E D3                   RRL,R3
3F5F 0F7DF2               LODA,R0 BPTAB1,R3
3F62 CC1980               STRA,R0 PC
3F65 3F474F               BSTA,UN HXOT
3F68 0F3DF2               LODA,R0 BPTAB1,R3,+
3F6B CE1981               STRA,R2 PC+1
3F6E 3F474F               BSTA,UN HXOT
3F71 1F426E               BCTA,UN CHST
3F74              
3F74              ENSAV   DS      1
3F75              
3F75              
3F75 0504         DSBUG   LODI,R1 4
3F77 3F46C7               BSTA,UN PSTRNG
3F7A 0F1F07               LODA,R3 SPSUX
3F7D A701                 SUBI,R3 01
3F7F 4707                 ANDI,R3 7
3F81 D3                   RRL,R3
3F82 0608                 LODI,R2 08
3F84 3F458B               BSTA,UN WRTBL  ;
3F87 0F3AD8       DS0     LODA,R0 STACK,R3,+
3F8A 3F474F               BSTA,UN         HXOT
3F8D 0F3AD8               LODA,R0 STACK,R3,+
3F90 1F474F               BCTA,UN HXOT
3F93 E601                 COMI,R2 01
3F95 1C4290               BCTA,EQ DCOMD
3F98 042C                 LODI,R0 ','
3F9A 3F458D               BSTA,UN WRT

VACS 2650 Cross Assembler V1.24i/w32                                           Page 62

3F9D 3F458B               BSTA,UN WRTBL
3FA0 440F                 ANDI,R0 $0F
3FA2 FA63                 BDRR,R2 DS0
3FA4                      
3FA4 0C9980       REP0    LODA,R0 *PC
3FA7 17                   RETC,UN
3FA8 0EB980       REP1    LODA,R0 *PC,R2,+  ;
3FAB 17                   RETC,UN
4000                      ORG     $4000
4000                      
4000 3F4792       CO      BSTA,UN GETNUM
4003 9C428B               BCFA,EQ INCOMD
4006 CC0092               STRA,R0 TEMPD
4009 CD0093               STRA,R1 TEMPD+1
400C 3F4792               BSTA,UN GETNUM
400F 9C428B               BCFA,EQ INCOMD
4012 CC0094               STRA,R0 TEMPE
4015 CD0095               STRA,R1 TEMPE+1
4018 3F4792               BSTA,UN GETNUM
401B 9C428B               BCFA,EQ INCOMD
401E CC0096               STRA,R0 TEMPF
4021 CD0097               STRA,R1 TEMPF+1
4024 0C8092       COCP    LODA,R0 *TEMPD  ;CHANGED FROM TEMPE TO TEMPD
4027 EC8094               COMA,R0 *TEMPE  ; CHECK 
402A 1C4065               BCTA,EQ COOP0
402D 3F45C9               BSTA,UN IPCR
4030 0C0092               LODA,R0 TEMPD
4033 3F474F               BSTA,UN HXOT
4036 0C0093               LODA,R0 TEMPD+1
4039 3F474F               BSTA,UN HXOT
403C 043D                 LODI,R0 '='
403E 3F458D               BSTA,UN WRT
4041 0C8092               LODA,R0 *TEMPD
4044 3F474F               BSTA,UN HXOT
4047 042C                 LODI,R0 ','
4049 3F458D               BSTA,UN WRT
404C 3F458B               BSTA,UN WRTBL
404F 0C0094               LODA,R0 TEMPE
4052 3F474F               BSTA,UN HXOT
4055 0C0095               LODA,R0 TEMPE+1
4058 3F474F               BSTA,UN HXOT
405B 043D                 LODI,R0 '='
405D 3F458D               BSTA,UN WRT
4060 08B2                 LODR,R0 *TEMPE
4062 3F474F               BSTA,UN HXOT
4065 0501         COOP0   LODI,R1 01
4067 20                   EORZ    R0
4068 892B                 ADDR,R1 TEMPE+1
406A C929                 STRR,R1 TEMPE+1
406C 7708                 PPSL    WC
406E 8824                 ADDR,R0 TEMPE
4070 C822                 STRR,R0 TEMPE
4072 7508                 CPSL    WC
4074 E820                 COMR,R0 TEMPF
4076 1A08                 BCTR,LT COOP1
4078 1D4290               BCTA,GT DCOMD
407B E91A                 COMR,R1 TEMPF+1
407D 1D204B               BCTA,GT COMD
4080 20           COOP1   EORZ    R0
4081 0501                 LODI,R1 1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 63

4083 890E                 ADDR,R1 TEMPD+1
4085 C90C                 STRR,R1 TEMPD+1
4087 7708                 PPSL    WC
4089 8807                 ADDR,R0 TEMPD
408B C805                 STRR,R0 TEMPD
408D 7508                 CPSL    WC
408F 1F4024               BCTA,UN COCP
4092                      
4092              TEMPD   DS      2
4094              TEMPE   DS      2
4096              TEMPF   DS      2
4098              
4098              
4098 3F4792       IN      BSTA,UN GETNUM
409B 9C428B               BCFA,EQ INCOMD
409E C872                 STRR,R0 TEMPD
40A0 C971                 STRR,R1 TEMPD+1
40A2 3F4792               BSTA,UN GETNUM
40A5 9C428B               BCFA,EQ INCOMD
40A8 C86A                 STRR,R0 TEMPE
40AA C969                 STRR,R1 TEMPE+1
40AC 3F4792               BSTA,UN GETNUM
40AF 9C428B               BCFA,EQ INCOMD
40B2 60                   LODZ    R0      ; CODE 00 !
40B3 9C428B               BCFA,EQ INCOMD
40B6 C9DA         IN0     STRR,R1 *TEMPD
40B8 0601                 LODI,R2 01
40BA 20                   EORZ    R0
40BB 8A56                 ADDR,R2 TEMPD+1
40BD CA54                 STRR,R2 TEMPD+1
40BF 7708                 PPSL    WC
40C1 884F                 ADDR,R0 TEMPD
40C3 C84D                 STRR,R0 TEMPD
40C5 7508                 CPSL    WC
40C7 E84B                 COMR,R0 TEMPE
40C9 1A6B                 BCTR,LT IN0
40CB 1D4290               BCTA,GT DCOMD
40CE E945                 COMR,R1 TEMPE+1
40D0 1A64                 BCTR,LT IN0
40D2 1F4290               BCTA,UN         DCOMD
40D5                      
40D5                      
40D5                      
40D5 06C0         IRIT    LODI,R2 $C0
40D7 1B12                 BCTR,UN ININOUT
40D9 06C2         IS      LODI,R2 $C2
40DB 1B0E                 BCTR,UN ININOUT
40DD 06C6         IP      LODI,R2 $C6     ;
40DF 1B0A                 BCTR,UN ININOUT
40E1 0640         OR      LODI,R2 $40
40E3 1B06                 BCTR,UN ININOUT
40E5 0642         OS      LODI,R2 $42
40E7 1B02                 BCTR,UN ININOUT
40E9 0644         OA      LODI,R2 $44
40EB CA21         ININOUT STRR,R2 INTEMP
40ED 3F4792               BSTA,UN GETNUM
40F0 9C428B               BCFA,EQ INCOMD
40F3 C81A                 STRR,R0 INTEMP+1
40F5 C919                 STRR,R1 INTEMP+2
40F7 3F4792               BSTA,UN GETNUM

VACS 2650 Cross Assembler V1.24i/w32                                           Page 64

40FA 9804                 BCFR,EQ ININOUT0
40FC 01                   LODZ    R1
40FD C3                   STRZ    R3
40FE 1B02                 BCTR,UN ININOUT1
4100 0700         ININOUT0        LODI,R3 00
4102 0A0A         ININOUT1        LODR,R2 INTEMP
4104 0809                 LODR,R0 INTEMP+1
4106 0908                 LODR,R1 INTEMP+2
4108 3F3D82               BSTA,UN INOUT
410B 1F4290               BCTA,UN DCOMD
410E                      
410E              INTEMP  DS      4
4112              
4112 CB7D         AININOUT        STRR,R3 INTEMP+3
4114 CA78                 STRR,R2 INTEMP
4116 0401                 LODI,R0 1
4118 0502                 LODI,R1 2
411A A501         AIN0OO  SUBI,R1 01
411C 7708                 PPSL    WC
411E A400                 SUBI,R0 0
4120 7508                 CPSL    WC
4122 16                   RETC,LT
4123 C86A                 STRR,R0 INTEMP+1
4125 C969                 STRR,R1 INTEMP+2
4127 0A65                 LODR,R2 INTEMP
4129 0B66                 LODR,R3 INTEMP+3
412B 3F3D82               BSTA,UN INOUT
412E 085F                 LODR,R0 INTEMP+1
4130 095E                 LODR,R1 INTEMP+2
4132 1B66                 BCTR,UN AIN0OO
4134                      
4134 3F4792       AP      BSTA,UN GETNUM
4137 9C428B               BCFA,EQ INCOMD
413A 60                   LODZ    R0      ;
413B 9C428B               BCFA,EQ INCOMD
413E 01                   LODZ    R1
413F C3                   STRZ    R3
4140 0400                 LODI,R0 0
4142 06C6                 LODI,R2 $C6
4144 1B12                 BCTR,UN AIN1
4146 0444         AA      LODI,R0 $44
4148 0600                 LODI,R2 00
414A 1B0A                 BCTR,UN AIN0
414C 0440         AR      LODI,R0 $40
414E 06C0                 LODI,R2 $C0
4150 1B04                 BCTR,UN AIN0
4152 0442         AS      LODI,R0 $42
4154 06C2                 LODI,R2 $C2
4156 0700         AIN0    LODI,R3 00
4158 C80B         AIN1    STRR,R0 AINTEM
415A 3F4112               BSTA,UN AININOUT
415D 0A06                 LODR,R2 AINTEM
415F 3F4112               BSTA,UN AININOUT
4162 1F4290               BCTA,UN DCOMD
4165              
4165              AINTEM  DS      1
4166              
4166 3F4792       CH      BSTA,UN GETNUM
4169 9829                 BCFR,EQ RE
416B 60                   LODZ    R0      ;

VACS 2650 Cross Assembler V1.24i/w32                                           Page 65

416C 9C428B               BCFA,EQ INCOMD
416F E508                 COMI,R1 08
4171 1D428B               BCTA,GT INCOMD
4174 C913                 STRR,R1 CHTEM
4176 3F4792               BSTA,UN GETNUM
4179 9C428B               BCFA,EQ INCOMD
417C 02                   LODZ    R2
417D 9C428B               BCFA,EQ INCOMD
4180 01                   LODZ    R1
4181 0B06                 LODR,R3 CHTEM
4183 CFE190               STRA,R0 *ICPU,R3
4186 1F4166               BCTA,UN CH
4189                      
4189              CHTEM   DS      1
418A              
418A 3980         IPC     DW      PC
418C 3981         IPC2    DW      PC+1
418E 36BC         IADRT   DW      ADRTAB
4190 3EFF         ICPU    DW      CPUREG
4192 368D         IMOD    DW      MODTAB
4194              
4194 3B03         RE      BSTR,UN RE0
4196 1F4290               BCTA,UN DCOMD
4199              
4199              
4199 3F45C9       RE0     BSTA,UN IPCR
419C 0C818A               LODA,R0 *IPC
419F 3F474F               BSTA,UN HXOT
41A2 0C818C               LODA,R0 *IPC2
41A5 3F474F               BSTA,UN HXOT
41A8 3F458B               BSTA,UN WRTBL
41AB 3F3FA4               BSTA,UN REP0
41AE C3                   STRZ    R3
41AF 53                   RRR,R3
41B0 53                   RRR,R3
41B1 4703                 ANDI,R3 03
41B3 44FC                 ANDI,R0 $FC
41B5 E494                 COMI,R0 $94
41B7 1808                 BCTR,EQ RE1
41B9 E414                 COMI,R0 $14
41BB 1804                 BCTR,EQ RE1
41BD E422                 COMI,R0 34
41BF 9802                 BCFR,EQ RE2
41C1 0700         RE1     LODI,R3 00
41C3 0FE18E       RE2     LODA,R0 *IADRT,R3
41C6 C3                   STRZ    R3
41C7 06FF                 LODI,R2 $FF
41C9 3F458B       RE3     BSTA,UN WRTBL 
41CC 3F3FA8               BSTA,UN REP1
41CF 3F474F               BSTA,UN HXOT
41D2 02                   LODZ    R2
41D3 E3                   COMZ    R3
41D4 9873                 BCFR,EQ RE3
41D6 0611                 LODI,R2 $11
41D8 0D05C8               LODA,R1 CURSOR+1
41DB 450F                 ANDI,R1 $0F
41DD 3F444C               BSTA,UN SETCUR
41E0 07FF                 LODI,R3 $FF
41E2 8721         RE4     ADDI,R3 $21
41E4 3F458B               BSTA,UN WRTBL

VACS 2650 Cross Assembler V1.24i/w32                                           Page 66

41E7 0552                 LODI,R1 'R'
41E9 3F458D               BSTA,UN WRT
41EC 03                   LODZ    R3
41ED 6430                 IORI,R0 $30
41EF 3F458D               BSTA,UN WRT
41F2 072A                 LODI,R3 '*'
41F4 3F458D               BSTA,UN WRT
41F7 0FE190               LODA,R0 *ICPU,R3
41FA 3F474F               BSTA,UN HXOT
41FD E708                 COMI,R3 08
41FF 9861                 BCFR,EQ RE4
4201 050A                 LODI,R1 $0A
4203 1F46CA               BCTA,UN PRING  ;
4206 0889                 LODR,R0 *SSPSL
4208 D0                   RRL,R0
4209 D0                   RRL,R0
420A 4403                 ANDI,R0 3
420C 6430                 IORI,R0 $30
420E 1F458D               BCTA,UN WRT
4211              
4211 3F06         SSPSL   DW      SPSLX
4213              
4213 = 00004213   NOPX    EQU     $
4213                      
4213 063F         OUT     LODI,R2 HI(ENTER)  ;
4215 EE018A               COMA,R2 IPC
4218 9805                 BCFR,EQ OUT0   ;
421A 0703                 LODI,R3 03
421C 9FB980               BXA     *PC
421F 70           OUT0    REDD,R0
4220 447F                 ANDI,R0 $7F
4222 E418                 COMI,R0 CTRLX  ; 
4224 1C426E               BCTA,EQ CHST
4227 0A2A         OUT1    LODR,R2 MODE
4229 0EE192               LODA,R0 *IMOD,R2
422C C3                   STRZ    R3
422D 9F4213               BXA     OUT
4230                      
4230              TRSTOR  DS      2
4232              
4232 3F4199       TR      BSTA,UN RE0
4235 0879                 LODR,R0 TRSTOR
4237 0978                 LODR,R1 TRSTOR+1
4239 A501                 SUBI,R1 1
423B 7708                 PPSL    WC
423D A400                 SUBI,R0 0
423F 7508                 CPSL    WC
4241 C86D         CHMOD0  STRR,R0 TRSTOR
4243 C96C                 STRR,R1 TRSTOR+1
4245 60                   LODZ    R0      ;
4246 9C38C3               BCFA,EQ GETOP
4249 01                   LODZ    R1
424A 9C38C3               BCFA,EQ GETOP
424D 0404                 LODI,R0 4
424F C802                 STRR,R0 MODE
4251 1B25                 BCTR,UN SS1
4253                      
4253              MODE    DS      1
4254              STSTOR  DS      2
4256              

VACS 2650 Cross Assembler V1.24i/w32                                           Page 67

4256 087C         ST      LODR,R0 STSTOR
4258 097B                 LODR,R1 STSTOR+1
425A A501                 SUBI,R1 1
425C 7708                 PPSL WC
425E A400                 SUBI,R0         0
4260 7508                 CPSL    WC
4262 C870                 STRR,R0 STSTOR
4264 C96F                 STRR,R1 STSTOR+1
4266 60           CHMOD   LODZ    R0      ;
4267 9C38C3               BCFA,EQ GETOP
426A 01                   LODZ    R1
426B 9C38C3               BCFA,EQ GETOP
426E 0404         CHST    LODI,R0 04
4270 C861                 STRR,R0 MODE
4272 1F4227               BCTA,UN OUT1
4275                      
4275 3F4199       SS      BSTA,UN RE0
4278 3F46FC       SS1     BSTA,UN PAUSEL  ;
427B 3F46F7               BSTA,UN PAUSE
427E E418                 COMI,R0 CTRLX
4280 180E                 BCTR,EQ DCOMD
4282 E41B                 COMI,R0         ESC
4284 180A                 BCTR,EQ DCOMD
4286 1F38C3       SI      BCTA,UN GETOP
4289              
4289 36C0         CMDTB   DW      COMTB2
428B              
428B 0505         INCOMD  LODI,R1 5
428D 3F46CA               BSTA,UN PRING
4290 20           DCOMD   EORZ    R0
4291 C840                 STRR,R0 MODE
4293 0402                 LODI,R0 02
4295 93                   LPSL
4296 0506                 LODI,R1 6
4298 3F46C7               BSTA,UN PSTRNG
429B 0442                 LODI,R0 HI(COMSTG)
429D 05EE                 LODI,R1 LO(COMSTG)
429F 0620                 LODI,R2 $20
42A1 3F4667               BSTA,UN ARROW
42A4 986A                 BCFR,EQ DCOMD
42A6 076C                 LODI,R3 $6C
42A8 1B04                 BCTR,UN NOTOK0
42AA 0B3F         NOTOK   LODR,R3 COMPTR+1
42AC A704                 SUBI,R3 4
42AE CB3B         NOTOK0  STRR,R3 COMPTR+1
42B0 1A59                 BCTR,LT INCOMD
42B2 083A                 LODR,R0 COMSTG
42B4 3F478C               BSTA,UN LTOU
42B7 EFE289               COMA,R0 *CMDTB,R3  ;CHECK
42BA 986E                 BCFR,EQ NOTOK
42BC 0831                 LODR,R0 COMSTG+1
42BE 3F478C               BSTA,UN LTOU
42C1 EFA289               COMA,R0 *CMDTB,R3,+
42C4 9864                 BCFR,EQ NOTOK
42C6 0FA289               LODA,R0 *CMDTB,R3,+
42C9 C821                 STRR,R0 JTEM
42CB 0FA289               LODA,R0 *CMDTB,R3,+
42CE C81D                 STRR,R0 JTEM+1
42D0 20                   EORZ    R0
42D1 C817                 STRR,R0 COMPTR

VACS 2650 Cross Assembler V1.24i/w32                                           Page 68

42D3 3F477B       OKCOMD  BSTA,UN GETCOM
42D6 60                   LODZ    R0
42D7 1893                 BCTR,EQ *JTEM
42D9 E420                 COMI,R0 $20
42DB 188F                 BCTR,EQ *JTEM
42DD 3F4765               BSTA,UN CKNUM
42E0 9871                 BCFR,EQ OKCOMD
42E2 0806                 LODR,R0 COMPTR
42E4 A401                 SUBI,R0 01
42E6 C802                 STRR,R0 COMPTR
42E8 1B82                 BCTR,UN *JTEM
42EA                      
42EA              COMPTR  DS      2
42EC              JTEM    DS      2
42EE              
42EE              COMSTG  DS      $21
430F              
430F              
430F              
430F              
430F              
430F              
430F              
430F              
430F              
430F              
430F 0401         CSI     LODI,R0 01
4311 CC0253               STRA,R0 MODE 
4314 1F4332               BCTA,UN CST0
4317                      
4317 3F4792       CST     BSTA,UN GETNUM
431A 9C426E               BCFA,EQ CHST
431D CC0254               STRA,R0 STSTOR
4320 CD0255               STRA,R1 STSTOR+1
4323 60                   LODZ    R0      ;
4324 9807                 BCFR,EQ CST1
4326 01                   LODZ    R1
4327 9804                 BCFR,EQ CST1
4329 0404                 LODI,R0 4
432B 1B02                 BCTR,UN CST2
432D 0402         CST1    LODI,R0 2
432F CC0253       CST2    STRA,R0 MODE
4332 3F4792       CST0    BSTA,UN GETNUM
4335 9C4213               BCFA,EQ OUT
4338 CC818A       CPC     STRA,R0 *IPC
433B CD818C               STRA,R1 *IPC2
433E 1F4213               BCTA,UN OUT
4341                      
4341 3F4792       PCIT    BSTA,UN GETNUM
4344 9C428B               BCFA,EQ INCOMD
4347 1B6F                 BCTR,UN CPC
4349                      
4349 3F4792       CTR     BSTA,UN GETNUM
434C 9C426E               BCFA,EQ CHST
434F CC0230               STRA,R0 TRSTOR
4352 CD0231               STRA,R1 TRSTOR+1
4355 0603                 LODI,R2 03
4357 1B56                 BCTR,UN CST2
4359                      
4359                      

VACS 2650 Cross Assembler V1.24i/w32                                           Page 69

4359 3F4792       DPAGE   BSTA,UN GETNUM
435C 9C428B               BCFA,EQ INCOMD  ;
435F C823                 STRR,R0 POINT
4361 C922                 STRR,R1 POINT+1
4363 0610         DPAGE2  LODI,R2 $10
4365 0500                 LODI,R1 00
4367 3F444C               BSTA,UN SETCUR
436A 20                   EORZ    R0
436B C819                 STRR,R0 CURSTA
436D 07FF                 LODI,R3 $FF
436F 3F43B5               BSTA,UN DISPZ
4372 3F4428       DPAGE0  BSTA,UN CURPLT
4375 3F445F               BSTA,UN CURED  ;
4378 9878                 BCFR,EQ DPAGE0
437A 0401                 LODI,R0 1
437C 8806                 ADDR,R0 POINT
437E 447F                 ANDI,R0 $7F
4380 C802                 STRR,R0 POINT
4382 1B5F                 BCTR,UN DPAGE2
4384                      
4384              POINT   DS      2
4386              CURSTA  DS      2
4388              
4388              
4388 3F4792       DDIS    BSTA,UN GETNUM
438B 9C428B               BCFA,EQ INCOMD
438E C874                 STRR,R0 POINT
4390 C973                 STRR,R1 POINT+1
4392 20           DDIS2   EORZ    R0
4393 C871                 STRR,R0 CURSTA
4395 070F                 LODI,R3 $0F
4397 3F43B5               BSTA,UN DISPZ
439A 3F4428       DDIS0   BSTA,UN CURPLT
439D 3F445F               BSTA,UN CURED
43A0 9878                 BCFR,EQ DDIS0
43A2 0510                 LODI,R1 $10
43A4 895F                 ADDR,R1 POINT+1
43A6 C95D                 STRR,R1 POINT+1
43A8 7508                 CPSL    WC
43AA 20                   EORZ    R0
43AB 8857                 ADDR,R0 POINT
43AD C855                 STRR,R0 POINT
43AF 7508                 CPSL    WC
43B1 1B5F                 BCTR,UN DDIS2
43B3                      
43B3                      
43B3              DIST    DS      2
43B5              
43B5 CB7C         DISPZ   STRR,R3 DIST
43B7 06FF                 LODI,R2 $FF
43B9 8601         DIS0    ADDI,R2 01
43BB CA77                 STRR,R2 DIST+1
43BD 3F45C9               BSTA,UN IPCR
43C0 0A72                 LODR,R2 DIST+1
43C2 0F0385               LODA,R3 POINT+1
43C5 03                   LODZ    R3
43C6 82                   ADDZ    R2
43C7 C3                   STRZ    R3
43C8 7708                 PPSL    WC
43CA 20                   EORZ    R0

VACS 2650 Cross Assembler V1.24i/w32                                           Page 70

43CB 8C0384               ADDA,R0 POINT
43CE 7508                 CPSL    WC
43D0 3F474F               BSTA,UN HXOT
43D3 03                   LODZ    R3
43D4 3F474F               BSTA,UN HXOT
43D7 3F458B               BSTA,UN WRTBL
43DA A601                 SUBI,R2 01
43DC 3F458B       DIS     BSTA,UN WRTBL
43DF 3F440E               BSTA,UN R2IP
43E2 01                   LODZ    R1
43E3 3F474F               BSTA,UN HXOT
43E6 F60F                 TMI,R2  $0F
43E8 9872                 BCFR,EQ DIS
43EA A610                 SUBI,R2 $10
43EC 0504                 LODI,R1 04
43EE 3F458B       DIS4    BSTA,UN WRTBL
43F1 F97B                 BDRR,R1 DIS4
43F3 3B19         DIS7    BSTR,UN R2IP  ;
43F5 01                   LODZ    R1
43F6 45E0                 ANDI,R1 $E0
43F8 1804                 BCTR,EQ DIS5
43FA F480                 TMI,R0  $80
43FC 9802                 BCFR,EQ DIS6
43FE 042E         DIS5    LODI,R0 '.'
4400 3F458D       DIS6    BSTA,UN WRT
4403 F60F                 TMI,R2  $0F  ; 
4405 986C                 BCFR,EQ DIS7
4407 EE03B3               COMA,R2 DIST  ;
440A 14                   RETC,EQ
440B 1F43B9               BCTA,UN DIS0
440E                      
440E C3           R2IP    STRZ    R3
440F 0401                 LODI,R0 01
4411 82                   ADDZ    R2
4412 C2                   STRZ    R2
4413 8C0385               ADDA,R0 POINT+1
4416 C80F                 STRR,R0 PTEMP+1
4418 7708                 PPSL    WC
441A 20                   EORZ    R0
441B 8C0384               ADDA,R0 POINT
441E 7508                 CPSL    WC
4420 C804                 STRR,R0 PTEMP
4422 0982                 LODR,R1 *PTEMP
4424 03                   LODZ    R3
4425 17                   RETC,UN
4426                      
4426              PTEMP   DS      2
4428              
4428              
4428 0C0386       CURPLT  LODA,R0 CURSTA
442B C1                   STRZ    R1
442C 0F03B3               LODA,R3 DIST
442F 1A03                 BCTR,LT CURP0
4431 0D05C8               LODA,R1 CURSOR+1
4434 450F         CURP0   ANDI,R1 $0F
4436 44F0                 ANDI,R0 $F0
4438 C3                   STRZ    R3
4439 0600                 LODI,R2 00
443B 7501                 CPSL    CRY
443D 7708                 PPSL    WC

VACS 2650 Cross Assembler V1.24i/w32                                           Page 71

443F D0                   RRL,R0
4440 D2                   RRL,R2
4441 83                   ADDZ    R3
4442 8610                 ADDI,R2 $10
4444 8450                 ADDI,R0 $50   ;OFFSETS?
4446 8600                 ADDI,R2 0
4448 7508                 CPSL    WC
444A 61                   IORZ    R1
444B C1                   STRZ    R1
444C 3F463C       SETCUR  BSTA,UN EROLD
444F CE05C7               STRA,R2 CURSOR
4452 CD05C8               STRA,R1 CURSOR+1
4455 041C                 LODI,R0 $1C
4457 CC85C7               STRA,R0 *CURSOR
445A 17                   RETC,UN
445B                      
445B                      
445B 369C         KYTAB   DW      KEYTAB
445D 36A4         KY0     DW      KEY0
445F              
445F              
445F 3F46F7       CURED   BSTA,UN PAUSE
4462 3F478C               BSTA,UN LTOU
4465 E40D                 COMI,R0 $0D
4467 14                   RETC,EQ
4468 E41B                 COMI,R0 ESC
446A 1C44F1               BCTA,EQ CUREDX
446D E44B                 COMI,R0 'K'
446F 9807                 BCFR,EQ CURED0
4471 20                   EORZ    R0
4472 CC0386               STRA,R0 CURSTA
4475 0401                 LODI,R0 01
4477 17                   RETC,UN
4478 0E03B3       CURED0  LODA,R2 DIST
447B 1A04                 BCTR,LT CUREDA
447D 0602                 LODI,R2 2
447F 1B02                 BCTR,UN CURED1
4481 0608         CUREDA  LODI,R2 08
4483 EEC45B       CURED1  COMA,R0 *KYTAB,R2,-
4486 1C44D0               BCTA,EQ CURED4
4489 5A78                 BRNR,R2 CURED1
448B 3F476E               BSTA,UN OKHEX
448E 984F                 BCFR,EQ CURED
4490 C3                   STRZ    R3
4491 3F458B               BSTA,UN WRTBL
4494 0C0702               LODA,R0 KBBUF
4497 3F458D               BSTA,UN WRT
449A 03                   LODZ    R3
449B 3F4746               BSTA,UN MHEX
449E 03                   LODZ    R3
449F C1                   STRZ    R1
44A0 3F46F7       CURED2  BSTA,UN PAUSE
44A3 3F478C               BSTA,UN LTOU
44A6 E41B                 COMI,R0 ESC
44A8 1F44F1               BCTA,UN CUREDX
44AB 3F476E               BSTA,UN OKHEX
44AE 9870                 BCFR,EQ CURED2  ;
44B0 3F4746               BSTA,UN MHEX
44B3 0C0702               LODA,R0 KBBUF
44B6 3F458D               BSTA,UN WRT

VACS 2650 Cross Assembler V1.24i/w32                                           Page 72

44B9 03                   LODZ    R3
44BA D1                   RRL,R1
44BB D1                   RRL,R1
44BC D1                   RRL,R1
44BD D1                   RRL,R1
44BE 61                   IORZ    R1
44BF 0E0386       CURED3  LODA,R2 CURSTA
44C2 52                   RRR,R2
44C3 52                   RRR,R2
44C4 52                   RRR,R2
44C5 52                   RRR,R2
44C6 A601                 SUBI,R2 01
44C8 3F440E               BSTA,UN R2IP
44CB CC8426               STRA,R0 *PTEMP
44CE 0601                 LODI,R2 01
44D0 0C0386       CURED4  LODA,R0 CURSTA  ; COMMENT
44D3 C1                   STRZ    R1
44D4 50                   RRR,R0
44D5 50                   RRR,R0
44D6 50                   RRR,R0
44D7 50                   RRR,R0
44D8 8EE45D               ADDA,R0 *KY0,R2
44DB D0                   RRL,R0
44DC D0                   RRL,R0
44DD D0                   RRL,R0
44DE D0                   RRL,R0
44DF CC0386               STRA,R0 CURSTA
44E2 0F03B3               LODA,R3 DIST
44E5 16                   RETC,LT
44E6 44F0                 ANDI,R0 $F0
44E8 450F                 ANDI,R1 $0F
44EA 61                   IORZ    R1
44EB CC0386               STRA,R0 CURSTA
44EE 0401                 LODI,R0 1
44F0 17                   RETC,UN
44F1                      
44F1 0C03B3       CUREDX  LODA,R0 DIST
44F4 9E4290               BCFA,LT DCOMD
44F7 0610                 LODI,R2 $10
44F9 054F                 LODI,R1 $4F
44FB 3F444C               BSTA,UN SETCUR
44FE 1F4290               BCTA,UN DCOMD
4501                      
4501 0613         ERROR   LODI,R2 $13  ;cr?
4503 05C0                 LODI,R1 $C0
4505 3F444C               BSTA,UN SETCUR
4508 03                   LODZ    R3
4509 C1                   STRZ    R1
450A 3F46CA               BSTA,UN PRING
450D 0420                 LODI,R0 ' '
450F CC85C7               STRA,R0 *CURSOR
4512 3F46F7               BSTA,UN PAUSE
4515 1F2048               BCTA,UN FBDN  ;
4518                      
4518 3F462F       BACK1   BSTA,UN ERAS1
451B 16                   RETC,LT
451C 0C05C8               LODA,R0 CURSOR+1
451F A410                 SUBI,R0         $10
4521 CC05C8               STRA,R0 CURSOR+1
4524 7708                 PPSL    WC

VACS 2650 Cross Assembler V1.24i/w32                                           Page 73

4526 0C05C7               LODA,R0 CURSOR
4529 A400                 SUBI,R0 0
452B CC05C7               STRA,R0 CURSOR
452E 7508                 CPSL WC
4530 041C                 LODI,R0 $1C
4532 CC85C7               STRA,R0 *CURSOR
4535 A501                 SUBI,R1 1
4537 E5FF                 COMI,R1 $FF
4539 9806                 BCFR,EQ NOSUB1  ;
453B 0886                 LODR,R0 *TMM
453D A401                 SUBI,R0 1
453F C882                 STRR,R0 *TMM
4541 20           NOSUB1  EORZ    R0
4542 17                   RETC,UN
4543              
4543 2A04         TMM     DW      TMPA
4545              
4545 0720         OLFCR   LODI,R3 ' '
4547 CF85C7               STRA,R3 *CURSOR
454A 0F05C8       OLFCR2  LODA,R3 CURSOR+1
454D 470F                 ANDI,R3 $0F
454F 8701                 ADDI,R3 1
4551 470F                 ANDI,R3 $0F  ;CHECK 2X ANDI NEEDD ?
4553 CF05C8               STRA,R3 CURSOR+1
4556 0710                 LODI,R3 $10
4558 CF05C7               STRA,R3 CURSOR
455B 0420                 LODI,R0 ' '
455D CC85C7       L2      STRA,R0 *CURSOR
4560 0710                 LODI,R3 $10
4562 8F05C8               ADDA,R3 CURSOR+1
4565 CF05C8               STRA,R3 CURSOR+1
4568 7708                 PPSL    WC
456A 0700                 LODI,R3 0
456C 8F05C7               ADDA,R3 CURSOR
456F CF05C7               STRA,R3 CURSOR
4572 7508                 CPSL    WC
4574 F705                 TMI,R3  05
4576 9865                 BCFR,EQ L2
4578 0F05C8               LODA,R3 CURSOR+1
457B CF05C8               STRA,R3 CURSOR+1  ;LODA AND STRA SAME R3
457E 0710                 LODI,R3 $10
4580 CF05C7               STRA,R3 CURSOR
4583 071C                 LODI,R3 $1C
4585 CF85C7               STRA,R3 *CURSOR
4588 17                   RETC,UN 
4589                      
4589 2118         IULC    DW      ULC
458B              
458B 0420         WRTBL   LODI,R0 ' '
458D 7710         WRT     PPSL    RS
458F 0D8589               LODA,R1 *IULC
4592 3E478C               BSTA,LT LTOU
4595 C1                   STRZ    R1
4596 25FF                 EORI,R1 $FF  ;
4598 F560                 TMI,R1  $60
459A 1828                 BCTR,EQ RETURN
459C F460                 TMI,R0  $60
459E 1802                 BCTR,EQ WRTLC  ;
45A0 443F                 ANDI,R0 $3F
45A2 C8A3         WRTLC   STRR,R0 *CURSOR

VACS 2650 Cross Assembler V1.24i/w32                                           Page 74

45A4 0510                 LODI,R1 $10
45A6 8920                 ADDR,R1 CURSOR+1
45A8 C91E                 STRR,R1 CURSOR+1
45AA 7708                 PPSL    WC
45AC 0500                 LODI,R1 00
45AE 8918                 ADDR,R1 CURSOR+1
45B0 C916                 STRR,R1 CURSOR+1
45B2 F505                 TMI,R1  5
45B4 980A                 BCFR,EQ WRTCUR
45B6 0910                 LODR,R1 CURSOR+1
45B8 65F0                 IORI,R1 $F0
45BA C90C                 STRR,R1 CURSOR+1
45BC 0514                 LODI,R1 $14
45BE C907                 STRR,R1 CURSOR
45C0 0510         WRTCUR  LODI,R1 $10
45C2 C983                 STRR,R1 *CURSOR
45C4 7518         RETURN  CPSL    Rs+WC
45C6 17                   RETC,UN
45C7                      
45C7              CURSOR  DS      2
45C9              
45C9 3F463C       IPCR    BSTA,UN EROLD
45CC 087A                 LODR,R0 CURSOR+1
45CE F40F                 TMI,R0  $0F
45D0 1826                 BCTR,EQ SCROLL
45D2 8401                 ADDI,R0 1
45D4 440F                 ANDI,R0 $0F
45D6 C870                 STRR,R0 CURSOR+1
45D8 0710         CLRLIN  LODI,R3 $10
45DA CB6B                 STRR,R3 CURSOR
45DC 0420                 LODI,R0 ' '
45DE 0600                 LODI,R2 0
45E0 CEE5C7       ELL1    STRA,R0 *CURSOR,R2
45E3 860A                 ADDI,R2 10
45E5 9879                 BCFR,EQ ELL1
45E7 8701                 ADDI,R3 1
45E9 CB5C                 STRR,R3 CURSOR
45EB E715                 COMI,R3 $15
45ED 9871                 BCFR,EQ ELL1
45EF 0710                 LODI,R3 $10
45F1 CBD4                 STRR,R3 *CURSOR
45F3 041C                 LODI,R0 $1C
45F5 C8D0                 STRR,R0 *CURSOR
45F7 17                   RETC,UN
45F8 0414         SCROLL  LODI,R0 $14
45FA C84B                 STRR,R0 CURSOR
45FC 20                   EORZ    R0
45FD C849                 STRR,R0 CURSOR+1
45FF 0600         SCROL2  LODI,R2 0
4601 07FF                 LODI,R3 $FF
4603 0EA5C7       SCROL1  LODA,R0 *CURSOR,R2,+
4606 26FF                 EORI,R2 $FF
4608 F60F                 TMI,R2  $0F
460A 181F                 BCTR,EQ SCROL4
460C CFA5C7               STRA,R0 *CURSOR,R3,+
460F 26FF         SCROL5  EORI,R2 $FF
4611 E6FF                 COMI,R2 $FF
4613 986E                 BCFR,EQ SCROL1
4615 0C05C7               LODA,R0 CURSOR
4618 A401                 SUBI,R0 1

VACS 2650 Cross Assembler V1.24i/w32                                           Page 75

461A E40F                 COMI,R0 $0F
461C 1805                 BCTR,EQ SCROL3
461E CC05C7               STRA,R0 CURSOR
4621 1B5C                 BCTR,UN SCROL2
4623 040F         SCROL3  LODI,R0 $0F
4625 CC05C8               STRA,R0 CURSOR+1
4628 1F45D8               BCTA,UN CLRLIN
462B 8701         SCROL4  ADDI,R3 1
462D 1B60                 BCTR,UN SCROL5
462F                      
462F 0C05C7       ERAS1   LODA,R0 CURSOR
4632 E410                 COMI,R0 $10
4634 9806                 BCFR,EQ EROLD   
4636 0C05C8               LODA,R0 CURSOR+1
4639 E410                 COMI,R0 $10
463B 16                   RETC,LT
463C 0420         EROLD   LODI,R0 ' '
463E CC05C7               STRA,R0 CURSOR
4641 17                   RETC,UN
4642                      
4642              
4642 3B6B         BACKSP  BSTR,UN ERAS1
4644 0F05C8               LODA,R3 CURSOR+1
4647 0C05C7               LODA,R0 CURSOR
464A E410                 COMI,R0 $10
464C 9803                 BCFR,EQ BACKS1
464E E410                 COMI,R0 $10
4650 16                   RETC,LT         ;ROUTINBER CODE CHECK
4651 A710         BACKS1  SUBI,R3 $10
4653 7708                 PPSL    WC
4655 A400                 SUBI,R0         0
4657 7508                 CPSL    WC
4659 CF05C8               STRA,R3 CURSOR+1
465C CC05C7               STRA,R0 CURSOR
465F 041C                 LODI,R0 $1C
4661 CC85C7               STRA,R0 *CURSOR
4664 17                   RETC,UN
4665                      
4665                      
4665              TMPAR   DS      2
4667              
4667              
4667 C87C         ARROW   STRR,R0 TMPAR
4669 C97B                 STRR,R1 TMPAR+1
466B 05FF                 LODI,R1 $FF
466D 3F4703       INLOOP  BSTA,UN GETKB
4670 E41B                 COMI,R0 ESC
4672 1C46C2               BCTA,EQ ARROW2
4675 E408                 COMI,R0 BS
4677 980F                 BCFR,EQ NOBS
4679 E5FF                 COMI,R1 $FF
467B 1870                 BCTR,EQ INLOOP
467D 3F4642               BSTA,UN BACKSP
4680 186B                 BCTR,EQ INLOOP
4682 A501                 SUBI,R1 1
4684 8601                 ADDI,R2 1
4686 1B65                 BCTR,UN INLOOP
4688 E40F         NOBS    COMI,R0 15
468A 9814                 BCFR,EQ STRIN   ;
468C E5FF                 COMI,R1 $FF

VACS 2650 Cross Assembler V1.24i/w32                                           Page 76

468E 985D                 BCFR,EQ INLOOP
4690 0DA665       NOBS2   LODA,R0 *TMPAR,R1,+
4693 1807                 BCTR,EQ STRIN2
4695 3F458D               BSTA,UN WRT
4698 FA76                 BDRR,R2 NOBS2   ;
469A 1B0D                 BCTR,UN CRWAIT
469C A501         STRIN2  SUBI,R1 1
469E 1B4D                 BCTR,UN INLOOP
46A0 CDA665       STRIN   STRA,R0 *TMPAR,R1,+
46A3 E40D                 COMI,R0 CRCD
46A5 1811                 BCTR,EQ CLRLAS
46A7 FA44                 BDRR,R2 INLOOP
46A9 70           CRWAIT  REDD,R0
46AA E608                 COMI,R2 BS
46AC 1C466D               BCTA,EQ INLOOP
46AF E40D                 COMI,R0 CRCD
46B1 9876                 BCFR,EQ CRWAIT
46B3 3F46FC               BSTA,UN PAUSEL ;CHECK
46B6 20                   EORZ    R0
46B7 17                   RETC,UN
46B8 20           CLRLAS  EORZ    R0
46B9 CDE665       CL      STRA,R0 *TMPAR,R1
46BC 8501                 ADDI,R1 1
46BE FA79                 BDRR,R2 CL  ;CHECK fa 79
46C0 20                   EORZ    R0
46C1 17                   RETC,UN
46C2 04FF         ARROW2  LODI,R0 $FF
46C4 17                   RETC,UN
46C5              
46C5              TMESS   DS      2
46C7              
46C7 3F45C9       PSTRNG  BSTA,UN IPCR
46CA 0437         PRING   LODI,R0 HI(MSG0)
46CC 0629                 LODI,R2 LO(MSG0)
46CE C875                 STRR,R0 TMESS
46D0 CA74                 STRR,R2 TMESS+1
46D2 A500         PRING0  SUBI,R1 0
46D4 1A16                 BCTR,LT PRING2
46D6 0601         PRING1  LODI,R2 01
46D8 20                   EORZ    R0
46D9 8E06C6               ADDA,R2 TMESS+1 ;relative?
46DC CA68                 STRR,R2 TMESS+1
46DE 7708                 ppsl    wc
46E0 8863                 ADDR,R0 TMESS
46E2 C861                 STRR,R0 TMESS
46E4 7508                 CPSL    WC
46E6 08DD                 LODR,R0 *TMESS
46E8 1A68                 BCTR,LT PRING0
46EA 1B6A                 BCTR,UN PRING1
46EC 0700         PRING2  LODI,R3 00
46EE 0FA6C5       PRING3  LODA,R0 *TMESS,R3,+
46F1 16                   RETC,LT
46F2 3F458D               BSTA,UN WRT
46F5 1B77                 BCTR,UN PRING3
46F7                      
46F7                      
46F7 70           PAUSE   REDD,R0
46F8 1A7D                 BCTR,LT PAUSE
46FA C806                 STRR,R0 KBBUF
46FC 70           PAUSEL  REDD,R0 

VACS 2650 Cross Assembler V1.24i/w32                                           Page 77

46FD 9A7D                 BCFR,LT PAUSEL
46FF 0801                 LODR,R0 KBBUF
4701 17                   RETC,UN
4702                      
4702              KBBUF   DS      1
4703              
4703 3B72         GETKB   BSTR,UN PAUSE
4705 3F458D               BSTA,UN WRT
4708 0878                 LODR,R0 KBBUF
470A 17                   RETC,UN
470B                      
470B 36AC         HEXTAB  DW      HXTBL
470D              HEXSTG  DS      2
470F              
470F 0447         HEXIN   LODI,R0 HI(HEXSTG)
4711 050D                 LODI,R1 LO(HEXSTG)
4713 0602                 LODI,R2 2
4715 3F4667               BSTA,UN ARROW
4718 1E4290               BCTA,LT DCOMD
471B 0C070D               LODA,R0 HEXSTG
471E 3F478C               BSTA,UN LTOU
4721 3F476E               BSTA,UN OKHEX
4724 16                   RETC,LT
4725 15                   RETC,GT
4726 3B1E                 BSTR,UN MHEX
4728 03                   LODZ    R3
4729 C1                   STRZ    R1
472A 0C070E               LODA,R0 HEXSTG+1
472D 9804                 BCFR,EQ HEXIN2
472F 03                   LODZ    R3
4730 75C0                 CPSL    $C0
4732 17                   RETC,UN
4733 3F478C       HEXIN2  BSTA,UN LTOU
4736 3F476E               BSTA,UN OKHEX
4739 16                   RETC,LT
473A 15                   RETC,GT
473B 3B09                 BSTR,UN MHEX
473D D1                   RRL,R1
473E D1                   RRL,R1
473F D1                   RRL,R1
4740 D1                   RRL,R1
4741 01                   LODZ    R1
4742 63                   IORZ    R3
4743 75C0                 CPSL    $C0
4745 17                   RETC,UN
4746                      
4746 070A         MHEX    LODI,R3 10
4748 EFC70B       HEX0    COMA,R0 *HEXTAB,R3,-
474B 14                   RETC,EQ
474C 5B7A                 BRNR,R3 HEX0   ; CHECK 5b 7a
474E 17                   RETC,UN
474F                      
474F C1           HXOT    STRZ    R1
4750 50                   RRR,R0  ;50
4751 50                   RRR,R0
4752 50                   RRR,R0
4753 50                   RRR,R0
4754 440F                 ANDI,R0 $0F
4756 0CE70B               LODA,R0 *HEXTAB,R0  ;
4759 3F458D               BSTA,UN WRT

VACS 2650 Cross Assembler V1.24i/w32                                           Page 78

475C 01                   LODZ    R1
475D 440F                 ANDI,R0 $0F
475F 0CE70B               LODA,R0 *HEXTAB,R0 ; OC E7OB
4762 3F458D               BSTA,UN WRT
4765                      
4765 E430         CKNUM   COMI,R0 '0'
4767 16                   RETC,LT
4768 E439                 COMI,R0 '9'
476A 15                   RETC,GT
476B 75C0                 CPSL    $C0
476D 17                   RETC,UN
476E                      
476E                      
476E                      
476E 3F4765       OKHEX   BSTA,UN CKNUM
4771 14                   RETC,EQ
4772 E441                 COMI,R0 'A'
4774 16                   RETC,LT
4775 E446                 COMI,R0 'F'
4777 15                   RETC,GT
4778 75C0                 CPSL    $C0
477A 17                   RETC,UN
477B                      
477B                      
477B 0E02EA       GETCOM  LODA,R2 COMPTR
477E 1A06                 BCTR,LT GETCM2
4780 E620                 COMI,R2 $20
4782 9902                 BCFR,GT GETCM2
4784 0620                 LODI,R2 $20
4786 0E22EE       GETCM2  LODA,R0 COMSTG,R2,+
4789 CE02EA               STRA,R2 COMPTR
478C F460         LTOU    TMI,R0  $60
478E 16                   RETC,LT
478F 445F                 ANDI,R0 $5f     
4791 17                   RETC,UN
4792                      
4792                      
4792 3F477B       GETNUM  BSTA,UN GETCOM
4795 E420                 COMI,R0 ' '
4797 1879                 BCTR,EQ GETNUM
4799 E448                 COMI,R0 'H'
479B 1875                 BCTR,EQ GETNUM
479D E400                 COMI,R0 00
479F 9805                 BCFR,EQ GETNM2
47A1 04FF                 LODI,R0 $FF
47A3 17                   RETC,UN
47A4                      
47A4                      
47A4              GETNMS  DS      2
47A6                      
47A6                      
47A6 0500         GETNM2  LODI,R1 0
47A8 0700                 LODI,R3 0    ; CAN BE SHORTER
47AA 1B03                 BCTR,UN GETNM6
47AC 3F477B       GETNM7  BSTA,UN GETCOM
47AF 3F476E       GETNM6  BSTA,UN         OKHEX
47B2 981E                 BCFR,EQ GETNM3
47B4 E440                 COMI,R0 $40
47B6 1904                 BCTR,GT GETNM8
47B8 A400                 SUBI,R0         0

VACS 2650 Cross Assembler V1.24i/w32                                           Page 79

47BA 1B02                 BCTR,UN GETNM9
47BC A437         GETNM8  SUBI,R0 $37
47BE 470F         GETNM9  ANDI,R3 $0F
47C0 7501                 CPSL    CRY
47C2 7708                 PPSL    WC
47C4 D1                   RRL,R1
47C5 D3                   RRL,R3
47C6 D1                   RRL,R1
47C7 D3                   RRL,R3
47C8 D1                   RRL,R1
47C9 D3                   RRL,R3
47CA D1                   RRL,R1
47CB D3                   RRL,R3
47CC 81                   ADDZ    R1   ;
47CD C1                   STRZ    R1
47CE 7508                 CPSL    WC
47D0 1B5A                 BCTR,UN GETNM7
47D2 E420         GETNM3  COMI,R0 ' '
47D4 9805                 BCFR,EQ GETNM4
47D6 3F477B               BSTA,UN GETCOM
47D9 1B77                 BCTR,UN GETNM3
47DB 03           GETNM4  LODZ    R3
47DC 0700                 LODI,R3 0
47DE 17                   RETC,UN
47DF                      
47DF                      
47DF              NBUFF   DS      $102
48E1              MBUFF   DS      $8A
496B              
496B                      
496B                      
496B                      
496B                      
496B                      
496B                      
496B                      
496B                      
496B                      
496B              
496B                      
496B > 0000               END

VACS 2650 Cross Assembler V1.24i/w32                                           Page 80
List of Identifiers

%ALP (default) . . . . . . . . . = Section  2000-496A (Byte)
A1BACK . . . . . . . . . . . . . = Value    00002C3F (not used)
A1DA . . . . . . . . . . . . . . = Value    000021D9
A1HT . . . . . . . . . . . . . . = Value    000034DA
A1LT . . . . . . . . . . . . . . = Value    00002C98
A1R1 . . . . . . . . . . . . . . = Value    000027BF
A1SC . . . . . . . . . . . . . . = Value    0000278F
A1TA . . . . . . . . . . . . . . = Value    000023CC
AA . . . . . . . . . . . . . . . = Value    00004146
ABRUBT . . . . . . . . . . . . . = Value    000027CF
ABSBR. . . . . . . . . . . . . . = Value    00003322
ABSX . . . . . . . . . . . . . . = Value    00003336
ACON1. . . . . . . . . . . . . . = Value    00002C72
ACON2. . . . . . . . . . . . . . = Value    000031C7
ACON2A . . . . . . . . . . . . . = Value    000031AF
ACONP. . . . . . . . . . . . . . = Value    0000004E
ADDADD . . . . . . . . . . . . . = Value    00002F4D
ADDANY . . . . . . . . . . . . . = Value    00002406
ADDIN. . . . . . . . . . . . . . = Value    0000304E
ADDLN. . . . . . . . . . . . . . = Value    00002CDA
ADDP2. . . . . . . . . . . . . . = Value    00003216
ADDPC. . . . . . . . . . . . . . = Value    00002C8E
ADDRX. . . . . . . . . . . . . . = Value    000032C6
ADL2A. . . . . . . . . . . . . . = Value    00002F24
ADRMD. . . . . . . . . . . . . . = Value    0000397F
ADRTAB . . . . . . . . . . . . . = Value    000036BC
AIN0 . . . . . . . . . . . . . . = Value    00004156
AIN0OO . . . . . . . . . . . . . = Value    0000411A
AIN1 . . . . . . . . . . . . . . = Value    00004158
AININOUT . . . . . . . . . . . . = Value    00004112
AINTEM . . . . . . . . . . . . . = Value    00004165
ALDEL. . . . . . . . . . . . . . = Value    00002C97
ALDN2. . . . . . . . . . . . . . = Value    0000318A
ALFND1 . . . . . . . . . . . . . = Value    00002C89
ALIT2. . . . . . . . . . . . . . = Value    00003190
ALITP. . . . . . . . . . . . . . = Value    00000051
AOK. . . . . . . . . . . . . . . = Value    00002E0A
AP . . . . . . . . . . . . . . . = Value    00004134
APC. . . . . . . . . . . . . . . = Value    00002CFB
APCDA. . . . . . . . . . . . . . = Value    000034C8
APCTA. . . . . . . . . . . . . . = Value    000035A7
AR . . . . . . . . . . . . . . . = Value    0000414C
ARROW. . . . . . . . . . . . . . = Value    00004667
ARROW2 . . . . . . . . . . . . . = Value    000046C2
AS . . . . . . . . . . . . . . . = Value    00004152
ASCIIX . . . . . . . . . . . . . = Value    00002DCF
ASM. . . . . . . . . . . . . . . = Value    00002B69
BACK . . . . . . . . . . . . . . = Value    00002201
BACK1. . . . . . . . . . . . . . = Value    00004518
BACKN. . . . . . . . . . . . . . = Value    000023A4
BACKS1 . . . . . . . . . . . . . = Value    00004651
BACKSP . . . . . . . . . . . . . = Value    00004642
BACKX. . . . . . . . . . . . . . = Value    0000220F
BEGIN. . . . . . . . . . . . . . = Value    00002259
BEGN . . . . . . . . . . . . . . = Value    00002253
BINADD . . . . . . . . . . . . . = Value    000034E6
BINOT. . . . . . . . . . . . . . = Value    00003446
BITS0. . . . . . . . . . . . . . = Value    00003480
BITS2. . . . . . . . . . . . . . = Value    0000349F

VACS 2650 Cross Assembler V1.24i/w32                                           Page 81
List of Identifiers

BK15 . . . . . . . . . . . . . . = Value    000021FF
BL2. . . . . . . . . . . . . . . = Value    00002FE9
BL3. . . . . . . . . . . . . . . = Value    00003399
BLESO. . . . . . . . . . . . . . = Value    000033EF (not used)
BLKPRT . . . . . . . . . . . . . = Value    0000364B
BLKS2. . . . . . . . . . . . . . = Value    00003102
BLKSIN . . . . . . . . . . . . . = Value    00002D7C
BLKSON . . . . . . . . . . . . . = Value    00002A10
BLKSP. . . . . . . . . . . . . . = Value    00000053
BPPC . . . . . . . . . . . . . . = Value    000029FC
BPTAB1 . . . . . . . . . . . . . = Value    00003DF2
BPTAB2 . . . . . . . . . . . . . = Value    00003DFA
BPTEMP . . . . . . . . . . . . . = Value    00003E0A
BPTR . . . . . . . . . . . . . . = Value    000029FE
BR . . . . . . . . . . . . . . . = Value    00003E69
BRANCH . . . . . . . . . . . . . = Value    00003945
BREG . . . . . . . . . . . . . . = Value    000039D7
BREG0. . . . . . . . . . . . . . = Value    000039E5
BREG1. . . . . . . . . . . . . . = Value    000039EB
BRUN . . . . . . . . . . . . . . = Value    00003984
BS . . . . . . . . . . . . . . . = Value    00000008
BSA1 . . . . . . . . . . . . . . = Value    00002A06
BSTART . . . . . . . . . . . . . = Value    00002003
BUG. . . . . . . . . . . . . . . = Value    00003655
BUMP2. . . . . . . . . . . . . . = Value    00003128
BUMPON . . . . . . . . . . . . . = Value    00002A0E
BUMPP. . . . . . . . . . . . . . = Value    00000054
BYPAS. . . . . . . . . . . . . . = Value    000022BC
BYPASS . . . . . . . . . . . . . = Value    0000273D
BYTE0. . . . . . . . . . . . . . = Value    0000282A
BYTE2. . . . . . . . . . . . . . = Value    00002FDE
BYTET. . . . . . . . . . . . . . = Value    0000336E
BYTSP. . . . . . . . . . . . . . = Value    000033F2
BYTSTG . . . . . . . . . . . . . = Value    00002A69
CBGA . . . . . . . . . . . . . . = Value    00002A08
CC . . . . . . . . . . . . . . . = Value    0000326B
CCK2 . . . . . . . . . . . . . . = Value    0000305C
CCM. . . . . . . . . . . . . . . = Value    00000002 (not used)
CCMS . . . . . . . . . . . . . . = Value    0000201D
CCOPY. . . . . . . . . . . . . . = Value    00000010 (not used)
CH . . . . . . . . . . . . . . . = Value    00004166
CHANGE . . . . . . . . . . . . . = Value    00002624
CHBACK . . . . . . . . . . . . . = Value    000027E0
CHEK . . . . . . . . . . . . . . = Value    0000221E
CHGA . . . . . . . . . . . . . . = Value    00002008
CHGL . . . . . . . . . . . . . . = Value    00002683
CHGST. . . . . . . . . . . . . . = Value    00002A0A
CHKPR. . . . . . . . . . . . . . = Value    00002EC9
CHMOD. . . . . . . . . . . . . . = Value    00004266 (not used)
CHMOD0 . . . . . . . . . . . . . = Value    00004241 (not used)
CHST . . . . . . . . . . . . . . = Value    0000426E
CHTEM. . . . . . . . . . . . . . = Value    00004189
CK0. . . . . . . . . . . . . . . = Value    000020C5
CKASCI . . . . . . . . . . . . . = Value    00002FBE
CKCTRL . . . . . . . . . . . . . = Value    00002608
CKHIG. . . . . . . . . . . . . . = Value    00002F7B
CKLP12 . . . . . . . . . . . . . = Value    00002611
CKNUM. . . . . . . . . . . . . . = Value    00004765
CKR3 . . . . . . . . . . . . . . = Value    00002504

VACS 2650 Cross Assembler V1.24i/w32                                           Page 82
List of Identifiers

CL . . . . . . . . . . . . . . . = Value    000046B9
CLEAR. . . . . . . . . . . . . . = Value    00003E0C
CLIT . . . . . . . . . . . . . . = Value    00003E43
CLREND . . . . . . . . . . . . . = Value    0000219D
CLRLAS . . . . . . . . . . . . . = Value    000046B8
CLRLIN . . . . . . . . . . . . . = Value    000045D8
CMDTB. . . . . . . . . . . . . . = Value    00004289
CO . . . . . . . . . . . . . . . = Value    00004000
COCP . . . . . . . . . . . . . . = Value    00004024
CODE . . . . . . . . . . . . . . = Value    00003914
COMAST . . . . . . . . . . . . . = Value    000029FD
COMD . . . . . . . . . . . . . . = Value    0000204B
COMPTR . . . . . . . . . . . . . = Value    000042EA
COMSTG . . . . . . . . . . . . . = Value    000042EE
COMTB2 . . . . . . . . . . . . . = Value    000036C0
COMTBL . . . . . . . . . . . . . = Value    000020E4
COND . . . . . . . . . . . . . . = Value    000000C0 (not used)
COOP0. . . . . . . . . . . . . . = Value    00004065
COOP1. . . . . . . . . . . . . . = Value    00004080
COPYLP . . . . . . . . . . . . . = Value    0000271D
CPC. . . . . . . . . . . . . . . = Value    00004338
CPS. . . . . . . . . . . . . . . = Value    00003BCD
CPS0 . . . . . . . . . . . . . . = Value    00003BE8
CPS1 . . . . . . . . . . . . . . = Value    00003BE9
CPUREG . . . . . . . . . . . . . = Value    00003EFF
CR . . . . . . . . . . . . . . . = Value    0000000D
CRCD . . . . . . . . . . . . . . = Value    0000000D
CRCK . . . . . . . . . . . . . . = Value    000021CD
CREATE . . . . . . . . . . . . . = Value    0000224C (not used)
CRFND. . . . . . . . . . . . . . = Value    00002458
CRWAIT . . . . . . . . . . . . . = Value    000046A9
CRY. . . . . . . . . . . . . . . = Value    00000001
CSI. . . . . . . . . . . . . . . = Value    0000430F
CST. . . . . . . . . . . . . . . = Value    00004317
CST0 . . . . . . . . . . . . . . = Value    00004332
CST1 . . . . . . . . . . . . . . = Value    0000432D
CST2 . . . . . . . . . . . . . . = Value    0000432F
CTMP . . . . . . . . . . . . . . = Value    00003942
CTR. . . . . . . . . . . . . . . = Value    00004349
CTRLN. . . . . . . . . . . . . . = Value    0000000E
CTRLO. . . . . . . . . . . . . . = Value    0000000F
CTRLP. . . . . . . . . . . . . . = Value    00000010
CTRLX. . . . . . . . . . . . . . = Value    00000018
CTRLY. . . . . . . . . . . . . . = Value    00000015
CTZERO . . . . . . . . . . . . . = Value    00003A15
CURA . . . . . . . . . . . . . . = Value    00002A00
CURED. . . . . . . . . . . . . . = Value    0000445F
CURED0 . . . . . . . . . . . . . = Value    00004478
CURED1 . . . . . . . . . . . . . = Value    00004483
CURED2 . . . . . . . . . . . . . = Value    000044A0
CURED3 . . . . . . . . . . . . . = Value    000044BF (not used)
CURED4 . . . . . . . . . . . . . = Value    000044D0
CUREDA . . . . . . . . . . . . . = Value    00004481
CUREDX . . . . . . . . . . . . . = Value    000044F1
CURIT. . . . . . . . . . . . . . = Value    0000213B
CURP0. . . . . . . . . . . . . . = Value    00004434
CURPLT . . . . . . . . . . . . . = Value    00004428
CURSOR . . . . . . . . . . . . . = Value    000045C7
CURSTA . . . . . . . . . . . . . = Value    00004386

VACS 2650 Cross Assembler V1.24i/w32                                           Page 83
List of Identifiers

CWD1 . . . . . . . . . . . . . . = Value    000026BA
CWD2 . . . . . . . . . . . . . . = Value    000026C8
CWD3 . . . . . . . . . . . . . . = Value    000026DB
CXDISP . . . . . . . . . . . . . = Value    0000357C
D255 . . . . . . . . . . . . . . = Value    000020C1
DARX . . . . . . . . . . . . . . = Value    00003CB2
DAT1A. . . . . . . . . . . . . . = Value    00002CBA
DAT2A. . . . . . . . . . . . . . = Value    0000319A
DATA1. . . . . . . . . . . . . . = Value    00002C50
DATA2. . . . . . . . . . . . . . = Value    000031AB
DATAP. . . . . . . . . . . . . . = Value    0000004D
DCOMD. . . . . . . . . . . . . . = Value    00004290
DDIS . . . . . . . . . . . . . . = Value    00004388
DDIS0. . . . . . . . . . . . . . = Value    0000439A
DDIS2. . . . . . . . . . . . . . = Value    00004392
DEBUG. . . . . . . . . . . . . . = Value    0000365B
DECOUT . . . . . . . . . . . . . = Value    00002271
DELAY. . . . . . . . . . . . . . = Value    00000278
DELT . . . . . . . . . . . . . . = Value    000023D5
DIS. . . . . . . . . . . . . . . = Value    000043DC
DIS0 . . . . . . . . . . . . . . = Value    000043B9
DIS4 . . . . . . . . . . . . . . = Value    000043EE
DIS5 . . . . . . . . . . . . . . = Value    000043FE
DIS6 . . . . . . . . . . . . . . = Value    00004400
DIS7 . . . . . . . . . . . . . . = Value    000043F3
DISP . . . . . . . . . . . . . . = Value    0000213E
DISP2. . . . . . . . . . . . . . = Value    00003135
DISP3. . . . . . . . . . . . . . = Value    0000358B
DISPL. . . . . . . . . . . . . . = Value    00002647 (not used)
DISPLN . . . . . . . . . . . . . = Value    00002A0F
DISPLP . . . . . . . . . . . . . = Value    0000265B
DISPON . . . . . . . . . . . . . = Value    000029FB
DISPP. . . . . . . . . . . . . . = Value    00000055
DISPZ. . . . . . . . . . . . . . = Value    000043B5
DIST . . . . . . . . . . . . . . = Value    000043B3
DOWN . . . . . . . . . . . . . . = Value    00002319
DPAGE. . . . . . . . . . . . . . = Value    00004359
DPAGE0 . . . . . . . . . . . . . = Value    00004372
DPAGE2 . . . . . . . . . . . . . = Value    00004363
DPRINT . . . . . . . . . . . . . = Value    0000200A
DS0. . . . . . . . . . . . . . . = Value    00003F87
DSBUG. . . . . . . . . . . . . . = Value    00003F75
DSX. . . . . . . . . . . . . . . = Value    000020CD
DUM2 . . . . . . . . . . . . . . = Value    00002A03
DUMA . . . . . . . . . . . . . . = Value    00002A02
EADD . . . . . . . . . . . . . . = Value    000020CF
EASY . . . . . . . . . . . . . . = Value    00002C91
EBC. . . . . . . . . . . . . . . = Value    00000083
EDITOR . . . . . . . . . . . . . = Value    00002030
ELFND. . . . . . . . . . . . . . = Value    00002677
ELL1 . . . . . . . . . . . . . . = Value    000045E0
EMSG2. . . . . . . . . . . . . . = Value    00002ED1 (not used)
EN0. . . . . . . . . . . . . . . = Value    00003F43
ENDCB. . . . . . . . . . . . . . = Value    0000275F
ENDCHG . . . . . . . . . . . . . = Value    000027D8
ENDCHL . . . . . . . . . . . . . = Value    00002754
ENDF . . . . . . . . . . . . . . = Value    000021E5
ENDFW. . . . . . . . . . . . . . = Value    000021D5
ENDI . . . . . . . . . . . . . . = Value    00002300

VACS 2650 Cross Assembler V1.24i/w32                                           Page 84
List of Identifiers

ENDING . . . . . . . . . . . . . = Value    00002E03
ENDINS . . . . . . . . . . . . . = Value    000022FB
ENDLB. . . . . . . . . . . . . . = Value    00002C06
ENDM . . . . . . . . . . . . . . = Value    000025EC
ENDO . . . . . . . . . . . . . . = Value    00002845
ENDP . . . . . . . . . . . . . . = Value    00000050
ENDRAM . . . . . . . . . . . . . = Value    00002006
ENDT . . . . . . . . . . . . . . = Value    00002848 (not used)
ENDTP. . . . . . . . . . . . . . = Value    00002DF6 (not used)
ENSAV. . . . . . . . . . . . . . = Value    00003F74
ENTER. . . . . . . . . . . . . . = Value    00003F26
EQ . . . . . . . . . . . . . . . = Value    00000000
EQU1 . . . . . . . . . . . . . . = Value    00002C45
EQUP . . . . . . . . . . . . . . = Value    0000004C
ERAS1. . . . . . . . . . . . . . = Value    0000462F
ERASE. . . . . . . . . . . . . . = Value    00002192
ERED . . . . . . . . . . . . . . = Value    00003C2F
EREDE. . . . . . . . . . . . . . = Value    00003C48
EREDIT . . . . . . . . . . . . . = Value    00003D02
EROLD. . . . . . . . . . . . . . = Value    0000463C
ERR. . . . . . . . . . . . . . . = Value    00003D25
ERRMD. . . . . . . . . . . . . . = Value    00002E57
ERRMO. . . . . . . . . . . . . . = Value    00002E4F
ERRMP. . . . . . . . . . . . . . = Value    00002E5B (not used)
ERRMR. . . . . . . . . . . . . . = Value    00002E53
ERRMT. . . . . . . . . . . . . . = Value    00002CA4
ERRMT2 . . . . . . . . . . . . . = Value    00002CAD
ERROR. . . . . . . . . . . . . . = Value    00004501
ERRP . . . . . . . . . . . . . . = Value    00002E84
ERRPTR . . . . . . . . . . . . . = Value    00002E5F
ERRS . . . . . . . . . . . . . . = Value    00002F14
ERRSTK . . . . . . . . . . . . . = Value    00002E60
ERRW . . . . . . . . . . . . . . = Value    00002E68
ERRW2. . . . . . . . . . . . . . = Value    00002EAA
ERRW3. . . . . . . . . . . . . . = Value    00002EA1
ERRW4. . . . . . . . . . . . . . = Value    00002E9D
ERRW5. . . . . . . . . . . . . . = Value    00002EB4
ERWD1. . . . . . . . . . . . . . = Value    000026ED (not used)
ERWD2. . . . . . . . . . . . . . = Value    00002700
ERWD3. . . . . . . . . . . . . . = Value    00002714
ESC. . . . . . . . . . . . . . . = Value    0000001B
ETX. . . . . . . . . . . . . . . = Value    00000003
EVAL . . . . . . . . . . . . . . = Value    00002F8C
EX . . . . . . . . . . . . . . . = Value    00003ED1
EX0. . . . . . . . . . . . . . . = Value    00003B8B
EX1. . . . . . . . . . . . . . . = Value    00003B93
EXEC . . . . . . . . . . . . . . = Value    00000000 (not used)
EXX0 . . . . . . . . . . . . . . = Value    00003EDC
EXX1 . . . . . . . . . . . . . . = Value    00003EFA
FBDN . . . . . . . . . . . . . . = Value    00002048
FIND . . . . . . . . . . . . . . = Value    00002E15
FIND1. . . . . . . . . . . . . . = Value    00002E17
FIND2. . . . . . . . . . . . . . = Value    00002E45
FIND3. . . . . . . . . . . . . . = Value    00002E3D
FINDCM . . . . . . . . . . . . . = Value    00002CB6
FINDND . . . . . . . . . . . . . = Value    000021EE
FLAG . . . . . . . . . . . . . . = Value    00000040 (not used)
FNDND2 . . . . . . . . . . . . . = Value    000021F1
FORMF. . . . . . . . . . . . . . = Value    0000000C

VACS 2650 Cross Assembler V1.24i/w32                                           Page 85
List of Identifiers

FORW . . . . . . . . . . . . . . = Value    00002207
FOUND. . . . . . . . . . . . . . = Value    000024B4
FTEMP. . . . . . . . . . . . . . = Value    000021A8
FW15 . . . . . . . . . . . . . . = Value    00002205
FWBED. . . . . . . . . . . . . . = Value    0000220A
FWDX . . . . . . . . . . . . . . = Value    000021A9
FWDX2. . . . . . . . . . . . . . = Value    000021AC
GABS . . . . . . . . . . . . . . = Value    00003B6A
GE . . . . . . . . . . . . . . . = Value    00000082 (not used)
GETAD2 . . . . . . . . . . . . . = Value    00002F17
GETADD . . . . . . . . . . . . . = Value    00002F15
GETCM2 . . . . . . . . . . . . . = Value    00004786
GETCOM . . . . . . . . . . . . . = Value    0000477B
GETKB. . . . . . . . . . . . . . = Value    00004703
GETNM2 . . . . . . . . . . . . . = Value    000047A6
GETNM3 . . . . . . . . . . . . . = Value    000047D2
GETNM4 . . . . . . . . . . . . . = Value    000047DB
GETNM6 . . . . . . . . . . . . . = Value    000047AF
GETNM7 . . . . . . . . . . . . . = Value    000047AC
GETNM8 . . . . . . . . . . . . . = Value    000047BC
GETNM9 . . . . . . . . . . . . . = Value    000047BE
GETNMS . . . . . . . . . . . . . = Value    000047A4 (not used)
GETNUM . . . . . . . . . . . . . = Value    00004792
GETOP. . . . . . . . . . . . . . = Value    000038C3
GOON . . . . . . . . . . . . . . = Value    000033B6
GOON2. . . . . . . . . . . . . . = Value    000033B4
GREL . . . . . . . . . . . . . . = Value    00003B27
GREL0. . . . . . . . . . . . . . = Value    00003B2D
GT . . . . . . . . . . . . . . . = Value    00000001
HALTX. . . . . . . . . . . . . . = Value    00003B9B
HEADIN . . . . . . . . . . . . . = Value    000035B9
HEADO. . . . . . . . . . . . . . = Value    00003461
HEX0 . . . . . . . . . . . . . . = Value    00004748
HEX03. . . . . . . . . . . . . . = Value    000034AB
HEXIN. . . . . . . . . . . . . . = Value    0000470F
HEXIN2 . . . . . . . . . . . . . = Value    00004733
HEXMAT . . . . . . . . . . . . . = Value    00002FF5
HEXOS. . . . . . . . . . . . . . = Value    00003420
HEXOS1 . . . . . . . . . . . . . = Value    00003433
HEXOS2 . . . . . . . . . . . . . = Value    00003438 (not used)
HEXOST . . . . . . . . . . . . . = Value    000033F1
HEXOUT . . . . . . . . . . . . . = Value    000033F3
HEXSTG . . . . . . . . . . . . . = Value    0000470D
HEXTAB . . . . . . . . . . . . . = Value    0000470B
HOLD . . . . . . . . . . . . . . = Value    00003D23
HT . . . . . . . . . . . . . . . = Value    00000009
HXOT . . . . . . . . . . . . . . = Value    0000474F
HXTBL. . . . . . . . . . . . . . = Value    000036AC
IADRT. . . . . . . . . . . . . . = Value    0000418E
IBST . . . . . . . . . . . . . . = Value    00002004
ICPU . . . . . . . . . . . . . . = Value    00004190
IDC. . . . . . . . . . . . . . . = Value    00000020 (not used)
IFOUND . . . . . . . . . . . . . = Value    00002548
II . . . . . . . . . . . . . . . = Value    00000020 (not used)
IMOD . . . . . . . . . . . . . . = Value    00004192
IN . . . . . . . . . . . . . . . = Value    00004098
IN0. . . . . . . . . . . . . . . = Value    000040B6
INABS. . . . . . . . . . . . . . = Value    00003A21
INABS0 . . . . . . . . . . . . . = Value    00003A6A

VACS 2650 Cross Assembler V1.24i/w32                                           Page 86
List of Identifiers

INCOMD . . . . . . . . . . . . . = Value    0000428B
INCR . . . . . . . . . . . . . . = Value    000022E2
INDIR. . . . . . . . . . . . . . = Value    00003507
INDIR0 . . . . . . . . . . . . . = Value    00003B0D
INDIRT . . . . . . . . . . . . . = Value    00003B0E
INER . . . . . . . . . . . . . . = Value    000038BA
INIM . . . . . . . . . . . . . . = Value    00003A7F
ININOUT. . . . . . . . . . . . . = Value    000040EB
ININOUT0 . . . . . . . . . . . . = Value    00004100
ININOUT1 . . . . . . . . . . . . = Value    00004102
INLOOP . . . . . . . . . . . . . = Value    0000466D
INOUT. . . . . . . . . . . . . . = Value    00003D82
INOUT0 . . . . . . . . . . . . . = Value    00003DBB
INOUT1 . . . . . . . . . . . . . = Value    00003DC1
INOUT2 . . . . . . . . . . . . . = Value    00003DDB
INOUT3 . . . . . . . . . . . . . = Value    00003DE3
INOUT4 . . . . . . . . . . . . . = Value    00003DE8
INOUT5 . . . . . . . . . . . . . = Value    00003DCE
INOUTTEM . . . . . . . . . . . . = Value    00003DF1
INREL. . . . . . . . . . . . . . = Value    00003A86
INSERT . . . . . . . . . . . . . = Value    00002358
INST . . . . . . . . . . . . . . = Value    00002295
INSTDN . . . . . . . . . . . . . = Value    0000234B
INSTE. . . . . . . . . . . . . . = Value    0000236E
INSTS. . . . . . . . . . . . . . = Value    000022CC
INTEMP . . . . . . . . . . . . . = Value    0000410E
INVAL. . . . . . . . . . . . . . = Value    00003692
INZERO . . . . . . . . . . . . . = Value    00003A91
IP . . . . . . . . . . . . . . . = Value    000040DD
IPADD. . . . . . . . . . . . . . = Value    00002399
IPC. . . . . . . . . . . . . . . = Value    0000418A
IPC2 . . . . . . . . . . . . . . = Value    0000418C
IPCR . . . . . . . . . . . . . . = Value    000045C9
IR . . . . . . . . . . . . . . . = Value    000038C2
IRIT . . . . . . . . . . . . . . = Value    000040D5
IS . . . . . . . . . . . . . . . = Value    000040D9
ISAVE. . . . . . . . . . . . . . = Value    00002526
ISL. . . . . . . . . . . . . . . = Value    00002536
ISL2 . . . . . . . . . . . . . . = Value    00002534
IULC . . . . . . . . . . . . . . = Value    00004589
JADD1. . . . . . . . . . . . . . = Value    00003A21
JADD2. . . . . . . . . . . . . . = Value    00003A00
JADD3. . . . . . . . . . . . . . = Value    00003B27
JEX0 . . . . . . . . . . . . . . = Value    00003BBB
JEX1 . . . . . . . . . . . . . . = Value    00003CB2
JTEM . . . . . . . . . . . . . . = Value    000042EC
JUMP . . . . . . . . . . . . . . = Value    0000396C
JUMP0. . . . . . . . . . . . . . = Value    00003969
JUMP1. . . . . . . . . . . . . . = Value    00003974 (not used)
KBBUF. . . . . . . . . . . . . . = Value    00004702
KEY0 . . . . . . . . . . . . . . = Value    000036A4
KEYTAB . . . . . . . . . . . . . = Value    0000369C
KY0. . . . . . . . . . . . . . . = Value    0000445D
KYTAB. . . . . . . . . . . . . . = Value    0000445B
L2 . . . . . . . . . . . . . . . = Value    0000455D
LDABS0 . . . . . . . . . . . . . = Value    00003A47
LDABS1 . . . . . . . . . . . . . = Value    00003A45
LE . . . . . . . . . . . . . . . = Value    00000081 (not used)
LENT . . . . . . . . . . . . . . = Value    00002CFA

VACS 2650 Cross Assembler V1.24i/w32                                           Page 87
List of Identifiers

LF . . . . . . . . . . . . . . . = Value    0000000A
LFCRST . . . . . . . . . . . . . = Value    00003591
LINE . . . . . . . . . . . . . . = Value    00002A16
LINENO . . . . . . . . . . . . . = Value    0000214B
LINEX. . . . . . . . . . . . . . = Value    0000213D
LL1. . . . . . . . . . . . . . . = Value    00002DEC
LOADA. . . . . . . . . . . . . . = Value    00002D9F
LOADD. . . . . . . . . . . . . . = Value    00002789
LOADL. . . . . . . . . . . . . . = Value    000027EF
LOADLS . . . . . . . . . . . . . = Value    000027EC (not used)
LOOKUP . . . . . . . . . . . . . = Value    00002FD8
LOOP . . . . . . . . . . . . . . = Value    00002BA4
LPS. . . . . . . . . . . . . . . = Value    00003CD2
LREG . . . . . . . . . . . . . . = Value    00003A6D
LT . . . . . . . . . . . . . . . = Value    00000002
LTBL . . . . . . . . . . . . . . = Value    000029F8
LTOU . . . . . . . . . . . . . . = Value    0000478C
LU . . . . . . . . . . . . . . . = Value    00002F8F
MAB. . . . . . . . . . . . . . . = Value    00003982
MASKCC . . . . . . . . . . . . . = Value    00003C0A
MBUF . . . . . . . . . . . . . . = Value    0000200D
MBUFF. . . . . . . . . . . . . . = Value    000048E1
MCC. . . . . . . . . . . . . . . = Value    00003BFE
MHEX . . . . . . . . . . . . . . = Value    00004746
ML1. . . . . . . . . . . . . . . = Value    000025DE
MNAME. . . . . . . . . . . . . . = Value    000037EF
MODE . . . . . . . . . . . . . . = Value    00004253
MODIFY . . . . . . . . . . . . . = Value    0000258B
MODTAB . . . . . . . . . . . . . = Value    0000368D
MSG0 . . . . . . . . . . . . . . = Value    00003729
MSG1 . . . . . . . . . . . . . . = Value    00003735 (not used)
MSG10. . . . . . . . . . . . . . = Value    00003806 (not used)
MSG102 . . . . . . . . . . . . . = Value    000037FF (not used)
MSG11. . . . . . . . . . . . . . = Value    00003815 (not used)
MSG12. . . . . . . . . . . . . . = Value    0000381C (not used)
MSG13. . . . . . . . . . . . . . = Value    00003823 (not used)
MSG14. . . . . . . . . . . . . . = Value    00003833 (not used)
MSG15. . . . . . . . . . . . . . = Value    0000383B (not used)
MSG16. . . . . . . . . . . . . . = Value    0000384D
MSG17. . . . . . . . . . . . . . = Value    00003854 (not used)
MSG18. . . . . . . . . . . . . . = Value    00003865 (not used)
MSG19. . . . . . . . . . . . . . = Value    0000386D (not used)
MSG1A. . . . . . . . . . . . . . = Value    0000387C (not used)
MSG1B. . . . . . . . . . . . . . = Value    00003889 (not used)
MSG1C. . . . . . . . . . . . . . = Value    00003891 (not used)
MSG1D. . . . . . . . . . . . . . = Value    000038A0 (not used)
MSG1E. . . . . . . . . . . . . . = Value    000038AB (not used)
MSG1F. . . . . . . . . . . . . . = Value    000038B6 (not used)
MSG2 . . . . . . . . . . . . . . = Value    00003742 (not used)
MSG3 . . . . . . . . . . . . . . = Value    0000374F (not used)
MSG4 . . . . . . . . . . . . . . = Value    00003758 (not used)
MSG5 . . . . . . . . . . . . . . = Value    00003760 (not used)
MSG6 . . . . . . . . . . . . . . = Value    00003771 (not used)
MSG7 . . . . . . . . . . . . . . = Value    00003779 (not used)
MSG8 . . . . . . . . . . . . . . = Value    00003788 (not used)
MSG9 . . . . . . . . . . . . . . = Value    00003795 (not used)
MSGA . . . . . . . . . . . . . . = Value    000037A4 (not used)
MSGB . . . . . . . . . . . . . . = Value    000037A9 (not used)
MSGC . . . . . . . . . . . . . . = Value    000037BD (not used)

VACS 2650 Cross Assembler V1.24i/w32                                           Page 88
List of Identifiers

MSGD . . . . . . . . . . . . . . = Value    000037CD (not used)
MSGE . . . . . . . . . . . . . . = Value    000037D6 (not used)
MSGF . . . . . . . . . . . . . . = Value    000037E0 (not used)
MTCA . . . . . . . . . . . . . . = Value    0000223F
MTDA . . . . . . . . . . . . . . = Value    00002264
MTEMP. . . . . . . . . . . . . . = Value    0000258A
NA1. . . . . . . . . . . . . . . = Value    00002187
NAM0 . . . . . . . . . . . . . . = Value    00002816
NAMEX. . . . . . . . . . . . . . = Value    0000201E
NAML . . . . . . . . . . . . . . = Value    00002DAF
NBI. . . . . . . . . . . . . . . = Value    00002D6D
NBO. . . . . . . . . . . . . . . = Value    00003456
NBUFF. . . . . . . . . . . . . . = Value    000047DF
NCALE1 . . . . . . . . . . . . . = Value    00002C7F
NE . . . . . . . . . . . . . . . = Value    00000080 (not used)
NEWBLK . . . . . . . . . . . . . = Value    00002D7D
NEXI . . . . . . . . . . . . . . = Value    000022A6
NEXT . . . . . . . . . . . . . . = Value    00002D21
NEXT4. . . . . . . . . . . . . . = Value    00002D2E
NEXTF. . . . . . . . . . . . . . = Value    00002D65
NEXTL. . . . . . . . . . . . . . = Value    00003379
NEXTL3 . . . . . . . . . . . . . = Value    000034FB
NEXTL4 . . . . . . . . . . . . . = Value    000033E6
NEXTL6 . . . . . . . . . . . . . = Value    000033E9
NEXTLS . . . . . . . . . . . . . = Value    00003377
NEXTLZ . . . . . . . . . . . . . = Value    00003378
NEXTS. . . . . . . . . . . . . . = Value    00002D1F (not used)
NF . . . . . . . . . . . . . . . = Value    000024C5
NI . . . . . . . . . . . . . . . = Value    0000209A
NITC . . . . . . . . . . . . . . = Value    0000217A
NO100. . . . . . . . . . . . . . = Value    0000227C
NOAD . . . . . . . . . . . . . . = Value    0000249C
NOALE2 . . . . . . . . . . . . . = Value    00003175
NOBS . . . . . . . . . . . . . . = Value    00004688
NOBS2. . . . . . . . . . . . . . = Value    00004690
NOCEOL . . . . . . . . . . . . . = Value    00002728
NOCHBS . . . . . . . . . . . . . = Value    0000268F
NOCK . . . . . . . . . . . . . . = Value    0000232D
NOCL . . . . . . . . . . . . . . = Value    00002CE9
NOCOPY . . . . . . . . . . . . . = Value    000026B6
NOCTK. . . . . . . . . . . . . . = Value    00002621
NOCWD. . . . . . . . . . . . . . = Value    000026E0
NOD1SC . . . . . . . . . . . . . = Value    00002732
NODIRL . . . . . . . . . . . . . = Value    00003403
NOERWD . . . . . . . . . . . . . = Value    00002719
NOHT . . . . . . . . . . . . . . = Value    000026A8
NOIND. . . . . . . . . . . . . . = Value    0000336A
NOLB . . . . . . . . . . . . . . = Value    00002C0E
NOMINU . . . . . . . . . . . . . = Value    00003363
NON0 . . . . . . . . . . . . . . = Value    00003906
NONB . . . . . . . . . . . . . . = Value    000038EE (not used)
NONB0. . . . . . . . . . . . . . = Value    00003931
NOPLUS . . . . . . . . . . . . . = Value    0000335B
NOPX . . . . . . . . . . . . . . = Value    00004213
NOSU . . . . . . . . . . . . . . = Value    0000222B
NOSUB1 . . . . . . . . . . . . . = Value    00004541
NOTFON . . . . . . . . . . . . . = Value    00002418
NOTOK. . . . . . . . . . . . . . = Value    000042AA
NOTOK0 . . . . . . . . . . . . . = Value    000042AE

VACS 2650 Cross Assembler V1.24i/w32                                           Page 89
List of Identifiers

NOTZ . . . . . . . . . . . . . . = Value    00002C2F
NOZERO . . . . . . . . . . . . . = Value    000032E8
NOZFR. . . . . . . . . . . . . . = Value    00003539
NS1DA. . . . . . . . . . . . . . = Value    0000233B
NXTCHR . . . . . . . . . . . . . = Value    000021B3
NXTCK. . . . . . . . . . . . . . = Value    00002D59
NXTL . . . . . . . . . . . . . . = Value    00002BDE
NXTNM. . . . . . . . . . . . . . = Value    0000256F
OA . . . . . . . . . . . . . . . = Value    000040E9
OBPTR. . . . . . . . . . . . . . = Value    00002A14
OBST . . . . . . . . . . . . . . = Value    00002005
OFFFF. . . . . . . . . . . . . . = Value    00002CD7
OFFON. . . . . . . . . . . . . . = Value    00002CC9
OKCOMD . . . . . . . . . . . . . = Value    000042D3
OKHEX. . . . . . . . . . . . . . = Value    0000476E
OKREGA . . . . . . . . . . . . . = Value    00003D72
OLC. . . . . . . . . . . . . . . = Value    00002126
OLFCR. . . . . . . . . . . . . . = Value    00004545
OLFCR2 . . . . . . . . . . . . . = Value    0000454A (not used)
ONE. . . . . . . . . . . . . . . = Value    000020AE
OPCD1. . . . . . . . . . . . . . = Value    00002850
OPCD2. . . . . . . . . . . . . . = Value    000028A7
OPCD3. . . . . . . . . . . . . . = Value    000028FE
OPCD4. . . . . . . . . . . . . . = Value    00002955
OPCD5. . . . . . . . . . . . . . = Value    000029AC
OPCODE . . . . . . . . . . . . . = Value    00002E13
OPER0. . . . . . . . . . . . . . = Value    00003012
OPER1. . . . . . . . . . . . . . = Value    00003013
OPER2. . . . . . . . . . . . . . = Value    00003014
OPER3. . . . . . . . . . . . . . = Value    00003015
OPPOS. . . . . . . . . . . . . . = Value    00002E14
OPSTG. . . . . . . . . . . . . . = Value    00002F8B
OR . . . . . . . . . . . . . . . = Value    000040E1
ORG2 . . . . . . . . . . . . . . = Value    00003142
ORGP . . . . . . . . . . . . . . = Value    0000004B
ORGX . . . . . . . . . . . . . . = Value    00002D0F
OS . . . . . . . . . . . . . . . = Value    000040E5
OUT. . . . . . . . . . . . . . . = Value    00004213
OUT0 . . . . . . . . . . . . . . = Value    0000421F
OUT1 . . . . . . . . . . . . . . = Value    00004227
OUTABS . . . . . . . . . . . . . = Value    00003A00
OUTIM. . . . . . . . . . . . . . = Value    00003A03
OUTOFF . . . . . . . . . . . . . = Value    000029FA
OUTREL . . . . . . . . . . . . . = Value    00003A00
OVERSI . . . . . . . . . . . . . = Value    00002DBA
OVF. . . . . . . . . . . . . . . = Value    00000004 (not used)
P2 . . . . . . . . . . . . . . . = Value    0000327E
P2A. . . . . . . . . . . . . . . = Value    0000328B
P2B. . . . . . . . . . . . . . . = Value    0000328D
P2D1 . . . . . . . . . . . . . . = Value    00003527
P2D2 . . . . . . . . . . . . . . = Value    0000353F
P2END. . . . . . . . . . . . . . = Value    00003515
P2NXT. . . . . . . . . . . . . . = Value    000030C6
PAGEN. . . . . . . . . . . . . . = Value    00002A0C
PASS . . . . . . . . . . . . . . = Value    000029F7
PASS1. . . . . . . . . . . . . . = Value    00002B6C
PASS2. . . . . . . . . . . . . . = Value    00003073
PASS2A . . . . . . . . . . . . . = Value    00003078 (not used)
PAUSE. . . . . . . . . . . . . . = Value    000046F7

VACS 2650 Cross Assembler V1.24i/w32                                           Page 90
List of Identifiers

PAUSEL . . . . . . . . . . . . . = Value    000046FC
PC . . . . . . . . . . . . . . . = Value    00003980
PCINC. . . . . . . . . . . . . . = Value    00003A98
PCIT . . . . . . . . . . . . . . = Value    00004341
PCSAV. . . . . . . . . . . . . . = Value    000039D5
PLINE. . . . . . . . . . . . . . = Value    000033F0
PLN. . . . . . . . . . . . . . . = Value    00003246
PMOD . . . . . . . . . . . . . . = Value    00002563
PMSG4. . . . . . . . . . . . . . = Value    00003639
PMSG5. . . . . . . . . . . . . . = Value    0000363E
POINT. . . . . . . . . . . . . . = Value    00004384
POP. . . . . . . . . . . . . . . = Value    00003AE8
PRBL . . . . . . . . . . . . . . = Value    0000356E
PRESET . . . . . . . . . . . . . = Value    00003DF0
PRING. . . . . . . . . . . . . . = Value    000046CA
PRING0 . . . . . . . . . . . . . = Value    000046D2
PRING1 . . . . . . . . . . . . . = Value    000046D6
PRING2 . . . . . . . . . . . . . = Value    000046EC
PRING3 . . . . . . . . . . . . . = Value    000046EE
PRINT. . . . . . . . . . . . . . = Value    00003558
PRNT . . . . . . . . . . . . . . = Value    00003570
PRNT1. . . . . . . . . . . . . . = Value    00003156
PRNT2. . . . . . . . . . . . . . = Value    00003164
PRNT3. . . . . . . . . . . . . . = Value    00003237
PRNTP. . . . . . . . . . . . . . = Value    00000052
PRTBUF . . . . . . . . . . . . . = Value    000035EB
PRTDB. . . . . . . . . . . . . . = Value    000034F1
PRTLM. . . . . . . . . . . . . . = Value    000033A8
PRTLN. . . . . . . . . . . . . . = Value    00003221
PRTNX. . . . . . . . . . . . . . = Value    000033AA
PRTRTN . . . . . . . . . . . . . = Value    0000358E
PSTRNG . . . . . . . . . . . . . = Value    000046C7
PTEMP. . . . . . . . . . . . . . = Value    00004426
PUSH . . . . . . . . . . . . . . = Value    00003AB6
R1STG. . . . . . . . . . . . . . = Value    0000321C (not used)
R2IP . . . . . . . . . . . . . . = Value    0000440E
R2POS. . . . . . . . . . . . . . = Value    00002FF3
R2STG. . . . . . . . . . . . . . = Value    00002D7B
R3STG. . . . . . . . . . . . . . = Value    00003D24
RE . . . . . . . . . . . . . . . = Value    00004194
RE0. . . . . . . . . . . . . . . = Value    00004199
RE1. . . . . . . . . . . . . . . = Value    000041C1
RE2. . . . . . . . . . . . . . . = Value    000041C3
RE3. . . . . . . . . . . . . . . = Value    000041C9
RE4. . . . . . . . . . . . . . . = Value    000041E2
RED0 . . . . . . . . . . . . . . = Value    00003D0C
RED1 . . . . . . . . . . . . . . = Value    00003D10
RED2 . . . . . . . . . . . . . . = Value    00003D1D
REDA . . . . . . . . . . . . . . = Value    00003C75
REDB . . . . . . . . . . . . . . = Value    00003C7E
REDCC. . . . . . . . . . . . . . = Value    00003C34
REDCX. . . . . . . . . . . . . . = Value    00003CE2
REDDX. . . . . . . . . . . . . . = Value    00003CE8
REDE1. . . . . . . . . . . . . . = Value    00003C6A
REDEI. . . . . . . . . . . . . . = Value    00003C65
REDETB . . . . . . . . . . . . . = Value    0000367D
REDEY. . . . . . . . . . . . . . = Value    00003C19
REDIT. . . . . . . . . . . . . . = Value    00003CEC
REDO . . . . . . . . . . . . . . = Value    0000247A

VACS 2650 Cross Assembler V1.24i/w32                                           Page 91
List of Identifiers

REDTAB . . . . . . . . . . . . . = Value    00003681
REG0 . . . . . . . . . . . . . . = Value    00003A7A
REG1 . . . . . . . . . . . . . . = Value    00003A11
REGIND . . . . . . . . . . . . . = Value    00003A7E
REL. . . . . . . . . . . . . . . = Value    00003B5C
RELM . . . . . . . . . . . . . . = Value    00003B48
REP0 . . . . . . . . . . . . . . = Value    00003FA4
REP1 . . . . . . . . . . . . . . = Value    00003FA8
RES1 . . . . . . . . . . . . . . = Value    00002C67
RES3 . . . . . . . . . . . . . . = Value    00003204
RES4 . . . . . . . . . . . . . . = Value    000031FE
RESBUF . . . . . . . . . . . . . = Value    0000321E
RESP . . . . . . . . . . . . . . = Value    0000004F
RESSTG . . . . . . . . . . . . . = Value    0000321D
RET. . . . . . . . . . . . . . . = Value    00003BB7
RETC0. . . . . . . . . . . . . . = Value    00003BA3
RETCN. . . . . . . . . . . . . . = Value    000027CE
RETCUN . . . . . . . . . . . . . = Value    000022F1
RETCX. . . . . . . . . . . . . . = Value    00003BBB
RETEX. . . . . . . . . . . . . . = Value    00003BC0
RETURN . . . . . . . . . . . . . = Value    000045C4
RL1. . . . . . . . . . . . . . . = Value    0000207B
RRLX . . . . . . . . . . . . . . = Value    00003CB2
RRRX . . . . . . . . . . . . . . = Value    00003CB2
RS . . . . . . . . . . . . . . . = Value    00000010
S1DA . . . . . . . . . . . . . . = Value    00002373
S2 . . . . . . . . . . . . . . . = Value    00002466
SAVE . . . . . . . . . . . . . . = Value    000024E5
SAVEIT . . . . . . . . . . . . . = Value    00003F08
SCERR. . . . . . . . . . . . . . = Value    000027FB
SCROL1 . . . . . . . . . . . . . = Value    00004603
SCROL2 . . . . . . . . . . . . . = Value    000045FF
SCROL3 . . . . . . . . . . . . . = Value    00004623
SCROL4 . . . . . . . . . . . . . = Value    0000462B
SCROL5 . . . . . . . . . . . . . = Value    0000460F
SCROLL . . . . . . . . . . . . . = Value    000045F8
SDCA . . . . . . . . . . . . . . = Value    0000237C
SEARCH . . . . . . . . . . . . . = Value    000024CD
SECB . . . . . . . . . . . . . . = Value    00002A12 (not used)
SENSE. . . . . . . . . . . . . . = Value    00000080 (not used)
SERI . . . . . . . . . . . . . . = Value    000002E9
SERO . . . . . . . . . . . . . . = Value    0000024F
SETCUR . . . . . . . . . . . . . = Value    0000444C
SHIF . . . . . . . . . . . . . . = Value    000023DF
SI . . . . . . . . . . . . . . . = Value    00004286
SI2. . . . . . . . . . . . . . . = Value    0000247C
SL . . . . . . . . . . . . . . . = Value    000024F7
SL3. . . . . . . . . . . . . . . = Value    0000251E
SLCK . . . . . . . . . . . . . . = Value    0000250E
SLRE . . . . . . . . . . . . . . = Value    00002CF6
SP . . . . . . . . . . . . . . . = Value    00000007 (not used)
SPEC0. . . . . . . . . . . . . . = Value    000032A0
SPEC1. . . . . . . . . . . . . . = Value    000032A2
SPS. . . . . . . . . . . . . . . = Value    00003CC2
SPSLX. . . . . . . . . . . . . . = Value    00003F06
SPSUX. . . . . . . . . . . . . . = Value    00003F07
SPTR . . . . . . . . . . . . . . = Value    000029FF
SREG . . . . . . . . . . . . . . = Value    00003A03
SS . . . . . . . . . . . . . . . = Value    00004275

VACS 2650 Cross Assembler V1.24i/w32                                           Page 92
List of Identifiers

SS1. . . . . . . . . . . . . . . = Value    00004278
SSPSL. . . . . . . . . . . . . . = Value    00004211
SSTAT. . . . . . . . . . . . . . = Value    000024C4
ST . . . . . . . . . . . . . . . = Value    00004256
STACK. . . . . . . . . . . . . . = Value    00003AD8
STORE. . . . . . . . . . . . . . = Value    000023B4
STRIN. . . . . . . . . . . . . . = Value    000046A0
STRIN2 . . . . . . . . . . . . . = Value    0000469C
STROP. . . . . . . . . . . . . . = Value    0000303E
STRR2. . . . . . . . . . . . . . = Value    00002FA4
STRT2. . . . . . . . . . . . . . = Value    000027A4
STRTMR . . . . . . . . . . . . . = Value    000022F2
STRTMS . . . . . . . . . . . . . = Value    000027A0
STSTOR . . . . . . . . . . . . . = Value    00004254
SUB10. . . . . . . . . . . . . . = Value    0000227E
SUBADD . . . . . . . . . . . . . = Value    00002F63
SUBANY . . . . . . . . . . . . . = Value    000023B5
SUBL . . . . . . . . . . . . . . = Value    0000221B
SUBLN. . . . . . . . . . . . . . = Value    00002CE8
SUMK . . . . . . . . . . . . . . = Value    00002843
TAB1 . . . . . . . . . . . . . . = Value    00003661
TAB2 . . . . . . . . . . . . . . = Value    00003665
TAB3 . . . . . . . . . . . . . . = Value    00003669
TABEX0 . . . . . . . . . . . . . = Value    0000366D
TABEX1 . . . . . . . . . . . . . = Value    00003675
TABL3. . . . . . . . . . . . . . = Value    00002698
TABO . . . . . . . . . . . . . . = Value    00002422
TABSS. . . . . . . . . . . . . . = Value    00002007
TABSUB . . . . . . . . . . . . . = Value    00002438
TAPE2. . . . . . . . . . . . . . = Value    0000310F
TAPEO. . . . . . . . . . . . . . = Value    00002800
TAPEON . . . . . . . . . . . . . = Value    00002A11
TAPEOT . . . . . . . . . . . . . = Value    00002809 (not used)
TAPEP. . . . . . . . . . . . . . = Value    00000056
TB2. . . . . . . . . . . . . . . = Value    0000330A
TBL2 . . . . . . . . . . . . . . = Value    00003016
TBL2A. . . . . . . . . . . . . . = Value    0000301B
TBL3 . . . . . . . . . . . . . . = Value    0000301D
TBL4 . . . . . . . . . . . . . . = Value    00003033
TBS. . . . . . . . . . . . . . . = Value    00003BEF
TCPCOM . . . . . . . . . . . . . = Value    00000055
TEMP . . . . . . . . . . . . . . = Value    0000202F
TEMP2. . . . . . . . . . . . . . = Value    00002A05 (not used)
TEMPA. . . . . . . . . . . . . . = Value    00003D80
TEMPB. . . . . . . . . . . . . . = Value    00003D7E
TEMPC. . . . . . . . . . . . . . = Value    00003D7C
TEMPD. . . . . . . . . . . . . . = Value    00004092
TEMPE. . . . . . . . . . . . . . = Value    00004094
TEMPF. . . . . . . . . . . . . . = Value    00004096
TENIN. . . . . . . . . . . . . . = Value    00002288
TFLAG. . . . . . . . . . . . . . = Value    00003CB1
TL1. . . . . . . . . . . . . . . = Value    00002443
TL2. . . . . . . . . . . . . . . = Value    0000245A
TL3. . . . . . . . . . . . . . . = Value    00002428
TMESS. . . . . . . . . . . . . . = Value    000046C5
TMF. . . . . . . . . . . . . . . = Value    0000241D
TMIX . . . . . . . . . . . . . . = Value    00003BFB
TMM. . . . . . . . . . . . . . . = Value    00004543
TMPA . . . . . . . . . . . . . . = Value    00002A04

VACS 2650 Cross Assembler V1.24i/w32                                           Page 93
List of Identifiers

TMPAR. . . . . . . . . . . . . . = Value    00004665
TMPS . . . . . . . . . . . . . . = Value    0000202E
TMPS2. . . . . . . . . . . . . . = Value    00002FF4
TR . . . . . . . . . . . . . . . = Value    00004232
TRSTOR . . . . . . . . . . . . . = Value    00004230
TTZ. . . . . . . . . . . . . . . = Value    00003317
TWOCH. . . . . . . . . . . . . . = Value    0000216A
TXTBUF . . . . . . . . . . . . . = Value    00002A18
TYPE . . . . . . . . . . . . . . = Value    00002CF9
ULC. . . . . . . . . . . . . . . = Value    00002118
ULCASE . . . . . . . . . . . . . = Value    00002119
UN . . . . . . . . . . . . . . . = Value    00000003
UP . . . . . . . . . . . . . . . = Value    000023F2
UPONLY . . . . . . . . . . . . . = Value    0000211F
VALID. . . . . . . . . . . . . . = Value    000038CD
WAIT . . . . . . . . . . . . . . = Value    00002DA2
WC . . . . . . . . . . . . . . . = Value    00000008
WR2ND. . . . . . . . . . . . . . = Value    00002171
WRT. . . . . . . . . . . . . . . = Value    0000458D
WRT0 . . . . . . . . . . . . . . = Value    00003D55
WRT1 . . . . . . . . . . . . . . = Value    00003D52
WRT3 . . . . . . . . . . . . . . = Value    00003D59
WRT4 . . . . . . . . . . . . . . = Value    00003D69
WRT5 . . . . . . . . . . . . . . = Value    00003D57
WRTALL . . . . . . . . . . . . . = Value    00003CA1
WRTBL. . . . . . . . . . . . . . = Value    0000458B
WRTCUR . . . . . . . . . . . . . = Value    000045C0
WRTCX. . . . . . . . . . . . . . = Value    00003D2D
WRTDX. . . . . . . . . . . . . . = Value    00003D33
WRTE0. . . . . . . . . . . . . . = Value    00003C95
WRTE1. . . . . . . . . . . . . . = Value    00003C93
WRTE5. . . . . . . . . . . . . . = Value    00003C8A
WRTETB . . . . . . . . . . . . . = Value    00003685
WRTEX. . . . . . . . . . . . . . = Value    00003C84
WRTIT. . . . . . . . . . . . . . = Value    00003D37
WRTLC. . . . . . . . . . . . . . = Value    000045A2
WRTM . . . . . . . . . . . . . . = Value    00002579 (not used)
WRTS1. . . . . . . . . . . . . . = Value    00003C87
WRTTB. . . . . . . . . . . . . . = Value    00003689
WRTZ . . . . . . . . . . . . . . = Value    00003C4D
XFER . . . . . . . . . . . . . . = Value    0000259B
Z. . . . . . . . . . . . . . . . = Value    00000000 (not used)
ZB2R . . . . . . . . . . . . . . = Value    000039A4
ZERORL . . . . . . . . . . . . . = Value    000032E1
ZFRLP. . . . . . . . . . . . . . = Value    00003534
ZTEM . . . . . . . . . . . . . . = Value    00003A20

Module Name:     *NONAME*
Module Checksum: 000BABA6

Wednesday, November 9, 2022  11:55:08

        4720 Source Lines    4720 Assembled Lines 
           1 Error, 0 Warnings.
