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

0000 = 00000001   P      EQU       1
0000 = 00000002   N      EQU       2
0000 = 00000000   Z      EQU       0
0000 = 00000002   LCOM   EQU       02H
0000 = 00000001   CAR    EQU       01H     
0000 = 00000080   SENS   EQU       80H
0000 = 00000040   FLAG   EQU       40H
0000 = 00000020   II     EQU       20H
0000 = 00000020   IDC    EQU       20H
0000 = 00000004   OVF    EQU       04H
0000 = 00000003   UN     EQU       3
0000 = 00000000   EQ     EQU       0
0000 = 00000002   LT     EQU       2
0000 = 00000001   GT     EQU       1
0000 = 00000008   WC     EQU       08H
0000 = 00000010   RS     EQU       10H
0000 = 00000020   SPAC   EQU       20H
0000 = 00000001   BMAX   EQU       1
0000 = 0000007F   DELE   EQU       7FH
0000 = 0000000D   CR     EQU       13
0000 = 0000000A   LF     EQU       10
0000 = 00000014   BLEN   EQU       20
0000 = 0000003A   STAR   EQU       ':'
0000              *
0000                     ORG       0          ;Zero mark vector and 0
0000 073F         INIT   LODI,R3   63
0002 20                  EORZ      R0
0003 CF4400       AINI   STRA,R0   COM,R3,-
0006 5B7B                BRNR,R3   AINI
0008 0477                LODI,R0   77H
000A CC0409              STRA,R0   XGOT
000D 041B                LODI,R0   1BH
000F CC040B              STRA,R0   XGOT+2
0012 0480                LODI,R0   80H
0014 CC040C              STRA,R0   XGOT+3
0017 1B09                BCTR,UN   MBUG
0019 0160         VEC    DW        BK01      ; Breakpoint vector
001B 016E                DW        BK02
001D              *
001D              * COMMAND HANDLER
001D 043F         EBUG   LODI,R0   '?'
001F 3F02B4              BSTA,UN   COUT
0022 75FF         MBUG   CPSL      0FFH
0024 3F008A              BSTA,UN   CRLF
0027 042A                LODI,R0   '*'
0029 3F02B4              BSTA,UN   COUT
002C 3B2D                BSTR,UN   LINE      ; Don't care if there is
002E 20                  EORZ      R0
002F CC0427              STRA,R0   BPTR
0032 0C0413              LODA,R0   BUFF
0035 E441                COMI,R0   'A'
0037 1C00AB              BCTA,EQ   ALTE
003A E442                COMI,R0   'B'
003C 1C01E5              BCTA,EQ   BKPT
003F E443                COMI,R0   'C'
0041 1C01CA              BCTA,EQ   CLR
0044 E444                COMI,R0   'D'
0046 1C0310              BCTA,EQ   DUMP
0049 E447                COMI,R0   'G'
004B 1C013A              BCTA,EQ   GOTO

VACS 2650 Cross Assembler V1.24h/w32                                           Page 2

