.MAIN. MACRO V04.00 12-MAY-82 19:02:01 PAGE 1 1 68 69 70 71 72 73 000000 ESTUFF:: ;## 1 # 0 ## PROCEDURE ESTUFF,GLOBAL 74 75 ; Extract the file name from the 76 ; chaining process 77 78 000000 005725 tst (R5)+ ;## 6 # 0 ## PROBE (R5)+ 79 000002 012702 000510 mov #510,R2 ;## 7 # 0 ## LET R2 := #510; address of data passed 80 000006 012501 mov (5)+,R1 ;## 8 # 0 ## LET R1 := (5)+; Output parameter 81 000010 012500 mov (R5)+,R0 ;## 9 # 0 ## LET R0 := (R5)+; Pick up second parameter... 82 000012 121227 000000 cmpb (2),#0 ;## 10 # 0 ## IFB (2) <> #0 THEN; See if null?? 83 000016 001002 bNE ll$2 84 000020 000167 000024 jmp ll$1 85 000024 ll$2: 86 000024 ll$3: ;## 11 # 1 ## REPEAT 87 000024 005210 inc (0) ;## 12 # 2 ## LET (0) := (0) + #1 88 000026 111221 movb (2),(1)+ ;## 13 # 2 ## LETB (1)+ := (2);Shovel.... 89 000030 122227 000000 cmpb (2)+,#0 ;## 14 # 1 ## UNTILB (2)+ IS #0 90 000034 001402 beq ll$6 91 000036 000167 000002 jmp ll$5 92 000042 000402 ll$6: br ll$4 93 000044 000167 177754 ll$5: jmp ll$3 94 000050 ll$4: 95 000050 ll$1: ;## 15 # 0 ## END 96 000050 000207 rts pc ;## 16 # 0 ## RETURN 97 ;## 17 # 0 ## .END 98 ;SUPERMAC Errors Detected: 0 99 ; 1 0 0 0 5 0 1 0 0 0 100 ; 26 0 1 13 1 1 1 1 13 6 101 ; 0 5 0 0 0 13 0 0 97 0 102 ; 0 1 1 0 0 0 1 1 15 13 103 ; 4 0 0 1 2 0 2 0 0 0 104 ; 0 0 0 0 0 0 0 0 0 0 105 ; 0 0 0 0 0 0 0 0 0 0 106 ; 0 0 0 0 0 0 107 000001 .END .MAIN. MACRO V04.00 12-MAY-82 19:02:01 PAGE 1-1 SYMBOL TABLE ESTUFF 000000RG LL$2 000024R LL$4 000050R LL$5 000044R LL$6 000042R LL$1 000050R LL$3 000024R . ABS. 000000 000 000052 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 8704 WORDS ( 34 PAGES) DYNAMIC MEMORY AVAILABLE FOR 55 PAGES ESTUFF,ESTUFF=ESTUFF