TITLE c94 RADIX 10. .INSRT NC .CODE ENTRY Zatoi .CODE .PDATA S0: 116 0 S2: 98 0 S4: 45 51 52 51 53 57 55 51 56 51 54 56 0 .CODE %A==1 %A,,[ASCIZ/atoi/] Zatoi: ADDI P,FS1 ; LINE 32 SKIPE <0-FS1-%A-%P>(P) GO L5000 MOVEI A,0 SUBI P,FS1+%A+1 GO @<%A+1>(P) L5000: ; LINE 33 MOVEI A,0 MOVEM A,<1-FS1-%P>(P) ; LINE 34 MOVEI A,1 MOVEM A,<2-FS1-%P>(P) L1: ; LINE 35 MOVE A,<0-FS1-%A-%P>(P) MOVE A,(A) CAIE A,45 GO L5001 MOVEI A,1 ADDB A,<0-FS1-%A-%P>(P) MOVN A,<2-FS1-%P>(P) MOVEM A,<2-FS1-%P>(P) GO L1 L5001: L0: L3: ; LINE 36 MOVEI B,1 MOVE A,<0-FS1-%A-%P>(P) ADDM B,<0-FS1-%A-%P>(P) MOVE A,(A) MOVEM A,<3-FS1-%P>(P) CAIGE A,48 GO L5002 MOVE A,<3-FS1-%P>(P) CAILE A,57 GO L5002 MOVE A,<1-FS1-%P>(P) IMULI A,10 ADD A,<3-FS1-%P>(P) SUBI A,48 MOVEM A,<1-FS1-%P>(P) GO L3 L5002: L2: ; LINE 37 MOVE A,<1-FS1-%P>(P) JUMPGE A,L5003 ; LINE 38 MOVN A,<1-FS1-%P>(P) MOVEM A,<1-FS1-%P>(P) ; LINE 39 MOVE A,<1-FS1-%P>(P) JUMPGE A,L5004 ; LINE 40 MOVE A,<2-FS1-%P>(P) JUMPLE A,L5005 MOVE A,<1-FS1-%P>(P) ADDI A,1 MOVN A,A SUBI P,FS1+%A+1 GO @<%A+1>(P) GO L5006 L5005: ; LINE 41 MOVE A,<1-FS1-%P>(P) SUBI P,FS1+%A+1 GO @<%A+1>(P) L5006: L5004: L5003: ; LINE 43 MOVE A,<2-FS1-%P>(P) IMUL A,<1-FS1-%P>(P) SUBI P,FS1+%A+1 GO @<%A+1>(P) SUBI P,FS1+%A+1 GO @<%A+1>(P) FS1==4-1 .PDATA CONSTANTS END