004E E44C                COMI,R0   'L'
0050 1C03B5              BCTA,EQ   LOAD
0053 E453                COMI,R0   'S'
0055 1C00F4              BCTA,EQ   SREG
0058 1F001D              BCTA,UN   EBUG
005B              * Input a CMD line into buffer
005B              * Code is 1=CR  2=LF  3=MSG+CR  4=MSG+LF
005B 07FF         LINE   LODI,R3   0FFH      ; -1
005D CF0427              STRA,R3   BPTR
0060 E714         LLIN   COMI,R3   BLEN
0062 1819                BCTR,EQ   ELIN      ; On buffer overflow
0064 3F0286              BSTA,UN   CHIN      ; Get char
0067 E47F                COMI,R0   DELE
0069 980E                BCFR,EQ   ALIN
006B E7FF                COMI,R3   0FFH      ; -1 Echo and back ptr
006D 1871                BCTR,EQ   LLIN
006F 0F6413              LODA,R0   BUFF,R3
0072 3F02B4              BSTA,UN   COUT
0075 A701                SUBI,R3   1
0077 1B67                BCTR,UN   LLIN
0079 E40D         ALIN   COMI,R0   CR
007B 9818                BCFR,EQ   BLIN
007D 0501         ELIN   LODI,R1   1
007F 03           CLIN   LODZ      R3
0080 1A02                BCTR,N    DLIN
0082 8502                ADDI,R1   2
0084 CD042A       DLIN   STRA,R1   CODE
0087 CF0429              STRA,R3   CNT
008A 040D         CRLF   LODI,R0   CR
008C 3F02B4              BSTA,UN   COUT
008F 040A                LODI,R0   LF
0091 3F02B4              BSTA,UN   COUT
0094 17                  RETC,UN
0095 0502         BLIN   LODI,R1   2
0097 E40A                COMI,R0   LF
0099 1864                BCTR,EQ   CLIN
009B CF2413              STRA,R0   BUFF,R3,+ ; Store char and echo
009E 3F02B4              BSTA,UN   COUT
00A1 1F0060              BCTA,UN   LLIN
00A4              *
00A4              * Subr that stores double precision into temp
00A4 CD040D       STRT   STRA,R1   TEMP
00A7 CE040E              STRA,R2   TEMP+1
00AA 17                  RETC,UN
00AB              * Display and alter memory
00AB 3F02DB       ALTE   BSTA,UN   GNUM
00AE 3B74         LALT   BSTR,UN   STRT                
00B0 3F0269              BSTA,UN   BOUT
00B3 0D040E              LODA,R1   TEMP+1
00B6 3F0269              BSTA,UN   BOUT
00B9 3F035B              BSTA,UN   FORM
00BC 0D840D              LODA,R1   *TEMP     ; Display content
00BF 3F0269              BSTA,UN   BOUT
00C2 3F035B              BSTA,UN   FORM
00C5 3F005B              BSTA,UN   LINE
00C8 0C042A              LODA,R0   CODE
00CB E402                COMI,R0   2
00CD 1E0022              BCTA,LT   MBUG
00D0 1811                BCTR,EQ   DALT
00D2 CC0411       CALT   STRA,R0   TEMR

VACS 2650 Cross Assembler V1.24h/w32                                           Page 3

00D5 3F02DB              BSTA,UN   GNUM
00D8 CE840D              STRA,R2   *TEMP     ; Update contents
00DB 0C0411              LODA,R0   TEMR
00DE E404                COMI,R0   4
00E0 9C0022              BCFA,EQ   MBUG
00E3 0601         DALT   LODI,R2   1
00E5 8E040E              ADDA,R2   TEMP+1
00E8 0500                LODI,R1   0
00EA 7708                PPSL      WC
00EC 8D040D              ADDA,R1   TEMP
00EF 7508                CPSL      WC
00F1 1F00AE              BCTA,UN   LALT
00F4              * Selectively display and alter registers
00F4 3F02DB       SREG   BSTA,UN   GNUM      ; Get index of reg
00F7 E608         LSRE   COMI,R2   8         ; Check range
00F9 1D001D              BCTA,GT   EBUG
00FC CE0411              STRA,R2   TEMR
00FF 0E6400              LODA,R0   COM,R2    ; Display contents
0102 C1                  STRZ      R1
0103 3F0269              BSTA,UN   BOUT
0106 3F035B              BSTA,UN   FORM
0109 3F005B              BSTA,UN   LINE
010C 0C042A              LODA,R0   CODE
010F E402                COMI,R0   2
0111 1E0022              BCTA,LT   MBUG      ; CR
0114 181C                BCTR,EQ   CSRE      ; LF
0116 CC040F       ASRE   STRA,R0   TEMQ      ; Upate contents, then
0119 3F02DB              BSTA,UN   GNUM
011C 02                  LODZ      R2
011D 0E0411              LODA,R2   TEMR
0120 CE6400              STRA,R0   COM,R2
0123 E608                COMI,R2   8         ; Must update PSW lower
0125 9803                BCFR,EQ   BSRE
0127 CC040A              STRA,R0   XGOT+1
012A 0C040F       BSRE   LODA,R0   TEMQ
012D E403                COMI,R0   3
012F 1C0022              BCTA,EQ   MBUG
0132 0E0411       CSRE   LODA,R2   TEMR
0135 8601                ADDI,R2   1
0137 1F00F7              BCTA,UN   LSRE
013A              * Goto Address
013A 3F02DB       GOTO   BSTA,UN   GNUM
013D 3F00A4              BSTA,UN   STRT      ; Put addr in RAM
0140 0C0407              LODA,R0   COM+7
0143 92                  LPSU
0144 0D0401              LODA,R1   COM+1     ; Bank zero
0147 0E0402              LODA,R2   COM+2
014A 0F0403              LODA,R3   COM+3
014D 7710                PPSL      RS        ; Bank one
014F 0D0404              LODA,R1   COM+4
0152 0E0405              LODA,R2   COM+5
0155 0F0406              LODA,R3   COM+6
0158 0C0400              LODA,R0   COM
015B 75FF                CPSL      0FFH
015D 1F0409              BCTA,UN   XGOT      ; and BCTA,UN $TEMP
0160              *
0160              * Breakpoint Runtime Code
0160 CC0400       BK01   STRA,R0   COM       ; Entry for BKPT-1 VIA V
0163 13                  SPSL
0164 CC0408              STRA,R0   COM+8

