commit dc3512a1b03fabcdc29332822427b343ab2d2640 Author: matej Date: Wed Oct 29 18:38:45 2025 +0100 initial commit diff --git a/FA.dev b/FA.dev new file mode 100644 index 0000000..ede1b9e --- /dev/null +++ b/FA.dev @@ -0,0 +1,6 @@ +11 +12 +13 +14 +15 +0 \ No newline at end of file diff --git a/rec.asm b/rec.asm new file mode 100644 index 0000000..f13bfc7 --- /dev/null +++ b/rec.asm @@ -0,0 +1,96 @@ +REC START 0 + +FIRST LDT #10 + RD DEVICE + COMP #13 + JEQ SKIP .read \r + AND MASK1 + COMP #0 + JEQ END + SUB #48 .convert to int from char + ADDR A, B + MULR T, B + J FIRST .read next digit + +SKIP RD DEVICE .read \n + CLEAR A + ADD #1 + RMO A, X + RMO B, A + DIV #10 + + COMP #0 + JEQ END + + JSUB FAK + RMO X, A + JSUB PRINT + + CLEAR B + J FIRST + +END CLEAR A + ADD #48 + WD STDOUT +HALT J HALT + +FAK RMO A, T + RMO L, A + JSUB PUSH .push return address + RMO T, A + + COMP #1 + JEQ RET + + MULR A, X + SUB #1 + JSUB FAK + +RET RMO A, T + JSUB POP .get return address + RMO A, L + RMO T, A + + RSUB + +PUSH STA @S_PTR + LDA S_PTR + ADD #3 + STA S_PTR + RSUB + +POP LDA S_PTR + SUB #3 + STA S_PTR + LDA @S_PTR + RSUB + +PRINT RMO A, B + LDS #0 + +LOOP1 AND MASK + SHIFTL A, 4 + COMP #10 + JLT NUMBER + ADD #55 + J SKIP1 +NUMBER ADD #48 +SKIP1 WD STDOUT + SHIFTL B, 4 + RMO S, A + COMP #5 + ADD #1 + RMO A, S + RMO B, A + JLT LOOP1 + LDA #10 + WD STDOUT + RSUB + +MASK1 WORD X'0000FF' +MASK WORD X'F00000' +STDOUT BYTE X'01' +DEVICE BYTE X'FA' +S_PTR WORD X'001000' + + END FIRST \ No newline at end of file diff --git a/sictools.jar b/sictools.jar new file mode 100644 index 0000000..ce5a9a5 Binary files /dev/null and b/sictools.jar differ