; tipareste code beginningENTER 2, 2LOD 3 LODA 3 LODI 0STOLODA 3 LOD 3 LODI 1ADDSTOLODA 3 LODI 1STOLODA 3 LODI 1STOLOD -2 LOD -2 LODA 4 LOD 3 STOLOD 3 LODI 1LEAVERET; test code beginningENTER 3, 1LODA 4 LODI 1STOLODI 10; Calling: tiparesteLODI 10LOD 4 CALL tiparesteRED 2 CHGSFP 1 LODA 219 RSTSFRLODI 0LODI 6ADDLODI 7DIVLODI 1MVRXCHGSFP 1 LODIX 6 RSTSFRADDSTOCHGSFP 1 LODA 220 RSTSFRLODI 'STOLEAVERET; factorial code beginningENTER 2, 2LODA 3 LODI 1STOLODEA -3 ; Calling: tiparesteLODI 1LODI 10CALL tiparesteRED 2 LODA 4 LOD 4 LODI 10ADDLODI 7MULSTO; Calling: testCALL testRED 0 LEAVERET; test code beginningENTER 1, DCLODI 4MVRXLODAX 6 ; Calling: factorialLODI 0LODI 1MVRXLODAX 6 LODI 2MVRXLODAX 106 LODI 4MVRXLODAX 6 CALL factorialRED 3 STOLODA 206 LODI 1STOLOD 4 LODI 5LODA 4 LODI 1STOLOD 5 LOD 5 LODI 0; Calling: tiparesteLODI 10LODI 7CALL tiparesteRED 2 LEAVERET