VACS 2650 Cross Assembler V1.24h/w32                                           Page 4

0167 CC040A              STRA,R0   XGOT+1    ; In RAM for reg restore
016A 0400                LODI,R0   0         ; BKPT index
016C 1B0C                BCTR,UN   BKEN
016E CC0400       BK02   STRA,R0   COM       ; Entry for BKPT-2
0171 13                  SPSL
0172 CC0408              STRA,R0   COM+8
0175 CC040A              STRA,R0   XGOT+1
0178 0401                LODI,R0   1
017A CC0411       BKEN   STRA,R0   TEMR
017D 12                  SPSU
017E CC0407              STRA,R0   COM+7
0181 7710                PPSL      RS
0183 CD0404              STRA,R1   COM+4
0186 CE0405              STRA,R2   COM+5
0189 CF0406              STRA,R3   COM+6
018C 7510                CPSL      RS        ; Force to bank zero
018E CD0401              STRA,R1   COM+1
0191 CE0402              STRA,R2   COM+2
0194 CF0403              STRA,R3   COM+3
0197 0E0411              LODA,R2   TEMR
019A 3B0F                BSTR,UN   CLBK
019C 0D040D              LODA,R1   TEMP      ; Print BKPT addr
019F 3F0269              BSTA,UN   BOUT
01A2 0D040E              LODA,R1   TEMP+1
01A5 3F0269              BSTA,UN   BOUT
01A8 1F0022              BCTA,UN   MBUG
01AB              * Subr to clear a BKPT  Like many subr has rel addr   
01AB 20           CLBK   EORZ      R0
01AC CE642D              STRA,R0   MARK,R2
01AF 0E6433              LODA,R0   HADR,R2
01B2 CC040D              STRA,R0   TEMP
01B5 0E6435              LODA,R0   LADR,R2
01B8 CC040E              STRA,R0   TEMP+1
01BB 0E642F              LODA,R0   HDAT,R2
01BE CC840D              STRA,R0   *TEMP
01C1 0E6431              LODA,R0   LDAT,R2
01C4 0701                LODI,R3   1
01C6 CFE40D              STRA,R0   *TEMP,R3
01C9 17                  RETC,UN
01CA              * Break point  Mark indicates if set
01CA              * HADR +LADR is BKPT addr,  HDAT + LDAT is two byte
01CA 3B0B         CLR    BSTR,UN   NOK
01CC 0E642D              LODA,R0   MARK,R2   ; Clear it if set
01CF 1C001D              BCTA,Z    EBUG
01D2 3B57                BSTR,UN   CLBK
01D4 1F0022              BCTA,UN   MBUG
01D7 3F02DB       NOK    BSTA,UN   GNUM      ; Check range on BKPT number
01DA A601                SUBI,R2   1
01DC 1E0250              BCTA,N    ABRT
01DF E601                COMI,R2   BMAX
01E1 1D0250              BCTA,GT   ABRT
01E4 17                  RETC,UN
01E5 3B70         BKPT   BSTR,UN   NOK
01E7 0E642D              LODA,R0   MARK,R2
01EA BC01AB              BSFA,Z    CLBK      ; Clear existing
01ED CE0411              STRA,R2   TEMR
01F0 3F02DB              BSTA,UN   GNUM      ; Get BKPT addr
01F3 3F00A4              BSTA,UN   STRT      ; Subr to store r1-r2 in
01F6 0F0411              LODA,R3   TEMR
01F9 02                  LODZ      R2

VACS 2650 Cross Assembler V1.24h/w32                                           Page 5

