/ PDP-8 AUTOCODE OPERATING SYSTEM / 16.1.66 DECIMAL *0 SR,HLT OVERFL,HLT DIVERR,HLT PKUP,0 TAD AI DCA WK TAD I WK JMP I PKUP M1,-1 MLF,-10 MRBT,-127 MCR,-13 *16 ARG,0 MULT,MULT0 DIV,DIV0 ASS,0 AL,AL0 AS,AS0 STK,STP0 STP,STP0 AI,STP0+100 WK,0 SCR,13 SLF,10 SSP,32 B177,127 V1,1000 V2,2000 W1,100 W2,200 W3,300 W4,400 W5,500 W6,600 W7,700 W8,800 W9,900 X1,10 X2,20 X3,30 X4,40 X5,50 X6,60 X7,70 X8,80 X9,90 Y1,1 Y2,2 Y3,3 Y4,4 Y5,5 Y6,6 Y7,7 Y8,8 Y9,9 RSYM,0 TAD AI DCA ASS RS1,KSF JMP .-1 KRB AND B177 SNA JMP RS1 DCA I ASS TAD I ASS TAD MRBT SNA CLA JMP RS1 TAD I ASS TAD MCR SNA CLA JMP RS1 JMP I RSYM MSGE,0 MS1,CLA TAD I MSGE ISZ MSGE SNA JMP I MSGE JMS PSYM JMP MS1 PSYM,0 DCA WK TAD WK TAD MLF SZA CLA JMP PS1 TAD SCR TSF JMP .-1 TLS CLA PS1,TAD WK TSF JMP .-1 TLS CLA JMP I PSYM CALL,0 TAD AS DCA WK TAD I WK DCA WK TAD CALL DCA I STP ISZ STP JMP I WK END,CLA TAD STP TAD M1 DCA STP TAD I STP DCA WK JMP I WK JUMP,TAD ASS TAD AL DCA WK TAD I WK DCA WK JMP I WK *128 CLA TAD STK DCA STP TLS JMP START MULT0,0 CLL SPA CMA CML IAC DCA MP1 DCA MP5 TAD ARG SNA JMP MPSN-2 SPA CMA CML IAC DCA MP2 TAD THIR DCA MP3 MPA,TAD MP1 RAR DCA MP1 TAD MP5 SZL TAD MP2 CLL RAR DCA MP5 ISZ MP3 JMP MPA TAD MP1 RAR MPSN,SZL JMP COMP DCA MP1 TAD MP5 MPZ,SZA CMA SZA JMP OVERFL TAD MP1 JMP I MULT0 COMP,CMA CLL IAC DCA MP1 TAD MP5 CMA SZL IAC JMP MPZ THIR,-12 MP1,0 MP5,0 MP2,0 MP3,0 DIV0,0 SNA JMP DIVERR CLL SMA CMA CML IAC DCA DIVSOR SNL CMA DCA SDVSR CLL TAD ARG SPA CMA CML IAC DCA LDIVND DCA HDIVND SNL CMA TAD SDVSR DCA SNSWER CLL TAD M13 DCA DIVCNT JMP DV2 DV3,TAD HDIVND RAL DCA HDIVND TAD HDIVND TAD DIVSOR SZL DCA HDIVND CLA DV2,TAD LDIVND RAL DCA LDIVND ISZ DIVCNT JMP DV3 TAD LDIVND ISZ SNSWER CMA IAC JMP I DIV0 HDIVND,0 LDIVND,0 DIVSOR,0 SDVSR,0 SNSWER,0 DIVCNT,0 M13,-13 / COMPILED PROGRAM FOLLOWS START,