>7$J_>: `Q$ȋ @ B C  ` YSjLKe8}Kj~xeK7 MP }K9jLpK%8}Kąe K #Y`K 9wWK&:K1  "{L}K  \rK %K .; UPDATE 14 MAY 73 RASM.S21 ; UPDATE 26 APR 73 RASM.S20 - CONVERSION TO ROS 3.0 ; UPDATE 19 27 JUN 1972 ALL EXIT TYPES TO 2 AND ADD NO CHECKPOIN ; UPDATE 18 29 APR 1972 MINOR CLEANUP AND MAKE INTO AN OVERLAY TASK. ; UPDATE 17 26 APR 1972 CLEAN UO EXIT ON ERRORS. ; UPDATE 16 21 APR 1972 CLEAN UP, 'NONE' IN UNDEF SYM LISTING, ; EDIT OF SYMBOL LISTING ; UPDATE 15 10 APR 1972 ADD BFUPADD BFUP, GET RID OF INI&@pBw ?06 "T T ~~E0f8f<M `Txw , e BfE͓͋7  @ D$ e6 B  @ǁP%Haw eN1" $#  ̋ NC ̋&͕ E  E?  &    w 6"&f&! /8G /V e@8f f" T, AND ; CLEAN UP ; UPDATE 14 23 MAR 1972 ERR #, SYMBOL LISTING, RLD BYTE COUNT ; UPDATE 13 22 MAR 1972 PACJING, FORMATS, SYMBOL LIST, BIANRY ; UPDATE 12 21 MAR 1972 RLDOUT,PHEAD,SPACE COM,.END,BINDEC ; UPDATE 11 19 MAR 1972 FIX BINDEC, PHEAD, AND BFWRIT ; UPDATE 10 16 MAR 1972 FIX SPACE COMPRESS, ERROUT, BFWRIT, & BFREAD ; UPDATE 9 15 MAR 1972 CLEAN UP AND CONTROL WRD IN CREADER ; UPDATE 8 14 MAR 1972 ADD BHߓ1$:Ó C"""E8bw ,0B 5  wU   7 ~f  7 faC$&pcF %$C%@`Գ Aa ,Ӌ(q%(  EUHQ̳ (&  Β ,^ 6S$%5beNa  搎NŀW W  װΌeΌ%H p MECP  "ϰU ` ( U (0 w w &* $$$E e)U@    J U@w  "Ő ea*Y p ŐŊ& " E T (P $bc H  U  "b UE T0 0 ŋU  pU2"װw  <@E%A! װ5KE֊EeEU%p!Ed Qbep "װ,ŀ Q 5lH!Oc Jp  ŌW  IװAa Q  `E(f a c   KаOe$d d cĊ  l "    E f ы   D"ᆃ עJ` فרJ b @( &^  WORD TO I/O LISTS, ETC. ; UPDATE 7 13 MAR 1972 CLEAN UP ; UPDATE 6 7 MAR 1972 FIX UP STACK AND STKSIZ ; UPDATE 5 7 MAR 1972 ADDITION OF PST(WITH /45) TO RASM ; UPDATE 4 24 FEB 1972 FROM V03 TO V04 INCLUDES V2A UPDATE ; TO FIX UP '.LINES' AND CHANGE THE LINE ; NUMBER TO 8 CHARACTERS. ; UPDATE 3 6 FEB 1972 FROM V02 TO V03 ; UPDATE 1 3 FEB 1972 FROM V01 TO V02 ;********************************* eQ$e Z ` e "E 7R   DD` D0 :  !w > F @_f 0w  MONITOR V004A ߋt͋_v0&t*t&t*t:sroCyyz/N`Vq+fEE-/D' &&SNQK-|KKoT      7 7 hw f@e@  K"e E\  K"M W e    w R < w$ ew LB   w  \< w ew | 56 e? 0 @#E?UU6 3 w(  6  < wL epe4K#@$2  1  3 0 '@fDe"@  H P **************************************RAS ; R A S M *RAS ; *RAS ; PROGRAM IDENTIFICATION: ROS ASSEMBLER *RAS ; *RAS ; PROGRAM USAGE: THIS IS THE DEC-PAL11R ASSEMBLER WITH MODIFIED *RAS ; I/O TO PERMIT IS USE WITH ROS. OTHER THAN A *RAS ,l&, e / f#)"#W! J %e&Aѕ & e|eD w   $D VeP&& e w 2(xAL%ɋ   0p K H r  c1  ^N̋me &RRRReRe L  , L e$Q$ ,^ L w&t 1 VB,BWf& p0e04 wJw W ͕,RA!ʕ . ee4/  %  Q$U$U%  AB I#   f& f a( ֵ W&&  %  ,^ b)̌ $$ &$b$"  h"  ⁁Wx &e !+ffe5@'&&f}  CE Df ͝U@e U W Ɂ w  W Mw l W W ! f cU 8We U N U e U U  F!- F e F!- f  B EpS $`1 $ ^C . DATE:- TIME:- EEaC$&pcF %$C%@`Գ Aa ; FIXED SIZE FOR THE SYMBOL TABLE IT IS THE SAME. *RAS ; A COMPLET DISCUSSION OF ITS METHODS, INPUT, AND *RAS ; OUTPUT IS CONTAINED IN THE CURRENT DEC PAL11R *RAS ; USER'S GUIDE. IT SHOULD BE NOTED THAT RASM *RAS ; DOES NOT USE OVERLAYS, PERMITS ONLY A SINGLE *RAS ; SOURCE INPUT ELEMENT, AND PLACES ITS OUTPUT *RAS ; IN A BFUP ELEMENT ŋU  pU2"װw  <@E%A! װ5KE֊EeEU%p!Ed Qbep "װ,ŀ Q 5lH!Oc Jp  ŌW  IװAa Q  `E(f a c   KаOe$d d cĊ  l "    E f ы   D"ᆃ עJ` فרJ b @( &^ DqF   e 3/ . fe& E NaeEM MJ f& NJ  f ,^ _e   A̋$)&E eAaW$  p  EW" gE( ևJ!  W=J(@U%EE ,^ $)6; "&f( f0 R,E KSa KcW" ge B Q$p  ֝,U%g"MBbF $D`);D` &*   y54- &&( $&& .^  (  t  e!&#Ee   U E3!( &W E$ &  .^ 8  e C@! &.^  U%g"G$B$bF %? EL05AaAa5EEd e (  &* e U  U@ NAMED BY THE LAST .TITLE CARD *RAS ; PROCESSED. *RAS ; RASM IS A TASK WHICH OPERATES UNDER ROS/LEVE 2. *RAS ; TO USE RASM, 'AS' IS INPUT TO THE OPERATOR *RAS ; COMMUNICATION PROCESSOR. THIS WILL CAUSE RASM *RAS ; TO BE PLACED IN THE ROS QUEUE. WHEN IT IS *RAS ; DISPATCHED, IT WILL READ THE SOURCE PROGRAM *RAS ; )SE    0  U%g"Gac)$BbF %"g aE[$[  c ,J Oc! K C` L5 s V&* C`$U5$B  $5$U@(  *g"G܀ (    %0 C`  J D`$ !$$a!!  (( #)#" ͋͊Q$B S($3z]wE_P hfkNfmCMoErv-xqF $$D` R&*  D`̋E B ȋ9 ($) & & .^   U%g"G$5"ۆ 5`  :  E  U (  e: ("$ `%͋͊GhhE6 w7 l Õ7 p  7 Hwr wb7 *CW Հ |7 7  B߳tՀߕ@t97 D672G7 FՀ  %& n (   7 Nߓp2|߳t&^  #ʔ `Z 7 & 7 2 ~   j ꀣw e@@ tA @ w pe 2̓@ p @ d e6B @%w"CY7Xe  ߓp4 w|  FROM THE CARD READER, STORE THE IMAGES IN THE *RAS ; BFUP FILE AS ELEMENT 'RASRC', PROCESS THE *RAS ; SOURCE STATEMENTS USING 2 PASSES, PRODUCE A *RAS ; OBJECT MODULE IN THE BFUP FILM, DELETE 'RASRC', *RAS ; AND EXIT. IT MUST BE REQUEUED TO ASSEMBLE A *RAS ; SECOND PROGRAM. DURING PASS 2, A LISTING WILL *RAS ; BE PRODUCED ON THE LINE @$ $7 !7vv@@&EPe dΓ 3  ;'8 O76  ew%ߕ $^ $ )ɐ ǁ $^ f5ɕ &M 585 U ѐB`Ѱ `L7 & <f7 7> l  ߟn U@l$_  lx f7e~Tv.xf 77UAh h j UAh$^ h px  h |H.M w e w 7  7E@L LNf<ߋL- S ʋ_ \Y   Qt nIN d f^ ߋL wLJU@L$_  Lx & ߕ N   &^ %eeA mIf@ OWҕ^J@A Օ E  Iҕ\͋͊W  @ @Q Rʋ %6RbIɕ;fIAeV! פ ̕ .A!˕$Q$ ~-0  @ ߓp ̔ @! PRINTER FOLLOWED BY *RAS ; A SYMBOL TABLE LISTING. *RAS ; *RAS ; PROGRAMER: 53 *RAS ; VERSION: 1 *RAS ; DATE: 15-MAR-72 *RAS ; CATALOGUE NUMBER: *RAS ; U@ ACBc%DUe ``E  l@PHU% && ,- /$^ ( &^ & "u > U@ &^  /{;!D|"|M0K1K2./E@ ,@  ##`F U%M 5>C ( aØ` (E` fS@ EECDe0 f `$Ugzw>     e  f  E  `#' W'͋ WUWe ee e TZ  W#e1$ 'd d0 4@c  W3 e % E0 @c ` V%  $g"H @ U$eF e v&*  JEl&&  E`"D    (  U7   (Hh`B$$-,^ eB UJ &^ %7ewe|w~xU% e) & E Ee@wH> 4.f  E !w ~ԋp!w lԋj!w ` Ձ!w R AaBa % *RAS ;***********************************************************************RAS .TITLE RASM - ROS PAL ASSEMBLER .ENABLE CDR ; 5/2/73 ; COMPUTER  PDP-11 ; CONFIGURATION ROS RAS ;   REQUIREMENTS ; EAE FOR '*' AND '/' RAS ;  U%g"GC  e e(   e&  L̥ ̥ ̥̥̋ ̥ I  w P ˥*j .g  6 ˥, X T˥* ˥]K I G H C B&       ˥:0C ˥,U% "˥*  ˥. ˥[ ˥/. ˥< ˥  ˥ ˥  aeAbEɋA% "U%G!   4 .˥: "˥.˥$    & ˥0 ˥Z˥9˥A  & & ACB$2  Ae ! ! ! ! ! `0 . t1 D Ѥ 1ӥ, ˥,˥<˥  ˥.˥[ f˥*8D`%  % %2"6U%G  1 K Ӌc j2 & Β | r˥: ˥.˥$D U    F` 0˥: ӥ*@ & Β0 e& ˥0 ˥Z˥9˥A &f˥* Ŕ@Ŕ@a   @a&^ %&B A!"W D , COK STE WAC&^ e%OI ZZa 達 g" )em`& ($^ ` H((&(  ee 6## DASA ECODBERE KITIENMOPR AS DU ZZ) RAS ;DESCRIPTION  SPECIFICATION DOCUMENTS #130-390-008-01 ;      #130-390-011-00 AND -01 ;      #130-390-012-00 AND -01 ;      #130-390-014-00 ;      #130-390-023-00 ;   MULTI-PASS, RELOCATABLE, SYMBOLIC ASSEMBLER ; STANDARD PROCESSOR WIDE REGISTER ASSIGNMENTS R0  =  %0 R1  =  %1 R2  =  %2 R3  =  %3 R4  =  %4 R5  =  %5 R6  =  %6 SP = %6 ; &^ %eE ɕ hɊ4$ JRR XA!⊎ &. P f%f/ @e h"RA8"2 Ɍ",$*Ɋ,^ "$ $RR"&( @ %  Avv@K  `Be (e E T%T%T%TTTpT $ (a%ee e  e %& &eJ###  p&f&e"f&AAcDD 7FILE ERROR !  & L   8&& 3e0 7`$ "U%0 Yb.$)&&&cA!D 5@ 77 DEV. FULL ߕ ߋtvȊ& N&"W0W ѕ &^ % P  I W W,CAנ> ` ` g E A(eE eE ΊE`e EN W= EC@@@PN !&^ %  a  WR  WK c%@eJ!!! ̋ee&^ ߓpD&^ %2 ɊA!@ , 0"3  BEB WS Ɍ  3U%## A >ߋt'@fA! wV%eJ   e4   $)3U%0e @ ( &^ p- PAL R7  =  %7 PC = %7 ; PAL ; PAL .PAGE PAL ; THE PST MUST BE PLACED BETWEEN THE STACK AND RASM. RAS RASMPR = PRIBKG ; RASM'S PRIORITY LEVEL = BACKGROUND RAS RASMNO = $RASNO ; RASM'S TASK NUMBER RAS BFILE = $BC&^ % @ ̋'@ߓf  D @e      % % E4$   %@eJ!!! E0v8 p 2&^ %ea@W0=&& & K<<< B: e  ` `  d L b $ $< A!  2 " KX<LI/: `A d   &^ sɌ3 o m7R A!B0Z0W W   B   •/  :  A ߋp͗rŀ^UWI•\ ͋Ba͊QB  BN DIA% &^ % & !amB: ( #W[6e \c p s! bRK l c  A! ,  J W. ScA!W]W0W9@WAͥZfW,W VA!N  m&^ %ew H R   fa e W%!  D b aB !  p & . 'Ȋ% W, 6 e !  e 5 0   f%ev&^ %  @e e Me  ʕ ʊ $͋#C( . '$ Ĝ %`(  ( ͋,^ +  !v e   ͋e K)   1HID ; RASM(S BATCH FILE ID RAS BTYPE = $BCHTP ; TYPE OF BATCH FILE RAS STACK = 200. ; AREA FOR RASM STACK (BELOW SYM TAB). RAS SYMSIZ = $RASIZ ; # ENTRIES IN UST (4 WORDS/ENTRY) RAS ; RAS .DEF RASHED ; GLOBL FOR INITIALIZATION RAS ; RASM TASK HEADER &^ % u wF&M e v a( I D | j   X E eaE& & EfIDDm &! & e#  E   eDbeA LA   ! 0 e e  | .M $M "U%G$CE   em A    e$^ &&e E]e( &^ & ݁ "uz +SN&*)-fQK'a ͋,L w~B ` 5 5 6   w w* w4  DUUEU S & fNUVUe #<f& * 1U U@DEU!>Uf& * 5 U UCB E e v * "U%Gef.  EeEv &&&^ &ep T E eE`E& & EfpCCm   &    8      % 605 RAS RASHED: .WORD 1 ; THREAD WORD 4/26/73 .WORD RASMNO ; TASK NUMBER 4/26/73 .BYTE 1 ; BATCH TASK 4/26/73 .BYTE RASMPR ; PRIORITY 4/26/73 .IF Z $KT11C ; TASK ENTRY POINT 5/14/73 .WORD START ; 5/14/73 6&U%fN8W)C$ N! eeH!    Z%D RC,e <e c$B  D .M $^ &&e E]e( &^ & ݁ "u EeRRRRR %  22 2    F&USw&  p 4,0E  2% e 0 00 0 & 0"U%G E   #ccD  fNUVU00%%% p b $^ &&e E]e( &^ & ݁ "u 9:-  -5@! E 6 &M  $^ "U%Gwf&  p ,M 'p pT e TTTTTL&M 0   E Caee D!K& E ae f.M &0 & N.L &0 L &M  WE&  e&p  E eE`E& & 0pf$EA B` ~0   n& &D &  ` ic J1  6!(   6!6  E .IFF ; 5/14/73 .WORD START-STKTOP ; GET RID OF THE RELOCATION 5/14/73 .ENDC ; 5/14/73 .WORD 0,0 ; NO MAX TIME 4/26/73 .WORD STACK ; STACK SIZE 4/26/73 .WORD $OVTYP ; CPU LEVEL & OVERLAY FILE TYPE 4/26/73 .WORD 0,0$^ &&e E]e( &^ & ݁ "ua ͋,L wB ` 5 5 @* H  &#,fE+Ue t * &M $^ "U%bGe\f.   Ee E v &$^ &&e E]e( &^ & ݁ "u$AcfNl & E CD  aCU%W# e  p p 0 P e"bU%M%& N.^ 0 E e E `eD#E &. 0 &$^ &&e E]e( &^ & ݁ "uVq &$&%-('#/ xCADDB Cp@Q{ ?$DI ; STACK POINTER & PASSED ARG. 4/26/73 .IF NZ $KT11C ; 4/26/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL7e~TvH.M w e w 7  7E@L LNf<ߋL- S ʋ_ \Y   Qt nIN d f^ ߋL wLJU@L$_  Lx & ߕ N   PVeĜ`XZߓQ$```BEUA$^ B 5  &^ U 7 rf`> `5pDDp5@p ve& Ap&p b;ftȋW`WpWpWgW``!? ef mRae7 x;7tpȋ&5$^ JB( ! @  x p 8 qH 7pD7 77356:'"90SUVYݬ_?Z-KMNPѠ!$\ҦABDGH.<(+ɠ356':90SUVY_(\"Z-KMNPѠ$ݻ+ABDGH.<|:M @5@57 2  x 7(  e$wew  t @ M PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD 077406 ; ALL PDRS FULL 4K R/W 5/14/73 .WORD STKTOP ; PAR 0 - RESOLVED BY ROSLOD 4/26/73 .WORD STKTOP+20000 ; PAR 1 - RESOLVED BY ROSLOD 4/27/73 .WORD 0,0,0,0,0,0 ; PAR 2 - 7 )K+PVeĜ`XZߓQ$```BEUA$^ B 5  &^ U 7 rfV4 V p5pDD ve& Ap&p b;ftȋW`WpWpWgW``!? ef m`ae7 x;7tpȋ&5$^ JB( ! @  x p 8 qH 7pD7 775p356:'"90SUVYݬ_?Z-KMNPѠ!$\ҦABDGH.<(+ɠ356':90SUVY_(\"Z-KMNPѠ$ݻ+ABDGH.<Q 4/26/73 .BLKW 6 ; BLOCK OUT TO 32 WORDS 4/26/73 .CSECT RASM$ ; GET LISTING MATCHED UP WITH CORE 4/26/73 .ENDC ; 4/26/73 STKTOP: .WORD 200 ; FILE ID & LAST WORD OF STACK 4/26/73 .BLKW STACK-1 ; RESERVE STACK AREA 4/26/73 .=.+SYMSIZ+SYMSIZ+SYMSIZ+SYMSIZ ; RESERVE USER SYMBOL TABLE RUAS .=.+SYMSIZ+SYMSIZ+SYMSIZ+SYMSIZ ; RAS ; RAS ;THE PST IS BOUNDED BY THE INTERNAL GLOBAL ;SYMBOLS SYMTBB AND SYMTBT, WHERE THE ;FORMER IS THE HIGHEST ADDRESS OF THE ;PST AND THE LATTER IS THE ADDRESS OF ;THE 1ST WORD BELOW THE PST. ;THE PST IS ORDERED (TO PERMIT BINARY ;SEARCHING) WITH THE SMALLEST SYMBOL (IN ;MOD40 PACKED NOTATION) HIGH IN CORE AND ;THE LARGEST SYMYBOL (IN MOD40 PACKED NOTATION) ;LOW IN CORE. ;MOD40 CHARACTER REPRESENTATION ;A THRU Z : 1 THRU 26 RESPECTIVELY ; $ : 27 ; . : 28 ;0 THRU 9 : 30 THRU 39 RESPECTIVELY ;MOD40 PACKED NOTATION ;1ST PACKED TRIAD = CHAR1*40*40+CHAR2*40+CHAR3 ;2ND PACKED TRIAD = CHAR4*40*40+CHAR5*40+CHAR6 ; ;EACH ENTRY IS 4 WORDS WITH THE LOWEST WORD ;CONTAINING THE 1ST PACKED TRIAD, THE NEXT ;LOWEST CONTAINING THE 2ND PACKED TRIAD, THE ;NEXT LOWEST CONTAINING THE VALUE (WHICH FO]R ;ASSEMBLER DIRECTIVES IS AN EXTERNAL GLOBAL ;TO BE LINKED TO THE APPROPRIATE PROCESSOR IN ;PAL-11R) AND THE HIGHEST WORD CONTAINING ;THE FLAGS IN THE LOW BYTE AND THE CONTROL ;SECTION ID (WHICH IS ALWAYS 0 FOR PST ;ENTRIES) IN THE HIGH BYTE. ; ;FLAGS:  ASMDIR=10 ;BIT 3 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST   ;ENTRY IS AN ASSEMBLER DIRECTIVE.  BYTFLG=1 ;BIT 0 BEING ON IN THE FLAG   ;BYTE INDICATES THAT THIS PST   ;ENTRY IS BYTE ENABLED.a THIS   ;ALLOWS ONE ENTRY TO SATISIFY   ;SEARCHES FOR WORD AND BYTE   ;INSTRUCTIONS. E.G. THE ENTRY   ;'MOV', BECAUSE BIT 0 IS ON,   ;WILL SATISFY SEARCHES FOR   ;'MOV' OR 'MOVB' ; ;INSTRUCTION CLASS: ;BITS 4-7 OF THE FLAG BYTE DESIGNATE THE ;TYPE OF INSTRUCTION TO PROVIDE DISPATCH ;INFORMATION TO PAL-11R. SCLAS0=0  ;OPERATE GROUP SCLAS1=20  ;UNARY GROUP SCLAS2=40  ;BINARY GROUP SCLAS3=60  ;RTS SCLAS4=100  ;BRANCH GROUP SCLAS5=120  ;JSR SCLAS6=140  e;TRAP GROUP .PAGE ; ASSEMBLER DIRECTIVES ; ; .EVEN SYMTBT: .WORD 0  ;1ST REGISTER BELOW PST. ; .WORD 131247  ; .WORD .WORD 070440 .WORD WORD .WORD ASMDIR ; .WORD 131051  ; .TITLE .WORD 077345 .WORD TITLE .WORD ASMDIR ; .WORD 130725  ;.REF .WORD 022600 .WORD GLOBL .WORD ASMDIR ; .WORD 130721  ; .RAD50 .WORD 017226 .WORD RAD50 .WORD ASMDIR ; .WORD 130601  ;.PAGE .WORD 026210 .WORD PAGE .WORDi ASMDIR ; .WORD 130474  ;.NLIST .WORD 035514 .WORD NLIST .WORD ASMDIR ; .RAD50 /.LI/ ; .LIST .RAD50 /ST / .WORD LIST .WORD ASMDIR ; .WORD 130351  ;.LINES .WORD 054133 .WORD LINES .WORD ASMDIR ; .WORD 130351  ; .LIMIT .WORD 051274 .WORD LIMIT .WORD ASMDIR ; .WORD 130156  ; .IFZ .WORD 121200 .WORD IFZ .WORD ASMDIR ; .WORD 130156  ; .IFNZ m .WORD 055620 .WORD IFNZ .WORD ASMDIR ; .WORD 130156  ; .IFNDF .WORD 054046 .WORD IFNDF .WORD ASMDIR ; .WORD 130156  ; .IFLE .WORD 045710 .WORD IFLE .WORD ASMDIR ; .WORD 130156  ; .IFL .WORD 045400 .WORD IFL .WORD ASMDIR ; .WORD 130156  ; .IFGE .WORD 026210 .WORD IFGE .WORD ASMDIR ; .WORD 130156  ; .IFG .WORD 025700 .WORD IFG .WORD ASMDIR ; .WORD 130156  ; .IFDF .WORD 014760 .WORD IFDF q .WORD ASMDIR ; .WORD 130044  ; .GLOBL .WORD 057034 .WORD GLOBL .WORD ASMDIR ; .RAD50 /.GE/ ; .GEES .RAD50 /ES / .WORD GEES .WORD ASMDIR ; .WORD 127736  ; .EVEN .WORD 020560 .WORD EVEN .WORD ASMDIR ; .WORD 127726  ; .ENDC .WORD 014570 .WORD ENDC .WORD ASMDIR ; .WORD 127726  ; .END .WORD 014400 .WORD END .WORD ASMDIR ; .WORD 127645  ;.DEF .WORD 02u2600 .WORD GLOBL .WORD ASMDIR ; .WORD 127613  ; .CSECT .WORD 017714 .WORD CSECT .WORD ASMDIR ; .WORD 127551  ; .BYTE .WORD 076710 .WORD BYTE .WORD ASMDIR ; .WORD 127473  ; .ASECT .WORD 017714 .WORD ASECT .WORD ASMDIR ; .WORD 127473  ; .ASCII .WORD 012061 .WORD ASCII .WORD ASMDIR .PAGE ; MACHINE INSTRUCTIONS ; ; .WORD 107761  ;WAIT .WORD 076400 .WORD 000001 .WORD SCLAS0 ; .WORD 100014  y;TST .WORD 0 .WORD 005700 .WORD SCLAS1+BYTFLG ; .WORD 077721  ;TRAP .WORD 062000 .WORD 104400 .WORD SCLAS6 ; .WORD 075131  ;SWAB .WORD 006200 .WORD 000300 .WORD SCLAS1 ; .WORD 075012  ;SUB .WORD 0 .WORD 160000 .WORD SCLAS2 ; .WORD 073642  ;SEZ .WORD 0 .WORD 000264 .WORD SCLAS0 ; .WORD 073636  ;SEV .WORD 0 .WORD 000262 .WORD SCLAS0 ; .WORD 073626  ;SEN .WORD 0 .WORD 000270 }.WORD SCLAS0 ; .WORD 073613  ;SEC .WORD 0 .WORD 000261 .WORD SCLAS0 ; .WORD 073473  ;SCC .WORD 0 .WORD 000277 .WORD SCLAS0 ; .WORD 073423  ;SBC .WORD 0 .WORD 005600 .WORD SCLAS1+BYTFLG ; .WORD 071663  ;RTS .WORD 0 .WORD 000200 .WORD SCLAS3 ; .WORD 071651  ;RTI .WORD 0 .WORD 000002 .WORD SCLAS0 ; .WORD 071352  ;ROR .WORD 0 .WORD 006000 .WORD SCLAS1+BYTFLG ; .WORD 071344  ;ROL .WORD 0 .WORD 006100 .WORD SCLAS1+BYTFLG ; .WORD 070533  ;RESET .WORD 021140 .WORD 000005 .WORD SCLAS0 ; .WORD 054750  ;NOP .WORD 0 .WORD 000240 .WORD SCLAS0 ; .WORD 054117  ;NEG .WORD 0 .WORD 005400 .WORD SCLAS1+BYTFLG ; .WORD 051656  ;MOV .WORD 0 .WORD 010000 .WORD SCLAS2+BYTFLG ; .WORD 040612  ;JSR .WORD 0 .WORD 004000 .WORD SCLAS5 ; .WORD 040230  ;JMP .WORD 0 .WORD 000100 .WORD SCLAS9r % %h %Sttt*tһC! *q,(  0,ccexe*c9EEE$c&j&j &j*&j@p &jj7B7@@747 *Jj7 7 7 :7 7 4*1 ; .WORD 035254  ;IOT .WORD 0 .WORD 000004 .WORD SCLAS0 ; .WORD 035163  ;INC .WORD 0 .WORD 005200 .WORD SCLAS1+BYTFLG ; .WORD 031064  ;HALT .WORD 076400 .WORD 0 .WORD SCLAS0 ; .WORD 020534  ;EMT .WORD 0 .WORD 104000 .WORD SCLAS6 ; .WORD 014713  ;DEC .WORD 0 .WORD 005300 .WORD SCLAS1+BYTFLG ; .WORD 012445  ;COM .WORD 0 .WORD 005100 .WORD SCLAS1+BYTFLG ; .WORD 012412  ;CNZ .WORD 0 7 $7 d,nj7 }fL~~~T`njn*jn`nnjnk!w,jw *qJ*4q NH XqHqxkzS I B X p7*, T^ e r,PxYt :"((dBR`jFRjjDItjfFAfFBfCOf?*JdMTfMfZEwZwndH@ ne )7 w . n}`n`nJ,j-}.I ѕ?ѕ ѕ }*kw}jnjn7 6&qE*~r LIBR-11 V002A  # %*rE  g|g~mZV*v fi"fl"fp*"L CfEv *d # od PIP-11 V004A,dc*e7 <vnnG*(kw Jnnw >nnw 2nn*Lkw &7 7 7 7 7 7 7 &7 *pk Q*r . r Hqs  .WORD 000254 .WORD SCLAS0 ; .WORD 012330  ;CMP .WORD 0 .WORD 020000 .WORD SCLAS2+BYTFLG ; .WORD 012272  ;CLZ .WORD 0 .WORD 000244 .WORD SCLAS0 ; .WORD 012266  ;CLV .WORD 0 .WORD 000242 .WORD SCLAS0 ; .WORD 012262  ;CLR .WORD 0 .WORD 005000 .WORD SCLAS1+BYTFLG ; .WORD 012256  ;CLN .WORD 0 .WORD 000250 .WORD SCLAS0 ; .WORD 012243  ;CLC .WORD 0 .WORD 000241 .WORD SCLAS0 ; .WORD 011 . Z s*t ^S N*tp:w!7 cBՂbHc0n[ {** tHa X ý 1*NF"fb ( @*rC 7 H7 T7 Rw $.xedrdcc-5'dd.e. ЋЕ?Е xd7rdcch!Bn*kn~k/ V3 & h*l Vndn`~k/%"7 7 *t7 7 7 7 7 s    d*t. .rw~rr,ue#b^l:_$ .L)Lw 46 V)V8$! \8HTZ V *&7B  ɕ0  , 0 5ѕ 5 5%*ewn"w ddcc7 e*e/3w 7w %*fJ&**l& w --TD*Nl -N>-H8--.*rl -( 'rrrqqqS*DuVqqq'Vqw*hu|qq׭ ׭ ((ȥr0 rر1 L0  ꥞.F!R0l0l!2 RMACRO V005B 473  ;CCC .WORD 0 .WORD 000257 .WORD SCLAS0 ; .WORD 010003  ;BVS .WORD 0 .WORD 102400 .WORD SCLAS4 ; .WORD 007763  ;BVC .WORD 0 .WORD 102000 .WORD SCLAS4 ; .WORD 007520  ;BR .WORD 0 .WORD 000400 .WORD SCLAS4 ; .RAD50 /BPT/ ; BPT FOR /45 .WORD 0 .WORD 000003 .WORD SCLAS0 ; .WORD 007414  ;BPL .WORD 0 .WORD 100000 .WORD SCLAS4 ;- <֐0ߟ,w C! fVVu,*0ŝ) .ҕ? w w.*,"   *P | w nGd̽` &,t/bdh.f k p n ׭L׭E w n*f PNK DLde  Xd Y*f.0*l-Xn-- - *mBn ~4n  -*&mB& 1 /5wq>q r*u/5w w7 4p"qz*v r/5wp0q2,Ptp "T)  Չ,v  `*5) w  \(m* B30ƻ,MMܻ"@ N4 w w^ k w _*f *@ ec w   ,gwp @ a5w T--)*Jm-(4%-".!-(-" ".nmj nBn 56r/s*@v5 wh     >*dv  w 6w  *vw7B % e !2(T,4(7 (}d&  w K,B!e *7'*8)ܼ DISK DIRECTORY c* UIC T FILNAM.EXT DATE *, MODE .WORD 007265  ;BNE .WORD 0 .WORD 001000 .WORD SCLAS4 ; .WORD 007221  ;BMI .WORD 0 .WORD 100400 .WORD SCLAS4 ; .WORD 007164  ;BLT .WORD 0 .WORD 002400 .WORD SCLAS4 ; .WORD 007157  ;BLOS .WORD 073300 .WORD 101400 .WORD SCLAS4 ; .WORD 007157  ;BLO .WORD 0 .WORD 103400 .WORD SCLAS4 ; .WORD 007145  ;BLE .WORD 0 .WORD 003400 .WORD SCLAS4 ; .WORD 006774  ;BIT .WORD 0 .WORD 030000 .W= START DLONG LASTQ P PROt],a o. s f>ew jbZN 8,g , cc 50cc*g  cc ?^ gw 7 B!e@,n|z!7j7h7h^Rzd-**n w p:a@s*v \& Μ  *wrsrr J*J&*zQQR&i w c  w 8 . iw dw w w csw ,w Z w*HiSrpslzoxspFv@tRtjx`qxpr*oWHPMXROF0BEMRIFVUHGTNSPCDWLAKXJ01234%o56789/+@- T *^x *  w h9 *x  h@%jwr j T*xwU]+w f_,fw  % , 7 + % <-)&)&`,ƨl VAA wL^Y T% ) / tWw  w q*li"w 0  7l~ w &j*i" %&wRw.Xo.pYxp*pQ .WORD 0 .WORD 001400 .WORD SCLAS4 ; .WORD 006413  ;BCS .WORD 0 .WORD 103400 .WORD SCLAS4 ; .WORD 006373  ;BCC .WORD 0 .WORD 103000 .WORD SCLAS4 ; .WORD 004512  ;ASR .WORD 0 .WORD 006200 .WORD SCLAS1+BYTFLG ; .WORD 004504  ;ASL .WORD 0 .WORD 006300 .WORD SCLAS1+BYTFLG ; .WORD 003344  ;ADD .WORD 0 .WORD 060000 .WORD SCLAS2 ; .WORD 003343  ;ADC .WORD 0 .WORD 005500 .WORD SCLAS1+BY]7 *p LnnLn&  w P*p    @ k^*y&"  r @s*6y%w  aw *Zyr/ _$v %-%l% w * (24n(r(7 d(s&H`( * ! ! f`a*iw  w c "A @`$AL (*"jw | &cc #  c Fjw >b*p7 ~@` -tnm*q   7 LF *@q  c (C w< *~yw< )pp 5R *yJw%p  q,qd h kQ4d xPAzn*n 78% d*7``*^*7 T*7 efw 0_`jw Ojjw Z*tj7 7 w w 7 7 w 6P7mjg-4. e v*dqVnVn LnLn *q w  T7 w 3h*y 77 q*y>qq>qr Rr L,z:&rTFLG ; SYMTBB=.-2   ;HIGHEST ADDRESS OF PST. .PAGE RAS START: ; FIRST LET'S READ IN THE CARD DECK AND RAS ; PUT IT ON DISK. RAS MOV #1,PAGCNT ; INITIALIZE PAGE # TO 1. RAS JSR PC,PHEAD ; PRINT PAGE #1 HEADER NOW - FOR ERRORS RAS MOV #DFNLST,-(SP) ; DEFINE THE BATCH FILE IF DOESN'T m"r"r .4z"r  h c t*\z rI %LOn,ީ) Uz* /D D` W! W!, W!  )RE@ 5@5@$,*eo v~v~@v~8}.v~  75 *~7vp$j  %  w  kcc w I"k7`w ccw cq w  4nBnq*r rw  d1 \vn4n!D*@r2h.d `&\n4n rqi.zw,pq"qpp*zqw 7 t Ht.zs JU(* * PP(\$5$7(,fl)  r)`) ! ! ft$ek*~e 5 5 *~ 2ȋ _Tu4kcc  w *Fkw >w 8c7 " c.jkw V7ccv ,dr5n4nnvn4nvnn&*rBn D w 7 : jnww *rljnwp p "qp"q%*zqp "qp7pq*{pwTsqT$ T$x,``e(<)Q$  B ,*f)  -(( ~,ت⋁w RAS EMT $NCHKPT ; 5/14/73 EMT $DEFIN ; ALREADY EXIST. RAS EMT $CHKPT ; 5/14/73 MOVB DFNERR,R0 ; GET ERROR CODE AND TEST IF ANY. RAS BEQ STA020 ; NONE. RAS CMPB R0,#7 ; ERROR. IS FILE ALREADY DEFINED? RAS BEQ STA020 }(U)5A U, f)R wl >7 "+ UC"$@)& #( Z#H .)%5v~^ Twt pp o*kp  4Е Е[  r@. l Е,  Z( zЕw *s 7 77 7*Bsw-  & zr*fslԔ*{7 <7 :& \w  3*{   J  J*{ s$@.)A #>55#|()5"^# )E-5r#E $z(=f#(!% 5R#] pt*HlC! , w 5 ~~xllzzvvw &`*|l%p b  7OWww  5*s LH׭(o &w & *s*#1/oD  7qq  %*{%  % n*|@qq ~% , ҕ   |Ӷ($Ӳ($  R?( %t,ܫ5#`~~@~8}.~  7e5[ 7f$e*~H ; YES. RAS MOV R0,-(SP) ; NO. ALL OVER WITH. RAS MOV #ERR7,-(SP) ; RAS JMP ERROUT ; RAS STA020: MOV #SRCBFB,R0 ; GET ADDRESS OF SOURCE BFUP COM BLOCK RAS JSR PC,BFINIT ; INITIALIZE THE BFUP FILE IF NEEDED. RAS JSR PC,BFENTR ; THEN ENTER THE SOURCE SCRATCH ELEe*~e 5 50 * 8} . . ..l    7 7 7 |e1$m7 e7 o n.2mpp mZT m7J.>t 7Ln} .Lnv4nn*ftb &w^fw w @wv  *|.es r efff*|fe & sc% ( ҕ ,N ' ( & ?,t') &5$^"  h- " "J~  Е. !p/*Zm < D ЕC(p,~mEz7 t-rh b *t 2.pw ^*m84  Е- Е-*me8 MENT.RAS MOV SRBSEC,DSWSEC ; SET START SECTOR FOR WRITE. RAS STA100: MOV #SIBUF1,R1 ; GET ADD. OF DOS BUFFER HEADER. RAS MOV #80.,(R1)+ ; SET MAX BYTE COUNT = 1 CARD. RAS CLR (R1) ; SIBUF1 NOW SET UP FOR ROS CREAD USE. RAS MOV #CRDLST,-(SP) ; PUT CARD READ LIST ON STACK RAS EMT $NCHKPT ; (NO CHECKPOINT DURING I/O) RAS EMT $CREAD f ;Zx*n0Nm>J&zQQAA wC*4nL^YؙcxD m 6e7*>u N Jwfv7 .Bn*bu7w \w w 7*u B-pG*}t 7 X 7 NKjL;*}Dwu@<p0qpr*} @ы7 'R@   7"!7 p !( h r F,h&]j&= W!:VW!=R @vvR yąe */." +%$#('&0uvUPDATE V005B ,vg*Xn0ЋЕ:9pЕ<E *|n 0Е>&"8 *n&"DLnw 6w >5@-*u Bnn  w > w 8*u8&  wBnD  %wpp*~7 ,p0qr/5 wz*:~   Hq.   ,w  w` W!$ j,έW!:  t&5U& 5 X,զv END vS200 $vv # ZZ00000*  ZwR"wRw&Õ  &0А \*n mЕ Е f&*n"eЕ h d  -<*uT g-Lfw  w )*v( w  w l% g :,:vw  ; CALL ON CREAD; EXIT TYPE 2. RAS EMT $CHKPT ; ( CAN BE CHECKPOINTABLE AGAIN) RAS TST CRDERR ; ANY ERRORS? RAS BNE STA110 ; YES. RAS MOV R1,R0 ; GET ADD. OF WORD 2 OF BUFFER=# WORDS RAS ADD (R1),R0 ; READ. GET ADDRESS OF LAST CHARACTER RAS CMPB (R0)+,(R0)+ ; ADD 2 TO ALLOW FOR STARTING OFF ONE R GVn <Bn*`vw w l-dw 5@b37!*vN P R~5@pp'h*~wpp'wC.~pp' w56 > E$fU 7P$ 0 5 - t,   U%U  h U,%E,xE,xp Е vo*|ow uɋe I *oI I I I I I:*v~.7 0-rVnVnVnn*vVnVn&  wEs,vwq q'wft  %%w ff p ,ЮL 5 %-& Uff E,U  ыww,yvxxyp,.yxxxvxx7 ,Ty87 &7  J*oI DIRECTORY TOTL BLKS: T*oOTL FILES: FREE BLKS: FREE FILEj pS:w w 7 jn*wjnoT "RR-H*:ww @ 4 4` 7AS STA105: CMPB #040,-(R0) ; WORD. IS THIS CHARACTER A BLANK& RAS BEQ STA105 ; YES. GO LOOK AT NEXT CHARACTER. RAS CMPB (R0)+,(R0)+ ; NO. BUMP BACK TO LAST BLANK OR NEXT RAS BIC #1,R0 ; TO LAST. R0 WILL BE EVEN. RAS MOV (PC)+,(R0) ; PUT A CR,LF AT END OF COMPRESSED RAS .BYTE CR,LF ; STRING. WILL ALWAYS BE A WORD ADD. RAS SUB R1,R0 ; CALlljm:,l oTR(o o0,l e n ne JՕG,y?Օ Օ wwwxxwf,y7xlxhpx/,z Zw %w B-L* p-H*70w cc pccc = pV#!67.*wД "Ԕ - 7w*w-+w rn :E*қޛ* қ" ,m n o eKT,:m5C m_}w w& \ *,8z w7 t2xx"xpx/w,^zw -~n p CONFIRM: .ppcpccf` p{.$qɥLɥHu ɥ*xjl  V 7J^*6x@7@7!D&  & & *Zx&  *,Қ@M0. /ě+*ě ~"*-,`m̋ &eE  e,m   R<,m   CULATE NUMBER OF CHARACTERS IN STRIRAS MOV R0,(R1) ; NG. SET # OF CHAR. INTO CNTRL WORD. RAS CMP (R0)+,-(R1) ; BUMP R1 TO NEW WORD 3 OF DOS BUFF. RAS MOV R0,(R1) ; AND ADD 2 TO R0. PUT THIS IN # OF RAS CMP -(R1),-(R1) ; CHAR. FOR BFWRIT. BUMP R1 TO WORD RAS ; 1 OF DOS BUFFER RAS MOV R1,-(SP) ; FOR BFWRIT USE. RAS 02 Ba < Q ,m #$R   ,m       ,z-  - ,zZ7 -|sxx ",{f*qeQ QQf Q  L*q    h <   *q QO*xw z:Ln  3 w*x4n  w 5@*y$נ ққ * @қěě`*EEEE*ԛ on0 o@Cmv w&-\L SC x,B{x w )$0)7 },h{XdT`P\- ` %` `*rѕ   & <*$ru W w&ccҐ b נ +נ *2y D#w B& w 6&  A*Vyw6w $ & `nn`nMM* ěTP<<􃴛 :<PJP[L*RE<F8,{-4@8@ lw-,{xx $ & >w~xx ,{ JSR PC,BFWRIT ; PUT CARD IMAGE OUT TO DISK. RAS BR STA100 ; GET NEXT CARD. RAS STA110: CMP CRDERR,#7 ; HERE TO CHECK ERROR CODE. OK IFF EOF.RAS BEQ STA120 ; YES. RAS MOV CRDERR,-(SP) ; NO. PUT ERROR VALUE ON STACK RAS MOV #ERR11,-(SP) ; PUT ERROR # ON STACK RAS JMP ERROUT ; GO DO ERRx x -  ,| x7xxxxx,&| Txx r!r ->R6J .rN5@ B   wrw ~~ß *yz`n`n-N*z  ׯ ׯ ~ END S200 2P  #  HP~^P00000*  PRu^T|TTHl',l 7TTH,ll v7k xx ֵ,L|5@ wxx7\,r|xx =  v8b0׭Kw 1rw w cc p"sw ~w |w  "sw w \w tcc*2z~7    *Vz87 2whoj7 h b" ZׯV*zz ׯN 4Q STRING: DQR*QDQNENE*yH7i)*.TTHll7 ~Y *R~ ~l7 &7 ,7 L*v2,|=Rw< ^-DF   D) +,|n .w-&*   & w Z,| *-6 h*S(Q RQ ֵ,S5@R PwvRQR| |wfҞT2*Xwv DECTAPE COPY V01B *|ORIGINAL ON UNIT COxT 6 ,~& ΝC 20xxx),~& Ν 07 9*\wT 7 H8JwFB< *wm,m(m$n w - *we- (  E*|w5 &E f .|ee !o׭ f  Q*S7 LQRQ/VwR*TH w2QRQ **:T HPQ. RAS CLRB CNSTLV ; CLEAR CONDITIONAL NEST COUNTER. RAS CLRB DNTACT ; CLEAR ASSM/DON'T ASSM SWITCH(0=ASSM).RAS MOV R6,STKBOT ; SET STACK TOP (BOTTOM OF SYM. TABLE). RAS .PAGE RAS ;SYMBOL TABLE INITIALIZATION ;CLEAR ALL HAS BEEN RE-DEFINED FLAGS ;(BIT 1 OF HIGHEST WORD OF THE ENTRY) ;IN THE PERMANENT SYMBOL TABLE. ; STINIT: MOV PE Q @=*^T w ^P&.T % ҥ &f" ERROR  COPY COMPLETED #VERIFY COPY (Y OR N)? ~ v-rjj-$,d^D> jxxx0 ,*  @ą 4*xx buw  *8xv lluR bu*\x Rkoh7_w ^0Y*z}-P* J HׯB  :ׯ4 ,}ׯ, w  7PPK*TQQb ,T\wRQQQ z @PQw,TQ E5051525354],55565758597071727374- yn v ADD*xB C$D4w *x*w w w w xo *}wwpww}P(D~@~JwQQQPQ,UQw07 :.P""PQ&*@UQDEM5152556061RBOT ,R0 ;ADDRESS (HIGHEST) OF 1ST ENTRY. MOV PERTOP ,R1 ;ADDRESS OF 1ST (LOWER) FREE REGISTER. STINI1: CMP R0,R1 BEQ STINI0  ;DONE WHEN MATCH. BIC #REDEF,@R0 ;CLEAR RE-DEFINED BIT. SUB #10,R0  ;DECREMENT POINTER BY 4 WORDS. BR STINI1 ;INITIALIZE THE 1ST CONTROL SECTION ENTRY: ;THE ENTRY IS 4 WORDS OF 0 (THE UNNAMED ;CONTROL SECTION). ;CONTOP=C(PERTOP)-4 (WORDS) STINI0: CLR @R1  ;CLEAR CLR -(R1)  ;FOUR CLR -(R1)  ;WORD CLR -(R1)  ;ENT!OCTAL DUMP V001A # "w v "7\c$"yjyccDcjy$@yccw2$^y!"#$w(w&|y׭dlw׭SZyww w & w c@yc%Bbx{L}*/." +%$#(!'&0LIST V002A ,  &(RY. CLR -(R1)  ;JUST TO DECREMENT R1 MOV R1,CONTOP ; ;INITIALIZE TOP OF UST TO TOP OF CONTROL ;SECTION AREA. MOV R1,USRTOP ; ;ENTER THE USER PC SYMBOL . INTO ;THE UST. MOV R1,HINDEX ;HIGHEST ADDRESS OF SLOT. MOV #127400,TMPSYM+1 ;1ST TRIAD CLR TMPSYM+3 ;2ND TRIAD JSR PC,ENTER MOV R1,HUSERPC ;HIGHEST ADDRESS OF USER PC ENTRY TST -(R1)  ;ADDRESS OF VALUE WORD MOV R1,USERPC ;OF USER PC ENTRY. .PAGE .zccc$z7 w vw ׭w\4zw tcccw "Fzc/J, ܬNENE*yi,0{LM,V0,h & f AfE l ,w$ Ί (1P (@E:,%P%1 e,LlUwPWtEw5&,rDF5  Z.oQ,XZ02468,& x7x7E3c  w cbzcw b7~w 8cvzccw f7iw Pzcc t^@4E,|!RD, 5E% 5E%p,گE%E%% A A 5U@\$,6,@dEt j 7 jf, @X D5 H,>7 Y,     b b b wL %,2, *   5w$7 2w, ,X)8Z<zV8,w Xcc,z&ccw "c .cm*z c PAL ; RAS ; INITIALIZE DOT TO ZERO, DEFINED, RELOCATABLE,.UNAMED .CSECT. RAS STA200: CLR @USERPC ; SET DOT TO ZERO. RAS MOV #DEFFLG!RELFLG!400,@HUSERPC ; RAS CLR ABSPC ; RAS CLR RLDFLG ; = cc*{w |CO w fcc #,&{   w RCO w 1>, Օ wwm,:p0n /NNa w9,`T ?,4n  e5U$<M,Z  $ ׭+ "  ,,X @h 7 <,V ?ռ f`_d,|5ߋb5bߋc7e~,A   *ƹ    IU !HX빀깐[.KC+ N,KBL{w @ w x7w Nc\`{cw 7w lc&p{ccw .D`cf&c*{C-   -,   - t,0 zn0 ֵD H v ,   0U#@7 ,̰d #& W!@ 5U#UE v   v,5JU@7 6Ì, 8 Fe &X@, Z C P  H   n, t ( 5t@  C BW!&Gc #  4w c %*{ cc 5B ` P{ vH5@,P$ wn0n07 ,&`  /"w , RAS ; RAS ; CLEAR ALL CURRENT PC WORDS IN THE CONTROL SECTON AREA OF THE SYM. TAB:RAS MOV PERTOP,R0 ; BOTTOM OF .CSECT AREA IN RO RAS MOV R0,R2 ; AND R2. RAS MOV R0,HIRPC ; POINTER TO MAX PC OF BLANK .CSECT RAS TST -(R2) ; AREA RAS MOV R2,RELPC Mw&`&  &,D& @% w>,jހ &f" 0N+ UF5U@ 5  >,dW!(53 5v5@M,5`UU7 Oz,U   xB7r,&e-~e XP@Z0`R  PDU 5 |LI ~LNLJ 4Q7{ *8~ fc ,5&55@<4*\~- (< elR0,d \wR&&& ,v 00w$00S5U"O,Effff PU0 & (ֱ U r ,W!)Ux" \*Txdx,Lb-ZE?NJew e\ ,r2 e(U7 U&Bՙw[M y%` QQR RK-[z L ,C   V,~ c[ 5g|J,~ B}B<4E.~*W,0w7 6,"DEM51525570I(7172X I v,7 6 7 .=H !˵@2QQ,˵ 1ыy-7 N˵@!Q_ ; POINTER TO CURRENT PC OF BLANK .CSECT.RAS MOV CONTOP,R1 ; TOP OF .CSECT AREA RAS STA210: CMP R0,R1 ; DONE YET? RAS BEQ STA220 ; ALL DONE RAS CLR -2(R0) ; ZERO PC WORD (CURRENT) RAS SUB #8.,R0 ; BUMP TO NEXT ENTRY (4 WORDS/ENTRY). RAS BR STA210 ; GO DO NEXT ENTRY, IF ANY? ],DыʋыE& e m&7*7(z"j A& m, 7  ы ke ,^e  ef,  @ee e_,0   j f_ ִDS ֲCR,  @  ~P Q "`w `web5fɋ  W NW NU!h,J !ԋ  U! Ҳ Հ1Hc w`,V#& P LN FN @N ',|0 E  %d-fX U.}bv@Qd@\,<8 C   w rp,bR-|efRNIA 92112 ALL RIGHTS RESERVE,D PRIVATE DATA GULF ENERGY & EN},?VIRONMENTAL SYSTEMS FOR INTEg ,ڲ   5U@ T, 8U\!  " ah -S--<$------<04268 RAS STA220: MOVB #1,SECMOD ; INITALLY IN UNAMED .CSECT RAS MOV #TITLEA,R0 ; GET ADDRESS OF FIRST WORD OF TITLE. RAS MOV (PC)+,(R0)+ ; DEFAULT TITLE IS .MAIN. IN RAD50. RAS .RAD50 /.MA/ ; RAS MOV (PC)+,(R0) ; WORD 2 OF TITLE. RAS .RAD50 /IN./ ; RAS MOV #-1,R0 ;mn%,Ի  Rҕ  ώ" XBw B7 S r lոB֒A pfA T,f5@ hw v < rw S,1 Rŀɕ?,DqF   wa"Zn!j! 5Z7 7   ֣, rs@z  he`d, rZWjR fAʕ R,Ft @@@@@@@@@@@@@@@@@&@@@@@@@@@&J  ~  l şUjh Ruҥ ҕ ҕ #  jLw Lф  @Է v     ,γ   6U| 7, NJҋ XxfA  eʕwl Jҋ ~JEEI, $  R0=1 WILL CAUSE BIN. BUF SETUP & RAS MOVB R0,BINOUT ; INITIALIZATION. (FORCE BINBUF OUT) RAS JSR PC,BBINIT ; INITIALIZE BINARY BUFFER. RAS MOV #NORMLN,MAXLINES; SET DEFAULT LINES/PAGE RAS CLR PAGING ; RESET PAGING COUNTER RAS CLR ERRSUM ; CLEAR ERROR COUNTER. RAS CLR LINENO ; CLEAR LINE NUMBER COUNTER. RAS}w 5 Z^5(,H   b |,̼& f \ 'XE~& "U  $@ MƆ$5  d b E\ 7 ,Z ,@ ( @ ! r j" e ee e ոѬѸϸс,f-v    ,   re0J $T* * * TABLE OF CONTENTwv& Awp T P7.EUT,Qa7 < n * 5@~*(ŭyEpUjEU,:  C @ @   #1-, ` EQ$) `F,B`B ! #`B ՀҸόҟ, 4 F& Rw BE X (,@ UUUS * * *I, *7 !   ,ʴ 0UU * 4  2C, e,LfUw:WtEw5B,rDF5  4 l8 .7  k`7 0 F w rwׇ-w END OF PASS 1P,t  2w   s|ȏ,h  #1-`74 wE, 7s|Ȓ$s f7  \$ MOV SRBSEC,DSRSEC ; SET START SECTOR FOR THE READ. RAS CLR CONWRD ; RESET CURRENT CONTROL WORD FOR NXT PASRAS MOV BHADRS+2,R0 ; GET ADDRESS OF FIRST BUFFER FOR READ. RAS MOV R0,-(SP) ; PUT ADD ON STACK RAS MOV #SIMBC,(R0)+ ; PUT IN MAX BYTE COUNT RAS CLR (R0)+ ; CLEAR WORD #2. RAS CLR (R0)+ ; AND W" ~`ص t,ǠB Zw R r,ǃ ~ u5`5`5@5@2 W,U E SSSTw`J BR,€&  N p@  U7  b (&,feE 7 7 U  2, h  *. ,  e 7 w] ,0@dd~×bwT,ܽ R 4 r 5 2, ɥfҕ C~,(a ؇7& <f,ArBC f& ,BȐ·f6 M N ,$ r    5@P  ,J5`B 7 < 7 < U0 7  ,pÔF  R r L *`,"7 7  0  ,صBGW!<! ~@@B!   , 7 wUTUDր &W'8 ^,J e  W   v Uw,p  7 j< > X,>&fC!W!^,8  C D C!D!^, UU|VԐP:j   ĝ n  ,̾> L 7 `5 \E$    ,& X  U@:  7 -,LD U    (&O,rɢ,.   W!. `U   2,Tw h +-&"&':%F , l ( t  U w  ɟ9,2ŀ  U  pW!>, w   CDOB*FH&URL ~w^ >,(  ( $( B >  JMP SETSRC ; GO START THE PROCESSING LOOP. RAS .PAGE RAS ;.CSECT ;THIS PART HANDLES THE ;.CSECT DIRECTIVE ; ;    ;CSECT HANDLER RCSECT: CLRB SIZE NEGB BINOUT ;REQUEST BINARY OUTPUT MOVB SAVTERM ,R0 ;TERMINATING CHARACTER: CMPB #-4,R0  ;CARRIAGE RETURN BEQ CSECT1  ;UNNAMED .CSECT CMPB #-5,R0  ;SEMI COLON BEQ CSECT1  ;UNNAMED .CSECT JSR PC,CBTABS  ;F! W !,FA%+%-l :,l5 Z  j 0bab b b m,%,R Ӏ   @ ,ͤ  D >7 `,ͯ & w. 3f[*1,07 P & #- @ &  %\,V0   n :   | X ,|ʷ   ` &   2 ,^Ň & e @4 $, A << %.w ,ށ%E 8 F,2 U" ~ 7`@@T@T@Th,޷ 1"3 l`  x 5 %, %  p  ,,:` ` - ⿌w Җ-5* |vw Ҋӵ  E xE 5F , 7 U  f$ W, 8 < t p e?@  , $$C0  Bp` e,w   87 Ux @W e k,    5 ,*     , U,` 7 7 l f  $ 2  f ^xzPzkQxLUSH BLANKS OR DEC CURBYTE  ;TABS. JSR PC,ITEM  ;GET NEXT ITEM TSTB CNTCHAR ;ANY CHARACTERS FOUND? BLE CSECT1  ;NO. UNNAMED .CSECT TSTB ITYPE ;LEGAL SYMBOL? BGT CSECT5  ;YES INCB QERROR ;Q ERROR FLAG CSECT4: JMP MAIN1E ;UNNAMED .CSECT CSECT1: CLR TMPSYM+1 ;PACKED MOD40 SYMBOL CLR TMPSYM+3 MOVB #1,R3  ;ID NUMBER 1 MOV PERTOP ,HINDEX BR CSECT6 ;PREVIOUS SECTION .ASECT CSECT2: MOV @USERPC ,ABSPC ԇ,أ%@  @@%,`@%@@ @t@ @vD xj 2 fҕ+ O*x   nw @  w 2 "w *w $:4 X   5 ,\v      L , D  ~ W!'o, ,  , 2Um 7 7 7, " 0  B $ , 4 $ la , ـ D J J ,2Y    ,X va, PAGE COPYRIGHT 1973 GULF ENE,RGY & ENVIRONMENTAL SYSTEMS SAN DIEGO,, CALIFO n h,˻   *! $  ,    ff {zkQx=kK  (zK. J roQK ' |oQK - vLIK `t^^Z-6 ; PDP-11 DOS SYSTEM MACROS V003A ;COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION ; ;  JUNE 1, 1972.  @@ @ @P @,~ 0 eoov,t 7  ,V? f`_d5,|ߋb5bߋc7e~ |, BISB #RELFLG,@HUSERPC ;SET RELOCATABLE ;FLAG BIT IN DOT SYMBOL ENTRY BR CSECT7 ;MORE THAN 376(8) .CSECT'S CSECTE: CLR -(R6)  ;ERROR MOV #ERR1,-(R6) ;ANNOUNCEMENT JMP ERROUT ;PACK THE CHARACTERS IN BYTES TMPSYM (0) TO TMPSYM (5) ;INTO PACKED MODULO 40 REPRESENTATION IN WORDS ;TMPSYM+1 AND TMPSYM+3 CSECT5: MOV #TMPSYM,R1 ;ADDRESS OF 1ST BYTE JSR PC,SERCHB  ;MODULO 40 PACKER INC R1  ;TMPSYM+1 TO R1 MOV #WORD3,R4 ;NO 3RD WORD CLR @R4  ;MAT   v),5PU@7 <ÌX, ; b, %8=!;~f^O6 R7=%^O7 SP=%^O6 PC=%^O7 PSW=^O177776 SWR=^O177570 .ENDM .MACRO .INIT .LBLCK .MCALL .AMODE .AMODE .LBL%a,<  % %b,b@ % @   b5g5, 6 x-5 f!,: w975~gCK EMT <^O6> .ENDM .MACRO .RLSE .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O7> .ENDM .MACRO .CL ~@r,~@~%@\!42}s:_,ڀ s: :@@AK,`& xf,x@0& @w& AwN j31 CH; JUST SYMBOL MOV PERTOP ,R2 ;PERFORM LINEAR MOV CONTOP ,R3 ;SEARCH OVER CONTROL JSR PC,LINSRCH  ;SECTION TABLE BNE CSECT3  ;MATCH FOUND ;THIS CONTROL SECTION NAME NOT IN TABLE ;ENTER A NEW CONTROL SECTION ENTRY. MOV R3,HINDEX ;BASE ADDRESS OF ENTRY    ;IS CURRENT TOP OF    ;THE CONTROL SECTION    ;TABLE. CLR RESULT ;0 TO CURRENT CLR TFLAGS ;AND MAXIMUM PC JSR PC,ENTER SUB #10,CONTOP ;ADJUST BOTTOM OF UST ;MAT/"-$+ ~gBa.AMODE .LBUFF .AMODE .LBLCK EMT <^O4> .ENDM .MACRO .WRITE .LBLCK,.LBUFF .MCALL .AMODE .AMODE .LBUFF K zQD @R@@R@8,F@ S@S%@S@S @pT,lۀpT@8 T@pT@T@@&vLJ~@ .#h|l zKrl7 \ \KTHl$& ) (' * vLIBaR{h(hf 6~ph Zh`w8hhE .AMODE .LBLCK EMT <^O2> .ENDM .MACRO .OPENO .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O2> .O%@OX, OX OXOX%Y,[q`"r@ r @r r ,V-N  -\TB~2*    B ',5 eewN,ޖոߚ՗.&0  6Uh5 Ewe7 B7 \7 N7 7<79@7 Q~h2 qCH FOUND---COMPUTE CONTROL SECTION ID CSECT3: MOV PERTOP ,R3 ;ADDRESS OF 1ST ENTRY SUB HINDEX ,R3 ;ADDRESS OF THIS ENTRY ASR R3  ;DIVIDED BY 4 ASR R3  ASR R3  ;XTRA SHIFT FOR BYTE BIT INC R3  ;+1=CONTROL SECTION CMP #376,R3  ;ID NUMBER BLT CSECTE  ;TOO BIG IF >376(8) CSECT6: TSTB SECMOD BEQ CSECT2  ;PREVIOUS SECTION ABS ;PREVIOUS SECTION RELOCATABLE. MOV @USERPC ,R1 ;SAVE CURRENT PC FOR MOV R1,@RELPC ;PREVIOUS SECTION C& !1hЋ&./ *hff % (h& f  %-~`i(hf%Zh.FBLCK .ENDM .MACRO .OPENU .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O1> .OPEN .LBLCK,.FBLCK .EwwN,Py~Lyyyy@],vyh@y@y &@y&@y`'Enjvxw  ئئ "~f& &lQ&& &77(Z\ ޱ%&|1  B 7 "ή 7 L!Datw|d-T XjeP i Q$Bz w . ~izvNDM .MACRO .OPENC .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O13> .OPEN .LBLCK,.FBLCK .ENDM .M,@y@y@y@yfy|,܀y} z@ z@ z%@{,Yz 7(787!7 777777777777g~ 77777H7E777777h,ξS! Sf,0ŝ . ҕ?  y/2f7,,yB!ReL|,y %2d -XN7 e>~PjACRO .OPENE .LBLCK,.FBLCK .MCALL .CODE,.OPEN .CODE .FBLCK,<^O3> .OPEN .LBLCK,.FBLCK .ENDM .MACRO .OPEN MP R1,@HIRPC BLOS CSECT7 BIT #1,R1  ;EVEN OFF MAX. PC BEQ CSECT8 INC R1 CSECT8: MOV R1,@HIRPC CSECT7: MOV HINDEX ,R0 ;BASE OF NEW CSECT ENTRY MOV R0,HIRPC ;ADDRESS OF MAX. PC TST -(R0) MOV R0,RELPC ;ADDRESS OF PC MOV @R0,TBBUF ;PC OF NEW .CSECT MOVB R3,SECMOD ;NEW .CSECT ID TO SECMOD MOV TMPSYM+1 ,R1 MOV TMPSYM+3 ,R2 CSECT9:   ;NEW PROGRAM SECTION ID TO DOT ID MOV HUSERPC ,R3 MOVB SECMOD ,1(R3) .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O16> .ENDM XH_,Zthi}F%䲳,֯֯֯x֯֯=,t/ %^ z/%^ `z7tq? p~lj/   ZQw rB!e L,t7 v eeEE, lB  L ~j. " ? Zz&e Hw tww$ .MACRO .WAIT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT <^O1> .ENDM .ׯ}fگrشޯp!,~P,|$^l!nfnZnN,!Zn%n+Zw > : PHw@!ewp7p7 j+%5 ~EE ܦ1$ϦW wLff SAϚ,Ϸ    N~@k@`   F`w`zw`xw`xw`rw`vw`d  %>7 .7 4,|MACRO .WAITR .LBLCK,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .LBLCK EMT <^O0> .ENDM .MACRO .BLOCK .Ln,Zn.Z,nKZnKZn NZn&XZnHX,>Zn[Zn}n}nZq%MOVB #RLD3.1,R0 ;LOCATION COUNTER DEFINITION MOV TBBUF ,R3 ;DISPLACEMENT FROM SECTION BASE MOV #10,R4  ;# OF BYTES TO RLD JSR PC,RLDFIL JMP EXIT .PAGE PAL ;.ASECT ;THIS PART HANDLES THE ;.ASECT DIRECTIVE ; RASECT:    ;ASECT HANDLER NEGB BINOUT ;REQUEST BINARY OUTPUT TSTB SECMOD BEQ ASECT1  ;ALREDY IN .ASECT ;PREVIOUS SECTION .CSECT MOV @USERPC ,R1 ;SAVE CURRENT PC FOR ,d(zdzxd鰼RʳyL V,ސ  , |1q',3457 ,7 $5µ 0l0µ 0 0 9~x ,P RR   L& &,v &&  %    ~,  w w w w w ~0l  fXz.tw  X?   y/ T T .MCALL .AMODE .AMODE .TBLCK .AMODE .LBLCK EMT <^O10> .ENDM .MACRO .SPEC .LBLCK,.SARG .MCALL .AMODE @E>:-.(`"E׭tlE>71e-``&7   >,ҕ 7J F R 4 ~( <7 D  w  y/  V ;~l7  \T  w%Z7+ 7 ( %fT   4y |m` .AMODE .SARG .AMODE .LBLCK EMT <^O12> .ENDM .MACRO .STAT .LBLCK .MCALL .AMODE .AMODE .LBLCK EMT~೧" q@qt~ 7   mw-mE& -  MOV R1,@RELPC ;PREVIOUS SECTION CMP R1,@HIRPC BLOS ASECT1 BIT #1,R1  ;EVEN OFF NEW MAX. PC. BEQ ASECT2 INC R1 ASECT2: MOV R1,@HIRPC ASECT1: MOV ABSPC ,TBBUF BICB #RELFLG,@HUSERPC ;CLEAR RELOCATABLE    ;FLAG BIT IN DOT SYMBOL ENTRY CLRB SECMOD ;.ASECT ID MOV #ABS1,R1 ;'.(SPACE)A MOV #ABS2,R2 ;'BS. BR CSECT9 .PAGE PAL ;.GLOBL THIS SECTION HANDLES GL4~h: .74P7D:R7m[4P7":R7m,V%% $ T   )&| `   - ,ц f  wd  wNTmBmLmODpTRppTATpCCLp!~mH h jf"V N Z f N`  8 jf EMT <^O15> .ENDM .MACRO .DELET .LBLCK,.FBLCK .MCALL .AMODE .AMODE .FBLCK .AMODE .LBLCK EMT <^O21> !,L7 |5x5@x7 d,r w5x @d`·"~r^w/jڢ& @ɥ@B@# ef  C  &C x%- D ̇ -< LJ-d 4 ‡- : -2 -,р$"'  Zwv$ ' wJ hF ,yU~n ^  y,yafL{ L{,y,y%.ENDM .MACRO .RENAM .LBLCK,.OFB,.NFB .MCALL .AMODE .AMODE .NFB .AMODE .OFB .AMODE .LBLCK EMT <^O20> &,f 5b7 Z h ,n7 B27 0@d`·f, 'B¥,来݋E~X¥ " %6$ %7 7 D(* 7x  j BU,"  P% ,H Nw&  OBAL STATEMENTS RGLOBL:  MOVB  #-1,SIZE CLRB  SAVTERM JSR PC, CBTABS GLOBL1:  DEC  CURBYTE GLOBL2:  MOVB  SAVTERM ,R0  CMPB  #-4,R0 ;CARRIAGE RETURN  BEQ  GLOBLX  CMPB  #-5,R0 ;SEMI COLON  BEQ  GLOBLX  JSR PC, ITEM  ;GETS THE NEXT SYMBOL  TSTB  CNTCHAR  ;;ANY CHARACTERS FOUND  BGT  GLOBLA  ;YES THEN BRANCH GLOBLX:  JMP  EXIT  ;ABORT GLOBLA:  TSTB  ITYPE  ;IF ITEM WAS LEGA-* 7" &n 7m 7& " P, ,  &&  xe ,.7t  p d en 7z   n 7 j d ` ww0 7~o* ( *  7  A /,.2FB .MCALL .AMODE .AMODE .2FB .AMODE .1FB .AMODE .LBLCK EMT <^O2> .ENDM .MACRO .LOOK .LBLCK,.FB0؄~m,V؄~ ބ~,|$ބ~  @ 5b+5,1 2D2-7]~H74~2e ( 7pj25 &     HN ѕ,# ѕ@ e7 ÃD,ӷ &f  3    5,y ^| p y,yL{,y,yL{  $~xon7 7 %7$ 7$ Ћ74LCK,.OP .MCALL .AMODE .AMODE .FBLCK .IIF NB,.OP,CLR -(SP) .AMODE .LBLCK EMT <^O14> .ENDM .MACRO .KE5x6·^TZ0100,ȁ N  Fd0ed( & wv,wf $ *6L d7`֋5>w~0 f0w6$)7wmn5,&|%% fef P w,L  *m, ҕ- a8 ׭ $w f N`  Z 7T L{~ L{,y,yj $n %L{~o,yL{N ,yD eL  BGT  GLOBL4  ;THE BRANCH IF SYMBOL  INCB  QERROR  ;ELSE FLAG  CMPB  #-3,SAVTERM ;IF LAST TERMINATOR  BEQ  GLOBL2  ;WAS , THEN BRANCH  JMP  MAIN1E GLOBL7: BISB #REDEF,@HINDEX ;SET PERMANENT SYMBOL REDEFINED FLAG. GLOBL4: JSR PC,SEARCH  ;SEARCH SYMBOL TABLE BGT GLOBL7  ;IF PST THEN REPEAT BEQ GLOBL6  ;IN UST BISB #GLBFLG,TFLAGS ;SET GLOBAL FLAG JSR PC,ENTER  ;ENTER INTO UST BR GLOBL2 ;FOUND IN U=73 @- @% R % $$Ћ7 ׭ tw h jf"  ~hpwRwPW"(j>> .ENDM .MACRO .TRAP .STUS,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .STUS MOV #^O1,-(SP) EMT <^O41?,`ee   ded Z, ww b5xU_d&\,@~ߋ@bEeE E!# e yee=g1~ee EeE (=7`A %- &;*77tԆ7 7  $ &f ,Өd ҕ ҕ :Bj WAf" " u X f" ZV :  E N h~p0 E&qC> .ENDM .MACRO .STFPU .STUS,.ADDR .MCALL .AMODE .AMODE .ADDR .AMODE .STUS MOV #^O3,-(SP) EMT <^O4Dbߋbp Ņ I~,҂5  e, 5 EZ7UOG  ɵ1a(Z w~(J txQl`F 2, x8 p7rwb CREF V0(B04B CROSS REFERENCE TABLE PAGE S-k,tSMPGUpmh&f- wf~@twh twt wtwz~XqH1> .ENDM .MACRO .RECRD .LBLCK,.RBLCK .MCALL .AMODE .AMODE .RBLCK .AMODE .LBLCK EMT <^O25> .ENDM ST GLOBL6: MOV HINDEX ,R1 ;ADDRESS OF ENTRY BITB #REGFLG,TFLAGS ;IS SYMBOL A REG. EXPR. BEQ GLOBL5  ;NO INCB RERROR BISB #MDFLAG,1(R1) ;SET MULTIPLY DEFINED CMPB #-3,SAVTERM ;WAS TERMINATOR, BEQ GLOBL2  ;YES MOV #ITYPE,R3 ;NO JMP MAIN1E GLOBL5: BISB #GLBFLG,@R1 ;SET GLOBAL FLAG IN UST BR GLOBL2 .PAGE PAL ;TITLE DIRECTIVE HANDLER RTITLE:  JSR PC, CBTABS  ;TM .MACRO .DUMP .LOW,.HIGH,.CDE .MCALL .AMODE .AMODE .LOW .AMODE .HIGH .AMODE .CDE EMT <^O64> .ENDM N    w J>,  J 5x ,,  DBOD! r< r<Wt rt`r<g r<da}b~Á Kf" P,LZ! ! fL f&ZLQ]6  |p,>0Z Q~q$vBw`wlwwwwww xx"x.x:xFxhxtxxxxxltvt.krrv rxxnhW"W"Z&ER@RL{ R .MACRO .RSTRT .ADDR .MCALL .AMODE .AMODE .ADDR MOV #^O2,-(SP) EMT <^O41> .ENDM .MACRO .CORE MOSd:WwE,܃% e7e0tE% e7,e0t6   5xTJe  x T {|-v3&`7u5e 7 N~x&ѕ eU  C ,> (  2 < B  "d,dP<06 @,0`V,y0~Hr rp pt^h h^`Ty,y7 D7L{,y %87 (7 .&$WV #^O100,-(SP) EMT <^O41> .ENDM .MACRO .MONR MOV #^O101,-(SP) EMT <^O41> .ENDM .MACRO .MONF MOX,( ņ~ ņ~چ,Nd  Ɔ  ,t HIS PART  DEC  CURBYTE  ;GETS JSR PC,ITEM  TSTB  ITYPE  ;THE FIRST ITEM  BGT  TITLE3  ;AND CHECKS  INCB  QERROR  ;FOR SYMBOL  BR  TITLEX TITLE3:  MOV  #TMPSYM,R1  JSR PC, SERCHB  MOV  TMPSYM+1 ,TITLEA  MOV  TMPSYM+3 ,TITLEB TITLEX:  DECB  SIZE ;SPACE WAS FOUND ASSUME DEFAULT  JMP  EXIT .PAGE PAL ;LIMI6 6| w ,edlw z RECORD , BY,TE COUNT , DUMPED IN ^LEѕ Tѕ ѕ r,ăwѕ<ѕ>ѕ ѕ 7`ѕ Fѕ P~_&t^(~ (zzl.z  `gf ($ # EE(   D73a .MACRO .TIME MOV #^O104,-(SP) EMT <^O41> .ENDM .MACRO .GTUIC Mb   N|rym~8s1 ſe7  h}Ӄɥtwtw ovBCztmecѕ ѕ Mq 7 P@wfɥ@w6B $" 70j7 T#d7 w  .w 71 A w  7xw 1 A e,Պ#   ҕ ҕ # ,5  N޷fOV #^O105,-(SP) EMT <^O41> .ENDM .MACRO .SYSDV MOV #^O106,-(SP) EMT <^O41> .ENDM .MACRO .RADPK .gEX P zssssss~sst$t8tXtsssstDDm DQ$*F   Dd 7 DQ$*FDh~d7 F7(e  Eננ l 7 T HANDLER ; ; RLIMIT:  MOV  #TBBUF,R5  ;RESERVE  CLR  (R5)+  ;TWO  CLR  (R5)+  ;WORDS  MOV  #2,R4  ;WORDS  MOV  #RLD3.3,RLDIR  ;AND TELL  JSR PC, RELREF  ;THE LOADER  JSR PC, RLDFIL  MOV  #4,SIZE  ;TO FILL SPACE  JMP  EXIT .PAGE PAL ;SUBROUTINE LINEAR SYMBOL TABLE SEARCH ;PERFORMS A LINEAR SEARCH OVER A 4 ;WORD PER ENTRY SYMBOL TmP7~ptEe e u5? 0  D~ `~& *B@n0 $2(0#.@p D A  &DCc   pw.8w @w oe ee e L|,zք N ! ! -- @ , ` &  p .AMODE .WRD .AMODE .ADDR MOV #^O1,-(SP) EMT <^O42> .ENDM .MACRO .D2BIN .ADDR .MCALL .AMODE .Aq e P" f&f&~  ~t NΕ twP Cå årw%A%)~% %)wD&   @7ɥwws w  ' 7  .^ &w \w wXw w 2. fw  w t j a, & e ^@4 $ 3,A @& luMODE .ADDR MOV #^O2,-(SP) EMT <^O42> .ENDM .MACRO .BIN2D .ADDR,.WRD .MCALL .AMODE .AMODE .WRD .AMv$ נA   e`  vm~ulu  Ëנe ee w,& &&ئ~`wB٦ l fĝ   Ο z~x7 wtwhb.w k  %{ E e wh k {  .d D - !ABLE. ;INPUT 1) THE BASE ADDRESS OF THE 2 ;  WORD (MODULO 40) SYMBOL IN R1 ; IF THE 1ST TRIAD IS 0 ; THE TWO WORD SYMBOL IS ; NOT INCLUDED IN THE ; MATCHING PROCESS ; 2) THE ADDRESS OF THE 3RD WORD TO BE MATCHED ;  IN R4. THE RIGHT BYTE IS ;  THE FLAG BYTE. THE LEFT ;  BYTE IS THE CONTROL SECTION ;  ID BYTE. ; 0 VALUES SPECIFY THAT THE ; BYTE NOT BE INCLUDED IN THE ; MATCHING PROCESS. ONLY BITS IN ; THE FLAG BYTE THAT ARE ON W}=w TD = w Hd - 2.6 w @/ w 8 w 0w 8 7 w .*7 w "7~-  w u,LA  p, 4,-(SP) EMT <^O42> .ENDM .MACRO .BIN2O .ADDR,.WRD .MCALL .AMODE .AMODE .WRD .AMODE .ADDR MOV #^O5U vLIBa%vLJK7 Z8}UK5 Ar@ΏT @ _XrS ^ S ^ S B ^We #0-6]7 #0-~v 6ee , 7  - XH - T.Bw7  ww (b ww .hw  m, |, "؄,-(SP) EMT <^O42> .ENDM .MACRO .CSI1 .CMDBF .MC"w w|o,~PeՔ &f&hw7jwh%` e,e&e 4ze re n4~vRe 7!N  #A B` %. w| 7wrxwh.u E 74~wh^  ş ,8ş C @ @   #,^1- ` EQ$'%ILL ; BE MATCHED IN THE SEARCH. ; 3) THE STARTING (HIGHER) ADDRESS OF ;  THE SYMBOL TABLE IN R2 ; 4) THE 1ST FREE ADDRESS BELOW THE ;  SYMBOL TABLE IN R3 ; ;OUTPUT ; IF MATCH FOUND ; 1) R0 AND CONDITION CODES NON 0 (POSITIVE) ; 2) ADDRESS OF ENTRY TO HINDEX (HIGHER ADDRESS) AND R2 ; IF NO MATCH ; 1) R0 AND CONDITION CODES 0 ; 2) R2 DESTROYED LINSRCH: SUBR41: LINSR3: CMP R2,R3  ;COMPARE TABLE LIMITS. BNE LINSR1  ;STILL MORE ENTRIE ,(``B  #`B  h,s  #1-` wc,57> .ENDM .MACRO .DTCVT .ADDR .MCALL .CVTDT .CVTDT #^O0,.ADDR .ENDM .MACRO .TMCVT .ADDR .MCALL B& !wLd-~@Ț \0e(P  Q$BFڐ1 V005A PASS 1 PASS 2 # ~~~Xlw~~pwly! w  =w $7v.&  4=w e0w ,w %  4.L 7sْ$s h7  ^" `޵ ",B w R .CVTDT .CVTDT #^O1,.ADDR .ENDM .MACRO .CVTDT .CDE,.ADDR,.VAL1,.VAL2 .MCALL .AMODE .IF NB,.VAL2 .AMOD w . /xj7r&B!~e& %ff`X R-RD7 Bz(7 Bzw8l~~& |rl ~w@w ke=.rw @w fwww=w . w  rw 8,8ك   u5߇7V fp,^JABC| f6, E .VAL2 .ENDC .IF NB,.VAL1 .AMODE .VAL1 .ENDC .AMODE .ADDR .AMODE .CDE EMT <^O66> .ENDM .MAC)S. CLR R0  ;NO MATCH. RTS R7  ;RETURN LINSR1: MOV @R1,R0  ;1ST TRIAD BEQ LINSR6  ;DON'T COMPARE IF 0 CMP R0,-6(R2) BNE LINSR4  ;NO MATCH; TRY NEXT ENTRY. CMP 2(R1),-4(R2) ;2ND TRIAD BNE LINSR4  ;NO MATCH; TRY NEXT ENTRY. LINSR6: MOVB @R4,R0  ;FLAG BYTE BICB (R2),R0  ;ALL BITS IN DST SHOULD BNE LINSR4  ;BE CLEARED IF MATCH MOVB 1(R4),R0 ;CONTROL SECTION ID BYTE BEQ LINSR8 CMPB R0,1(R2) BEQ LINSR8 LINSR4: SUB #10,R2  ;SUBTRACRO .GTPLA CLR -(SP) MOV #^O5,-(SP) EMT <^O41> .ENDM .MACRO .STPLA .ADDR .MCALL .AMODE .AMODE .ADedtnw . " ? ٰ&e3~ w 7wlwvlwjlw^lwRlwFEw2lw&l&yi 4.  ?w "7 w 777 .0   w %0 %7E ` 7* 4,& e 7 1G,e@7 * L vDR MOV #^O5,-(SP) EMT <^O41> .ENDM .MACRO .GTCIL MOV #^O107,-(SP) EMT <^O41> .ENDM .MACRO .GTS>ww D>:6*@` $  F`w`w`w`w`w`~ w`  %~xy&"y"y@$+R&yyvLElMExQM^fD.V 1O  W ֆ m7H O "| y(8R4.*Bڲ,ee 7f7 4@7!.|rw w w TK CLR -(SP) MOV #^O4,-(SP) EMT <^O41> .ENDM .MACRO .STSTK .ADDR .MCALL .AMODE .AMODE .ADDR MO7 |7 z& 2V Vt^N N^F:&7 *7B~!ed~-T 4 WORDS FROM POINTER BR LINSR3  ;TRY NEXT ENTRY. LINSR8: MOV R2,HINDEX ;MATCH--ADDRESS OF MOV #1,R0  ;ENTRY TO HINDEX; RTS R7  ;POSITIVE VALUE TO R0. .PAGE PAL ;GSDTAB THIS SUBR CONSTRUCTS THE GSD TABLE IMMEDIATELY ;AFTER THE .END STATEMENT PRECEDING THE BINARY PASS ; GSDTAB:  MOV  #GSDCMD,DIRCMD ; GSD DECLARATION.  JSR PC, RLDINT  MOV  TITLEA ,R0 ; OBJECT MODULE NAME.  MOVxr\f@Fwww ww J   j".wT  X? v~lj ~y0?f0l .\ h7cJW*\  (. k' EBCDICASCII ASCII CHARS,EBCDIC CHARS, TAPE READ ERROR ,. .MACRO .FLUSH .CDE .MCALL .AMODE .AMODE .CDE EMT <^O67> .ENDM ; THE MACRO .AMODE ACCEPTS ONE ARGUMENT AND / X XPLJ /D  Z-7' w%^7} 7 z %f ~˳~@zD @ 7<76%.* ."w %=w (w . w w w .1 .5 .,T10 .15 .20 .25 .30 .35 .40 .45 ,z .50 .55 .60 .65 .70  ; AS A FUNCTION OF THE ADDRESSING MODE OF ; THE ARGUMENT GENERATES THE APPROPRIATE ; MOV TO -(SP). ; ADDRESS MODES THAT ARm h . $d  f e 7g a  wN(-  ( 7! 7 . d ^ f e  /~z/E CC TRANSFER ADDRESS: 1  TITLEB ,R1  CLR  R2  ; 0 TO FLAGS.  CLR  R3  MOV  #10,R4  JSR PC, RLDFIL  MOV  #ABS1,R0  MOV  #ABS2,R1  MOV  #ASCFLG,R2  ;ENTER ASECT (PROG. SECTION, DEFINED)  JSR PC, RLDFIL ;SEARCH UST FOR ALL .GLOBL'S ASSOCIATED WITH ;THE ABSOLUTE SECTION. ; MOV CONTOP ,R2 ;THE STARTING ADDRESS OF UST MOV USRTOP ,R3 ;1ST FREE LOCATION BELOW UST MOV #WORD1,R1 ;ADDRESS CONTAINING .GLOBL NAME CLR @R1  ;ACCEPT ANY NAME. MOV #W LOW LIMIT: HIGH LIMIT: ~0{  LINK11.OVR P.  j~~|  L eD| (D.  !RB !R=L ,Η 46e%  w ,t 6   O,WpDE (E.G. X(SP) ; IS REPRESENTED AS 000066), THE ARGUMENT ITSELF ; AND THE TEXT "ADDRESSING MODE ILLEGAL AS SYSTEM ; MACRO A^ f Z~xN` l l lB b nf"Q J ^wrN Q w l  & ~{!6RR!.4D4 V | !4Dh4 V D V| D"h&V.ev  6 ,@U 5 B;,f 7 w RGUMENT". ; .MACRO .AMODE .ARG SP=%^O6 .NTYPE .SYM,.ARG ;.SYM=ADDRESS MODE. .IF LE,.SYM-^O5 MOV .ARG,-(SP ^ e~ &ajڲ && 7  e%z &z z&zh ^~ |.% w *  @w @.& % % w  ww .L 5ORD3,R4 ;3RD WORD OF MATCH. MOV #GLBFLG,@R4 ;.GLOBL GSD05: JSR PC,LINSRCH BEQ GSD01  ;NO MATCH BITB #RELFLG,@R2 ;ADDRESS OF MATCH IN R2 & HINDEX BNE GSD04  ;RELOCATABLE .GLOBL JSR PC,ENTRGL  ;ENTER SYMBOL IN RLD BUFFER GSD04: SUB #10,R2  ;HINDEX-4 WORDS. BR GSD05  ;CONTINUE LINEAR SEARCH. ;ENTER ALL RELOCATABLE PROGRAM SECTIONS ;AND ASSOCIATED .GLOBL SYMBOLS. GSD01: MOV PERTOP ,R5 ;BOTTOM OF .CSECT AREA MOVB #1,WORD3+1 ;UNNAMED .CSECT ID GSD10:D  &.rC@AEPA&fw w /w .w Hw   <:v42v$"m"',w mU  ,$A w BB.ENDC .ENDC .IF EQ,.SYM&^O60-^O20 MOV .ARG,-(SP) ;[@](R0)+ TO [@](R7)+ .MEXIT   ; #N,@#ADDR .ENDC ww^ 7X V X 2~J 7D < A8  2 , 5"& ^  &~}` y.E ` V F x. w8w 7-U&"E!Cҕ0~DDc%,JC Br'7. r ,pEU0d~   6.IF EQ,.SYM&^O40-^O40 .IF LE,.SYM&^O7-^O5 MOV .ARG,-(SP) ;[@]-(R0) TO [@]-(R5) .MEXIT   ;[@]X(R0) TO [@]X(R5) &&v r $r7 7 %~X7$ 7$ Ћ7 ׭ (w" f N`  7~  s~} . w b7DE& ".0  pV, lA@B  p@ p(` , `~ J 4@AD  r,@ 9 MOV CONTOP ,R3 ;TOP OF .CSECT AREA MOV #10,R4 CMP R5,R3 BEQ GSD11  ;DONE, NO MORE .CSECT'S MOV -6(R5),R0 ;1ST TRIAD MOV -4(R5),R1 ;2ND TRIAD MOV #CSCFLG,R2 ;RELOCATABLE, DEFINED PROG. SECTION MOV (R5),R3  ;MAXIMUM PC (SIZE) JSR PC,RLDFIL  ;ENTER INTO RLD BUFFER CMPB RLDCNT ,#51 BLT GSD07 JSR PC,OUTBIN  ;NO MORE ROOM; OUTPUT JSR PC,RLDINT  ;AND REFRESH RLD BUFFER. GSD07: MOV CONTOP ,R2 ;THE STARTING ADDRRSS OF UST MOV USRTOP r(   &,f&   @A,.BAc@e !~  @AB DRESSING MODE ILLEGAL .PRINT   ;AS SYSTEM MACRO ARGUMENT. .ENDM ; THE MACRO .CODE SETS UP THE FILEBLOCK ; WITH THw l nf"  w:w8W"(n ~HWAf"H "@ f"HUNDEFINED RE\~x~FERENCES 7w @ŝŝ.wvt wjt!D  "D|.~ ,T @AB ~ BCE @,zE  ~  BC ,E HOW OPEN CODE. ; THE ADDRESS OF THE FILEBLOCK MUST ; BE IN A REGISTER (R0 TO R5) .MACRO .CODE .FBLK,.N .NTYPE .* ^ h J s | : l^ EU|lY~&f -  w @wl LOAD MAP SECTION ENTRY ADDRESS SIZE  ,  ?LOAD MODULE EOM 0~~ w w JB C w @e>%ĕtB C ,.D72 VVw Bw .eD ~ 6 `E%[%A,ƚ%:%/%, %,%  \,@SYM,.FBLK .IF LE,.SYM-^O5 MOVB #.N,-^O2(.FBLK) ;R0 TO R5 .MEXIT .ENDC .ERROR .SYM  ;.FBLK ADDRESSING MO= ,R3 ;1ST FREE LOCATION BELOW UST MOV #WORD1,R1 ;ADDRESS CONTAINING SYMBOLIC NAME CLR @R1  ;ACCEPT ANY NAME MOV #WORD3,R4 ;.CSECT ID ALREADY SETUP MOVB #GLBFLG!RELFLG,@R4 ;RELOCATABLE .GLOBL GSD08: JSR PC,LINSRCH BEQ GSD09  ;NO MATCH JSR PC,ENTRGL  ;ENTER SYMBOL IN RLD BUFFER SUB #10,R2 BR GSD08 GSD09: SUB #10,R5  ;LOOK FOR NEXT .CSECT INCB WORD3+1 ;INCREMENT .CSECT ID BR GSD10 ;ENTER THE TRANSFER ADDRESS GSD11: MOV #TRNCMD!DEFFLG,RDE ILLEGAL .PRINT   ;FOR .OPEN FILE BLOCK .ENDM zԾ׾՞ךbњѦѼ ԦDՖ*Մ(FR֢֘ ,NZfכ~r~׊2hՈОת״W" ' ".`4DhD bDh$D.w 7D_ow  7xw ,w XĝZ7c7J F cU,c! 0w & W"^&EV@Vھ & HѮ t^ ^~(ђ&7 7~pt7p7ttw r ptptt3.t5ppgpbt cc,@@*c D A  &DCc  ,fw @w  w  ' 7  A=2^C yx^C  :L;^C $;}4J^C )39:^I 8Iu~!"^C ;Y;}5J^C ^m& %v7 f7 ldP $ e zڷ6 &EV&ئ~7 <7A2 ;DEFINED, TRANSFER ADDRESS SPEC. MOV #ABS1,R0 ;NAME OF 6 BLANKS MOV #ABS2,R1 TSTB RSLMOD ;TYPE OF EXPRESSION BEQ GSD02  ;ABSOLUTE ;RELOCATABLE .END MOV GLBSY1 ,R0 ;.CSECT NAME OF MOV GLBSY2 ,R1 ;.END EXPRESSION BISB #RELFLG,R2 ;RELOCATABLE FLAG. GSD02: MOV JMPADR ,R3 ;TRANSFER ADDRESS.  BIC  #RSTFLG,R2  JSR PC, RLDFIL  JSR PC, OUTBIN  ;START NEW BUFFER  MOV  #GSDEND,DIRCMD ;GSD TERMINATION.  JSR PC, RLDINT  JSR  $  z 7 <  la   <l ſe74  Ӄ ɥ~ww ~Ѐ &e N @ e0w &  e. 4 t7 4$t %E eD wh,D [ =w TD = w H,$6 w @/ w 8 w 0w 8 (@2hy(yyh,2 oBCmeE T zZR~ҒҤҬӒRҬzՀDDd ~1~H.D vprE w v prm.j   w ׭7 w ,J*7 w "7 7 N[ X,pw7  ww (b ww ,,Y f ys #H:` d$ y:dyDQ$.J  Dd7DDQ$.J8D.JQ$Dd7DQ$.JDdDQ$:N7DDd7 ~EPC, OUTBIN  MOV  #RLDCMD,DIRCMD ;RLD BLOCK DECLARATION  JSR PC, RLDINT  CLR  R1  ;UNNAMED .CSECT  CLR  R2  MOVB  #RLD3.1,R0  ;ENTER INITIAL CLR R3   ;IMPLICIT RLD. (LOCATION COUNTER MOV #10,R4   ;DEFINITION) JSR PC,RLDFIL JSR PC,OUTBIN RTS R7 .PAGE PAL ;SUBROUTINE TO ENTER A GLOBAL SYMBOL ;POINTED TO BY R2 INTO THE RLD BUFFER. ; ENTRGL: SUBR42: JSR PC,SAVREG  ;SAV @~8R4-P DQ44[. w@ 78 %(! . %^ E , tbP bIw ,-,.% w  =w $7.yx(byhΕ~ w & "՝_͝\ Cå å$ נA  ~??M N ; M &N .( L w N%w 77w _ L ,T  b=w e0w ,w %:,z@w ke=,w .:L;(:L;h?Th.?Th4?T@hP?Tht?Thfh   e` ~ v X  Ëנe ee e ѐ  v O~(.N Z e0w ,w w .t p CQ. åIE REGISTERS MOV R2,R5  ;ADDRESS OF ENTRY MOV -6(R5),R0 ;1ST TRIAD MOV -4(R5),R1 ;2ND TRIAD MOV -2(R5),R3 ;VALUE MOV #10,R4  ;BYTE COUNT MOV #SYMDIR,R2 ;SYMBOL DECLARATION BISB (R5),R2 ;SYMBOL'S FLAGS BIC #RSTFLG,R2 ;KEEP UNDEF/DEF, ABS/REL, JSR PC,RLDFIL  ;AND INTERNAL/GLOBAL. CMPB RLDCNT ,#51 BLT ENTRG0  ;STILL ROOM IN RLDBUFFER JSR PC,OUTBIN  ;OUTPUT RLD BUFFER JSR PC,RLDINT  ;INITIALIZE RLD BUFFER ENTRG0: JSR PC,POPREG  ;RES å$ נA  @.  e`   <   . <@7O,b: (6 4,*w ,8 ?w "7 w 777 ,^ 4#4NOT BAD-GOT TO TASK 47  P.P THIRD TIME IS THE CHARM-TA 0- 6 ee\~ 0e50e &!^~"Ëנe ee e ѐ   @(}  . #   w %0 %7E ` , 1} W ֆ m7  yV؜f$SK 48 ,'.vSUPERSYSTEM WILL NEVER MAKE IT HERE-.TASK 49 @THIS MESSAGE WILL NEVER BE)%e 8e e ~`Ք8 fe 7!b  #2-7!Pe H8e&~'ODT-11R V003A B BE H .H *;/\ $G _<^,OWEBP@>SRC-FI!XASPM(b>ğ0|xΠZĝq,؟8H,h7cJ,D @ 7<76MTORE REGISTERS AND RETURN .PAGE PAL REND:   ; .END ASSEMBLY DIRECTIVE PROCESSOR JSR PC,EXPE1  ;EVALUATE EXPRESSION MOV RESULT ,JMPADR TSTB ICOUNT BLE END00 CMPB #-1,RSLMOD BNE END01 INCB AERROR ;.GLOBL IN .END EXPRESSION END00: MOV #1,JMPADR END01: MOV JMPADR ,TBBUF CLRB BINOUT ; MOV #MAXLINES,PAGING; INCLUDE FOR ERROR MES. ON NEW PAGE. PAL T-%.* ;,$"w %=w (w ,J w w ww  ..;}4J` H#H:H& Hd.:L;@?T@:dHdHfH.f/PASS 2 # \.pw~Pּ"pX7 @&7 @0~1<2,p 7mw ,w %/w \,  3@yy@YH.(yshy؁hS ww4wvp& p~& pwlp5|~67j~~  L er,  !B !=L !6_,4r4  !4r * /& & &  wk?T f:L;QSTB CNSTLV ;STILL IN A NEST OF CONDITIONALS? BEQ END01A  ;NO - BRANCH INCB ZERROR ; SET Z ERROR FOR .END IN NEST RAS CLRB CNSTLV ; ALLOW THE .END TO PRINT RAS END01A: JSR PC,ENDLINE END11: ;SYMBOL TABLE IS FIXED SO ;ALL OF FREE CORE TO STACK. MOV USRTOP ,R6 MOV R6,STKBOT TSTB SECMOD  ;.ASECT BEQ END20 MOV @USERPC ,R4 ;CURRENT PC CMP R4,@HIRPC ;TO MAX. PC BLOS END20  =.9:;@4@{7@H.M:@}@""@:_@:<}@._MQ>pwpwpwEwppwdp^~p&&?@.u~!"M:@ #}@eBk@.fSz@m@s@L @ @>.$;A D  &,C@AEPA&fw w /w ,ơw Hw  B@ee;@Ye@hfp@fSz@.fTz@[g4@9mQ@imR@m@.Tq@[qj@v@@C@$5V&@0vLElMExQM^f~0D~E@4f@(@u~!"hu~!"(@_eShdM.fF ` ,E ` V F , w8]w 7-U&"EG@z(d@@.4f@LC @(L E:hf:h\.)h)bh9p:h9ah4(^H\Mflذ&ؾ@~U;IF THE BIT #1,R4  ;FORMER IS HIGHER BEQ END24  ;EVEN. INC R4  ;MAKE EVEN END24: MOV R4,@HIRPC END20: MOV ERRSUM,-(SP) ; PUT ERROR # ON STACK RAS MOV #ERRNUM,-(SP) ; AND ADD. OF 6 BYTES FOR ASCII RAS EMT $BINAS ; CHARACTERS AND GO CONVERT THEM. RAS MOV #PASS,R5 CMPB LOPASS ,@R5 ;IS THIS THE LISTING PASS? BNE END21A ; NO. BRANCH. RAS END21: M0?@0~ N~؇OlL & u  ls #}&fSzf. @   < Pl]U#,7w @ŝŝ,Тw&]vt wjt!Qt  r vR~S"~PT.  @   $.   & & &&  mUr ,w w Jpqw @e>%ĕt?,r72 w Bw .e,BV &0DXl*0DXl WX~ȈY MOV #ERRMSG,-(SP) ; PRINT ERROR MESS. ONLY ON LISTING PASSRAS JSR PC,LPRINT ; GO PRINT IT. RAS ADD #5,PAGING ; COUNT ERROR MESSAGE FOR PAGE HEADING RAS CMP PAGING,MAXLINES ; ROOM? RAS BLT END21A ; YES RAS JSR PC,PHEAD ; NO - NEW PAGE RAS END21A: CMPB BOPASS ,@R5 ;IS THIS THE BIN O]1~@*s eBkL s$; :   #}@_4rr C,[[7[7[[w r,ڣ[5[[g~[b|[V `*DXl  0X8X030aIZE: ~ TRANS ADDR: b~c.;}5J` H#H:H& He .:L;@?T@:dHdHfH.fd, <r !%&,& &e N @ e0w &  ,L b