01FA CF6435              STRA,R0   LADR,R3
01FD 01                  LODZ      R1
01FE CF6433              STRA,R0   HADR,R3
0201 0C840D              LODA,R0   *TEMP     ; Save contents
0204 CF642F              STRA,R0   HDAT,R3
0207 059B                LODI,R1   9BH       ; = ZBBR
0209 CD840D              STRA,R1   *TEMP
020C 0601                LODI,R2   1
020E 0EE40D              LODA,R0   *TEMP,R2
0211 CF6431              STRA,R0   LDAT,R3
0214 0F6222              LODA,R0   DISP,R3
0217 CEE40D              STRA,R0   *TEMP,R2
021A 04FF                LODI,R0   0FFH      ; -1
021C CF642D              STRA,R0   MARK, R3
021F 1F0022              BCTA,UN   MBUG
0222 99           DISP   DB        VEC+80H       
0223 9B                  DB        VEC+80H+2
0224              *
0224              * Input two hex chars and form as byte in R1
0224 3F0286       BIN    BSTA,UN   CHIN
0227 3B1D                BSTR,UN   LKUP
0229 D3                  RRL,R3
022A D3                  RRL,R3
022B D3                  RRL,R3
022C D3                  RRL,R3
022D CF0412              STRA,R3   TEMS
0230 3F0286              BSTA,UN   CHIN
0233 3B11                BSTR,UN   LKUP
0235 6F0412              IORA,R3   TEMS
0238 03                  LODZ      R3
0239 C1                  STRZ      R1
023A 3B01                BSTR,UN   CBCC
023C 17                  RETC,UN
023D              * Calculate the BCC char, EOR and then rotate left
023D 01           CBCC   LODZ      R1
023E 2C042C              EORA,R0   BCC
0241 D0                  RRL,R0
0242 CC042C              STRA,R0   BCC
0245 17                  RETC,UN
0246              * Lookup ASCII char in hex value table
0246 0710         LKUP   LODI,R3   16
0248 EF4259       ALKU   COMA,R0   ANSI,R3,-
024B 14                  RETC,EQ
024C E701                COMI,R3   1
024E 9A78                BCFR,LT   ALKU
0250              * Abort exit from any level of subr
0250              * Use RAS ptr since possible BKPT prog using it
0250 0C0407       ABRT   LODA,R0   COM+7
0253 6440                IORI,R0   40H
0255 12                  SPSU
0256 1F001D              BCTA,UN   EBUG
0259 30313233     ANSI   DB        '0123'
025D 34353637            DB        '4567'
0261 38394142            DB        '89AB'
0265 43444546            DB        'CDEF'
0269              * Byte in R1 output in hex
0269 CD0412       BOUT   STRA,R1   TEMS
026C 3B4F                BSTR,UN   CBCC
026E 51                  RRR,R1
026F 51                  RRR,R1

VACS 2650 Cross Assembler V1.24h/w32                                           Page 6

0270 51                  RRR,R1
0271 51                  RRR,R1
0272 450F                ANDI,R1   0FH
0274 0D6259              LODA,R0   ANSI,R1
0277 3F02B4              BSTA,UN   COUT
027A 0D0412              LODA,R1   TEMS
027D 450F                ANDI,R1   0FH
027F 0D6259              LODA,R0   ANSI,R1
0282 3F02B4              BSTA,UN   COUT
0285 17                  RETC,UN
0286              * 110 baud input for papertape and char  1Mhz clock
0286 7710         CHIN   PPSL      RS
0288 0480                LODI,R0   80H
028A B0                  WRTC,R0
028B 0500                LODI,R1   0
028D 0608                LODI,R2   8
028F 12           ACHI   SPSU
0290 1A74                BCTR,LT   CHIN
0292 20                  EORZ      R0
0293 B0                  WRTC,R0
0294 3B17                BSTR,UN   DLY
0296 3B10         BCHI   BSTR,UN   DLAY
0298 12                  SPSU
0299 4480                ANDI,R0   80H
029B 51                  RRR,R1
029C 61                  IORZ      R1
029D C1                  STRZ      R1
029E FA76                BDRR,R2   BCHI
02A0 3B06                BSTR,UN   DLAY
02A2 457F                ANDI,R1   7FH       ; Delete parity bit
02A4 01                  LODZ      R1
02A5 7518                CPSL      RS+WC
02A7 17                  RETC,UN
02A8              * Delay for one bit time
02A8 20           DLAY   EORZ      R0
02A9 F87E                BDRR,R0   $
02AB F87E                BDRR,R0   $
02AD F87E         DLY    BDRR,R0   $
02AF 04E5                LODI,R0   0E5H
02B1 F87E                BDRR,R0   $
02B3 17                  RETC,UN
02B4              *
02B4 7710         COUT   PPSL      RS
02B6 7640                PPSU      FLAG
02B8 C2                  STRZ      R2
02B9 0508                LODI,R1   8
02BB 3B6B                BSTR,UN   DLAY
02BD 3B69                BSTR,UN   DLAY
02BF 7440                CPSU      FLAG
02C1 3B65         ACOU   BSTR,UN   DLAY
02C3 52                  RRR,R2
02C4 1A04                BCTR,LT   ONE
02C6 7440                CPSU      FLAG
02C8 1B02                BCTR,UN   ZERO
02CA 7640         ONE    PPSU      FLAG
02CC F973         ZERO   BDRR,R1   ACOU
02CE 3B58                BSTR,UN   DLAY
02D0 7640                PPSU      FLAG
02D2 7510                CPSL      RS
02D4 17                  RETC,UN

