0 MOV #224,R0 1 MOV #32,R1 2 CALL 18 3 CALL 51 4 MOV R24,R1 5 CALL 58 6 CALL 8 7 JMP 0 8 CALL 12 9 OUT 10 10 OUT 13 11 RET 12 MOV R0,R24 13 JMP 15 14 OUT R24,@R24+ 15 CMP #0,@R24 16 JNE 14 17 RET 18 MOV R0,R25 19 MOV R1,R26 20 JMP 27 21 CALL 39 22 CMP #13,R24 23 JEQ 30 24 CMP #8,R24 25 JEQ 32 26 MOV R24,@R25+ 27 SUB #1,R26 28 JNE 21 29 CALL 9 30 MOV #0,@R25 31 RET 32 CMP R25,R0 33 JEQ 21 34 SUB #1,R25 35 ADD #1,R26 36 OUT 32 37 OUT 8 38 JMP 21 39 IN R24 40 JEQ 39 41 CMP #10,R24 42 JNE 44 43 MOV #13,R24 44 CMP #13,R24 45 JEQ 9 46 CMP #127,R24 47 JNE 49 48 MOV #8,R24 49 OUT R24,R24 50 RET 51 MOV R0,R25 52 MOV #0,R24 53 JMP 55 54 ADD #1,R24 55 CMP #0,@R25+ 56 JNE 54 57 RET 58 MOV R0,R29 59 MOV R1,R24 60 MOV #100,R25 61 CALL 70 62 MOV R28,@R29+ 63 MOV #10,R25 64 CALL 70 65 MOV R28,@R29+ 66 ADD #48,R24 67 MOV R24,@R29+ 68 MOV #0,@R29 69 RET 70 MOV #48,R28 71 JMP 73 72 ADD #1,R28 73 SUB R25,R24 74 JNC 72 75 ADD R25,R24 76 RET ; Library Functions ; ================= ; getc 39 ; gets 18 ; numtostr 58 ; putnl 9 ; puts 8 ; putstr 12 ; strlen 51