![]() |
![]() |
![]() |
00100: 060277 | START: INTDS ; Disable interrupts 00101: 074477 | READS 3 ; AC3 = How many values to compute 00102: 174420 | NEGZ 3, 3 ; We can only count up 00103: 020411 | LDA 0, ZERO, 1 ; AC0 = Term 1 00104: 105420 | INCZ 0, 1 ; AC1 = Term 2 00105: 111020 | LOOP: MOVZ 0, 2 ; AC2 = Next Term 00106: 133020 | ADDZ 1, 2 00107: 121020 | MOVZ 1, 0 ; Term 1 = Term 2 00110: 145020 | MOVZ 2, 1 00111: 175424 | INCZ 3, 3, SZR 00112: 000773 | JMP LOOP, 1 00113: 063077 | HALT 00114: 000000 | ZERO: 0 |
00100: 060277 | start: INTDS ; Disable interrupt 00101: 020112 | LDA 0, asciibeg ; Load constants 00102: 024113 | LDA 1, asciiend 00103: 063511 | mainloop: SKPBZ 0, 11 ; Wait untill TTO is free 00104: 000777 | JMP -1, 1 00105: 061111 | DOAS 0, 11 ; Output to TTO 00106: 101420 | INCZ 0, 0 ; Increment char to be printed 00107: 106455 | SUBO# 0, 1, SNR ; Check if end of ascii table 00110: 020112 | LDA 0, asciibeg ; Reset starting constant 00111: 000103 | JMP mainloop ; Loop 00112: 000040 | asciibeg: 40 00113: 000177 | asciiend: 177 |
![]() |
![]() |