VACS 2650 Cross Assembler V1.24h/w32                                           Page 7

02D5              *
02D5              * Get a number from the buffer into R1 - R2
02D5 0C042A       DNUM   LODA,R0   CODE
02D8 1807                BCTR,Z    LNUM      ; Skip spaces until EOB
02DA 17                  RETC,UN             ; or space ending number
02DB 20           GNUM   EORZ      R0
02DC C1                  STRZ      R1
02DD C2                  STRZ      R2
02DE CC042A              STRA,R0   CODE
02E1 0F0427       LNUM   LODA,R3   BPTR
02E4 EF0429              COMA,R3   CNT       ; Check for EOB
02E7 14                  RETC,EQ
02E8 0F2413              LODA,R0   BUFF,R3,+ ; Get char
02EB CF0427              STRA,R3   BPTR
02EE E420                COMI,R0   SPAC
02F0 1863                BCTR,EQ   DNUM
02F2 3F0246       BNUM   BSTA,UN   LKUP       
02F5 040F         CNUM   LODI,R0   0FH       ; R1=AB R2=DD
02F7 D2                  RRL,R2
02F8 D2                  RRL,R2
02F9 D2                  RRL,R2
02FA D2                  RRL,R2
02FB 42                  ANDZ      R2
02FC D1                  RRL,R1
02FD D1                  RRL,R1
02FE D1                  RRL,R1
02FF D1                  RRL,R1
0300 45F0                ANDI,R1   0F0H;
0302 46F0                ANDI,R2   0F0H      ; R0=C R1=B0 R2=D0 R3=V
0304 61                  IORZ      R1
0305 C1                  STRZ      R1
0306 03                  LODZ      R3
0307 62                  IORZ      R2
0308 C2                  STRZ      R2        ; R1=BC R2=DV
0309 0401                LODI,R0   1
030B CC042A              STRA,R0   CODE
030E 1B51                BCTR,UN   LNUM
0310              * Dump to paper tape in object format
0310 3B49         DUMP   BSTR,UN   GNUM      ; Start address
0312 3F00A4              BSTA,UN   STRT
0315 3B44                BSTR,UN   GNUM
0317 8601                ADDI,R2   1
0319 7708                PPSL      WC
031B 8500                ADDI,R1   0
031D 7508                CPSL      WC        ; Make end addr not incl
031F CD040F              STRA,R1   TEMQ
0322 CE0410              STRA,R2   TEMQ+1
0325 3B38         FDUM   BSTR,UN   GAP
0327 04FF                LODI,R0   0FFH      ; -1
0329 CC0429              STRA,R0   CNT
032C 3F008A              BSTA,UN   CRLF      ; Punch for CR/LF and star
032F 043A                LODI,R0   STAR
0331 3F02B4              BSTA,UN   COUT
0334 20                  EORZ      R0
0335 CC042C              STRA,R0   BCC
0338 0D040F              LODA,R1   TEMQ
033B 0E0410              LODA,R2   TEMQ+1
033E AE040E              SUBA,R2   TEMP+1    ; Get byte count
0341 7708                PPSL      WC
0343 AD040D              SUBA,R1   TEMP

