017 START, CLA 710 020 TAD CONST 113 021 DCA INDX 314 /Initialises index 022 TAD BUFSA 115 /Fetches address of first no. 023 DCA POINTER 316 /Initialises pointer 024 GO, TAD I POINTER 136 /Fetch number 025 TAD CON60 117 /Adds 48 (60_8) 026 DCA I POINTER 336 /Replace number 027 ISZ POINTER 216 /Increment pointer 030 ISZ INDX 214 /Finished Yet? 031 JMP GO 504 /No, continue 032 HLT 721 /Yes, halt 033 CONST, 370 730 /-8 034 INDX, 000 035 BUFSA, 100 100 /Address of first no. 036 POINTER, 000 /Pointer stored here 037 CON60, 060 120 100 A, /First number ... 107 A+7, /Last number