VACS 2650 Cross Assembler V1.24h/w32                                           Page 8

0346 7508                CPSL      WC
0348 1E001D              BCTA,N    EBUG      ; Start > end addr
034B 191C                BCTR,P    ADUM      ; Cnt > normal block size
034D 5A1C                BRNR,R2   BDUM      ; This is short block
034F 0704                LODI,R3   4         ; EOF. Punch zero blk
0351 3F0269       CDUM   BSTA,UN   BOUT
0354 FB7B                BDRR,R3   CDUM
0356 3B07                BSTR,UN   GAP
0358 1F0022              BCTA,UN   MBUG
035B              * Subrs for outputting blanks
035B 0703         FORM   LODI,R3   3
035D 1B02                BCTR,UN   AGAP
035F 0732         GAP    LODI,R3   50
0361 0420         AGAP   LODI,R0   SPAC
0363 3F02B4              BSTA,UN   COUT
0366 FB79                BDRR,R3   AGAP
0368 17                  RETC,UN
0369 06FF         ADUM   LODI,R2   255
036B CE0428       BDUM   STRA,R2   MCNT
036E 0D040D              LODA,R1   TEMP      ; Starting address
0371 3F0269              BSTA,UN   BOUT
0374 0D040E              LODA,R1   TEMP+1
0377 3F0269              BSTA,UN   BOUT
037A 0D0428              LODA,R1   MCNT      ; Count of data bytes in
037D 3F0269              BSTA,UN   BOUT
0380 0D042C              LODA,R1   BCC
0383 3F0269              BSTA,UN   BOUT
0386 0F0429       DDUM   LODA,R3   CNT
0389 0FA40D              LODA,R0   *TEMP,R3,+
038C EF0428              COMA,R3   MCNT
038F 1809                BCTR,EQ   EDUM      ; Output BCC
0391 CF0429              STRA,R3   CNT
0394 C1                  STRZ      R1
0395 3F0269              BSTA,UN   BOUT
0398 1B6C                BCTR,UN   DDUM
039A 0D042C       EDUM   LODA,R1   BCC
039D 3F0269              BSTA,UN   BOUT
03A0 0E040E              LODA,R2   TEMP+1
03A3 8E0428              ADDA,R2   MCNT
03A6 0500                LODI,R1   0
03A8 7708                PPSL      WC
03AA 8D040D              ADDA,R1   TEMP
03AD 7508                CPSL      WC
03AF 3F00A4              BSTA,UN   STRT
03B2 1F0325              BCTA,UN   FDUM
03B5              * Load from papertape in object format
03B5 3F0286       LOAD   BSTA,UN   CHIN      ; Look for start char
03B8 E43A                COMI,R0   STAR
03BA 9879                BCFR,EQ   LOAD
03BC 20                  EORZ      R0
03BD CC042C              STRA,R0   BCC
03C0 3F0224              BSTA,UN   BIN       ; Read addr and count in
03C3 CD040D              STRA,R1   TEMP
03C6 3F0224              BSTA,UN   BIN
03C9 CD040E              STRA,R1   TEMP+1
03CC 3F0224              BSTA,UN   BIN
03CF 5903                BRNR,R1   ALOA
03D1 1F840D              BCTA,UN   *TEMP
03D4 CD0428       ALOA   STRA,R1   MCNT
03D7 3F0224              BSTA,UN   BIN       ; Check BCC on information

VACS 2650 Cross Assembler V1.24h/w32                                           Page 9

03DA 0C042C              LODA,R0   BCC
03DD 9C001D              BCFA,Z    EBUG
03E0 C3                  STRZ      R3        ; Read data
03E1 CF0429       BLOA   STRA,R3   CNT
03E4 3F0224              BSTA,UN   BIN
03E7 0F0429              LODA,R3   CNT
03EA EF0428              COMA,R3   MCNT
03ED 1806                BCTR,EQ   CLOA      ; Have read BCC
03EF 01                  LODZ      R1
03F0 CFE40D              STRA,R0   *TEMP,R3  ; Store data
03F3 DB6C                BIRR,R3   BLOA
03F5 0C042C       CLOA   LODA,R0   BCC
03F8 9C001D              BCFA,Z    EBUG
03FB 1F03B5              BCTA,UN   LOAD
03FE              *
0400                     ORG       0400H
0400              *******     RAM Definitions
0400              COM    DS        9
0409              XGOT   DS        2         ; PPSL      0
040B                     DS        2         ; BCTR,UN   *$+2      
040D                                         ; Must precede the TEMP
040D              TEMP   DS        2
040F              TEMQ   DS        2
0411              TEMR   DS        1
0412              TEMS   DS        1
0413              BUFF   DS        BLEN
0427              BPTR   DS        1
0428              MCNT   DS        1
0429              CNT    DS        1
042A              CODE   DS        1
042B              OKGO   DS        1
042C              BCC    DS        1
042D              MARK   DS        BMAX+1
042F              HDAT   DS        BMAX+1
0431              LDAT   DS        BMAX+1
0433              HADR   DS        BMAX+1
0435              LADR   DS        BMAX+1
0437 > 0000       END

VACS 2650 Cross Assembler V1.24h/w32                                           Page 10
List of Identifiers

%pipbug (default). . . . . . . . = Section  0000-0436 (Byte)
ABRT . . . . . . . . . . . . . . = Value    00000250
ACHI . . . . . . . . . . . . . . = Value    0000028F (not used)
ACOU . . . . . . . . . . . . . . = Value    000002C1
ADUM . . . . . . . . . . . . . . = Value    00000369
AGAP . . . . . . . . . . . . . . = Value    00000361
AINI . . . . . . . . . . . . . . = Value    00000003
ALIN . . . . . . . . . . . . . . = Value    00000079
ALKU . . . . . . . . . . . . . . = Value    00000248
ALOA . . . . . . . . . . . . . . = Value    000003D4
ALTE . . . . . . . . . . . . . . = Value    000000AB
ANSI . . . . . . . . . . . . . . = Value    00000259
ASRE . . . . . . . . . . . . . . = Value    00000116 (not used)
BCC. . . . . . . . . . . . . . . = Value    0000042C
BCHI . . . . . . . . . . . . . . = Value    00000296
BDUM . . . . . . . . . . . . . . = Value    0000036B
BIN. . . . . . . . . . . . . . . = Value    00000224
BK01 . . . . . . . . . . . . . . = Value    00000160
BK02 . . . . . . . . . . . . . . = Value    0000016E
BKEN . . . . . . . . . . . . . . = Value    0000017A
BKPT . . . . . . . . . . . . . . = Value    000001E5
BLEN . . . . . . . . . . . . . . = Value    00000014
BLIN . . . . . . . . . . . . . . = Value    00000095
BLOA . . . . . . . . . . . . . . = Value    000003E1
BMAX . . . . . . . . . . . . . . = Value    00000001
BNUM . . . . . . . . . . . . . . = Value    000002F2 (not used)
BOUT . . . . . . . . . . . . . . = Value    00000269
BPTR . . . . . . . . . . . . . . = Value    00000427
BSRE . . . . . . . . . . . . . . = Value    0000012A
BUFF . . . . . . . . . . . . . . = Value    00000413
CALT . . . . . . . . . . . . . . = Value    000000D2 (not used)
CAR. . . . . . . . . . . . . . . = Value    00000001 (not used)
CBCC . . . . . . . . . . . . . . = Value    0000023D
CDUM . . . . . . . . . . . . . . = Value    00000351
CHIN . . . . . . . . . . . . . . = Value    00000286
CLBK . . . . . . . . . . . . . . = Value    000001AB
CLIN . . . . . . . . . . . . . . = Value    0000007F
CLOA . . . . . . . . . . . . . . = Value    000003F5
CLR. . . . . . . . . . . . . . . = Value    000001CA
CNT. . . . . . . . . . . . . . . = Value    00000429
CNUM . . . . . . . . . . . . . . = Value    000002F5 (not used)
CODE . . . . . . . . . . . . . . = Value    0000042A
COM. . . . . . . . . . . . . . . = Value    00000400
COUT . . . . . . . . . . . . . . = Value    000002B4
CR . . . . . . . . . . . . . . . = Value    0000000D
CRLF . . . . . . . . . . . . . . = Value    0000008A
CSRE . . . . . . . . . . . . . . = Value    00000132
DALT . . . . . . . . . . . . . . = Value    000000E3
DDUM . . . . . . . . . . . . . . = Value    00000386
DELE . . . . . . . . . . . . . . = Value    0000007F
DISP . . . . . . . . . . . . . . = Value    00000222
DLAY . . . . . . . . . . . . . . = Value    000002A8
DLIN . . . . . . . . . . . . . . = Value    00000084
DLY. . . . . . . . . . . . . . . = Value    000002AD
DNUM . . . . . . . . . . . . . . = Value    000002D5
DUMP . . . . . . . . . . . . . . = Value    00000310
EBUG . . . . . . . . . . . . . . = Value    0000001D
EDUM . . . . . . . . . . . . . . = Value    0000039A
ELIN . . . . . . . . . . . . . . = Value    0000007D

VACS 2650 Cross Assembler V1.24h/w32                                           Page 11
List of Identifiers

EQ . . . . . . . . . . . . . . . = Value    00000000
FDUM . . . . . . . . . . . . . . = Value    00000325
FLAG . . . . . . . . . . . . . . = Value    00000040
FORM . . . . . . . . . . . . . . = Value    0000035B
GAP. . . . . . . . . . . . . . . = Value    0000035F
GNUM . . . . . . . . . . . . . . = Value    000002DB
GOTO . . . . . . . . . . . . . . = Value    0000013A
GT . . . . . . . . . . . . . . . = Value    00000001
HADR . . . . . . . . . . . . . . = Value    00000433
HDAT . . . . . . . . . . . . . . = Value    0000042F
IDC. . . . . . . . . . . . . . . = Value    00000020 (not used)
II . . . . . . . . . . . . . . . = Value    00000020 (not used)
INIT . . . . . . . . . . . . . . = Value    00000000 (not used)
LADR . . . . . . . . . . . . . . = Value    00000435
LALT . . . . . . . . . . . . . . = Value    000000AE
LCOM . . . . . . . . . . . . . . = Value    00000002 (not used)
LDAT . . . . . . . . . . . . . . = Value    00000431
LF . . . . . . . . . . . . . . . = Value    0000000A
LINE . . . . . . . . . . . . . . = Value    0000005B
LKUP . . . . . . . . . . . . . . = Value    00000246
LLIN . . . . . . . . . . . . . . = Value    00000060
LNUM . . . . . . . . . . . . . . = Value    000002E1
LOAD . . . . . . . . . . . . . . = Value    000003B5
LSRE . . . . . . . . . . . . . . = Value    000000F7
LT . . . . . . . . . . . . . . . = Value    00000002
MARK . . . . . . . . . . . . . . = Value    0000042D
MBUG . . . . . . . . . . . . . . = Value    00000022
MCNT . . . . . . . . . . . . . . = Value    00000428
N. . . . . . . . . . . . . . . . = Value    00000002
NOK. . . . . . . . . . . . . . . = Value    000001D7
OKGO . . . . . . . . . . . . . . = Value    0000042B (not used)
ONE. . . . . . . . . . . . . . . = Value    000002CA
OVF. . . . . . . . . . . . . . . = Value    00000004 (not used)
P. . . . . . . . . . . . . . . . = Value    00000001
RS . . . . . . . . . . . . . . . = Value    00000010
SENS . . . . . . . . . . . . . . = Value    00000080 (not used)
SPAC . . . . . . . . . . . . . . = Value    00000020
SREG . . . . . . . . . . . . . . = Value    000000F4
STAR . . . . . . . . . . . . . . = Value    0000003A
STRT . . . . . . . . . . . . . . = Value    000000A4
TEMP . . . . . . . . . . . . . . = Value    0000040D
TEMQ . . . . . . . . . . . . . . = Value    0000040F
TEMR . . . . . . . . . . . . . . = Value    00000411
TEMS . . . . . . . . . . . . . . = Value    00000412
UN . . . . . . . . . . . . . . . = Value    00000003
VEC. . . . . . . . . . . . . . . = Value    00000019
WC . . . . . . . . . . . . . . . = Value    00000008
XGOT . . . . . . . . . . . . . . = Value    00000409
Z. . . . . . . . . . . . . . . . = Value    00000000
ZERO . . . . . . . . . . . . . . = Value    000002CC

Module Name:     *NONAME*
Module Checksum: 000109ED

Sunday, August 24, 2008  00:21:46

         518 Source Lines     518 Assembled Lines        14296 Bytes Available

                >>>>   No Assembly Errors Detected.   <<<<
