Nzeemin at 15:26, 18 March 2007

2007-03-18T15:26:23Z

New page

<pre>
; ******************************************************
; * *
; * ГРАФИКА ПОЛЬЗОВАТЕЛЯ, ПРИНТЕР, ПЕЧАТЬ ЭКРАНА *
; * *
; * Адреса 135436 - 157777 *
; * *
; ******************************************************

; ТОЧКА ВХОДА ПРИ ИСПОЛНЕНИИ ESC-ПОСЛЕДОВАТЕЛЬНОСТИ ESC %!0 (ВХОД В ГРАФИКУ)
135436$:MOV R5,-(SP)
MOV SP,R5
135442$:CALL 136274$
TST R0
BNE 135442$
JMP 136056$
; П/п установки начальных значений для п/п графического режима
135456$:MOV R5,-(SP)
MOV SP,R5
MOV 22664$,R0
ASL R0
ASL R0
ADD #2500,R0
ADD #-4,R0
MOV R0,23432$
MOV 23432$,23434$
MOV #1200,23412$
CLR 23420$
CLR 23422$
MOV #1,R0
MOV 23420$,R1
BIC #177770,R1
MOV R1,23440$
ASH 23440$,R0
MOV R0,23436$
MOV 23432$,R0
MOV 23422$,R1
ASL R1
ASL R1
SUB R1,R0
MOV R0,23434$
MOV @23434$,R0
MOV 23420$,R1
ASH #-3,R1
MOV R1,23426$
ADD 23426$,R0
MOV R0,23430$
CLR 23442$
CLR 23444$
CLR 23446$
CLR 23450$
CLR 23452$
CLR 23454$
CLR 23456$
CLR 23460$
CLR 23462$
JMP 136056$
; Точка входа при вызове п/п печати экрана
135704$:MOV R0,-(SP)
MOV R1,-(SP)
CALL 140326$
MOV (SP)+,R1
MOV (SP)+,R0
RETURN
; П/п вывода символа на принтер
135722$:MOV R5,-(SP)
MOV SP,R5
BIT #2,177101$ ; Принтер в состоянии ON-LINE ?
BEQ 136000$ ; Нет
135736$:BIT #200,177101$ ; Бит подтверждения сброшен ?
BNE 135736$ ; Нет
MOV 4(R5),177100$ ; Послать код символа на линию данных
BIC #200,177102$ ; Установить сигнал строба
135762$:BIT #200,177101$ ; Получен сигнал подтверждения ?
BEQ 135762$ ; Нет
MOV #200,177102$ ; Сбросить сигнал строба
136000$:JMP 136056$
; П/п инициализации параллельного порта
136004$:MOV R5,-(SP)
MOV SP,R5
MOV #174,177103$
MOV #200,177102$
JMP 136056$

136030$:MOV R5,R0
MOV SP,R5
MOV R4,-(SP)
MOV R3,-(SP)
MOV R2,-(SP)
CLR -(SP)
JMR @R0
136046$:MOV R5,R2
MOV -(R2),R4
MOV -(R2),R3
MOV -(R2),R2
136056$:MOV R5,SP
MOV (SP)+,R5
RETURN
; Блок описания Esc-последовательностей графического режима
136064$:.WORD 136414$,111,0,136502$ ; LI
136074$:.WORD 136622$,126,136602$,120 ; MV, MP
.WORD 136562$,115,136542$,114 ; MM, ML
.WORD 0,136642$
136120$:.WORD 137054$,125,136706$,122 ; RU,RR
.WORD 136700$,104,0,137064$ ; RD
136140$:.WORD 137122$,104,0,137164$ ; TD
137150$:.WORD 140140$,111,137722$,110 ; UI, UH
.WORD 137620$,107,137442$,106 ; UG, UF
.WORD 137432$,105,137424$,104 ; UE, UD
.WORD 137412$,103,137334$,102 ; UC, UB
.WORD 137422$,101,0,140174$ ; UA
136220$:.WORD 140322$,41,0,140302$ ; %!
136230$:.WORD 140202$,45,137172$,125 ; %*, U*
.WORD 137072$,124,136650$,122 ; T*, R*
.WORD 136512$,115,136364$,114 ; M*, L*
.WORD 0,140310$
136264$:.WORD 136334$,33,0,140316$ ; Esc

136274$:JSR R5,136030$
ADD #-6,SP
CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #132264$,R1
JMP 144650$
; П/п обработки символа Esc
136334$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #132230$,R1
JMP 144650$
; П/п обработки Esc L
136364$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #136064$,R1
JMP 144650$
; П/п обработки Esc LI
136414$:CALL 143756$
MOV 23424$,23456$
CALL 143756$
MOV 23424$,23460$
CALL 143756$
MOV 23424$,23462$
MOV 23462$,@SP
MOV 23460$,-(SP)
MOV 23456$,-(SP)
CALL 117026$
CMP (SP)+,(SP)+
MOVB #1,R0
BR 136506$
136502$:MOVB #1,R0
136506$:JMP 136046$
; П/п обработки Esc M
136512$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #136074$,R1
JMP 144650$
; П/п обработки Esc ML
136542$:CALL 143756$
MOV 23424$,23442$
MOVB #1,R0
BR 136506$
; П/п обработки Esc MM
136562$:CALL 143756$
MOV 23424$,23446$
MOVB #1,R0
BR 136506$
; П/п обработки Esc MP
136602$:CALL 143756$
MOV 23424$,23450$
MOVB #1,R0
BR 136506$
; П/п обработки Esc MV
136622$:CALL 143756$
MOV 23424$,23444$
MOVB #1,R0
BR 136506$
136642$:MOVB #1,R0
BR 136506$
; П/п обработки Esc R
136650$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #136120$,R1
JMP 144650$
; П/п обработки Esc RD
136700$:MOVB #1,R0
BR 136506$
; П/п обработки Esc RR
136706$:CALL 144104$
CMP 23420$,23412$
BGE 136732$
CMP 23422$,22664$
BLT 136740$
MOVB #1,R0
BR 136506$
136740$:MOV 23420$,-12(R5)
MOV 23422$,-14(R5)
CALL 144104$
CMP 23420$,23412$
BGE 137000$
CMP 23422$,22664$
BLT 137006$
137000$:MOVB #1,R0
BR 136506$
137006$:CALL 143756$
MOV 23424$,@SP
MOV 23422$,-(SP)
MOV 23420$,-(SP)
MOV -14(R5),-(SP)
MOV -12(R5),-(SP)
CALL 144666$
ADD #10,SP
MOVB #1,R0
BR 137060$
; П/п обработки Esc RU
137054$:MOVB #1,R0
137060$:JMP 136056$
137064$:MOVB #1,R0
BR 137060$
; П/п обработки Esc T
137072$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #136140$,R1
JMP 144650$
; П/п обработки Esc TD
137122$:CALL 143756$
MOV 23424$,23452$
CALL 143756$
MOV 23424$,23454$
MOV 23452$,@SP
CALL 117004$
MOVB #1,R0
BR 137060$
137164$:MOVB #1,R0
BR 137060$
; П/п обработки Esc U
137172$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #136150$,R1
JMP 144650$
; П/п обработки Esc UA
137222$:MOV 23430$,177010$
TST 177024$
BNE 137236$
137236$:BIT #4,23440$
BEQ 137254$
MOV 177022$,R0
BR 137260$
137254$:MOV 177020$,R0
137260$:MOV R0,R1
CLR R0
MOV 23440$,R4
BIC #177774,R4
ASL R4
ASL R4
NEG R4
ASHC R4,R0
MOV R1,@SP
BIC #177760,@SP
CALL 144304$
MOV #15,@SP
CALL 145612$
MOVB #1,R0
BR 137060$
; П/п обработки Esc UB
137334$:MOV 23414$,23420$
MOV 23416$,23422$
MOV 23422$,23414$
MOV 23420$,23416$
CALL 151714$
MOV 23420$,23414$
MOV 23422$,23416$
MOVB #1,R0
BR 137060$
; П/п обработки Esc UC
137412$:CALL 151650$
MOVB #1,R0
BR 137060$
; П/п обработки Esc UD
137424$:MOVB #1,R0
BR 137436$
; П/п обработки Esc UE
137432$:MOVB #1,R0
137436$:JMP 136050$
; П/п обработки Esc UF
137442$:CALL 144104$
CMP 23420$,23412$
BGE 137466$
CMP 23422$,22664$
BLT 137474$
137466$:MOVB #1,R0
BR 137436$
137474$:MOV #1,R0
MOV 23420$,R1
BIC #177770,R1
MOV R1,23440$
ASH 23440$,R0
MOV R0,23436$
MOV 23432$,R0
MOV 23422$,R1
ASL R1
ASL R1
SUB R1,R0
MOV R0,23434$
MOV @23434$,R0
MOV 23420$,R1
ASH #-3,R1
MOV R1,23426$
ADD 23426$,R0
MOV R0,23430$
MOV 23420$,23414$
MOV 23422$,23416$
MOVB #1,R0
BR 137436$
; П/п обработки Esc UG
137620$:CALL 144104$
CMP 23420$,23412$
BGE 137644$
CMP 23422$,22664$
BLT 137652$
137644$:MOVB #1,R0
BR 137436$
137652$:MOV 23442$,177016$
MOV 23430$,177010$
TST 177024$
BNE 137674$
137674$:MOV 23430$,177010$
MOV 23436$,177024$
CALL 141330$
MOVB #1,R0
BR 137436$
; П/п обработки Esc UH
137722$:CALL 144104$
CMP 23420$,23412$
BGE 137746$
CMP 23422$,22664$
BLT 137754$
137746$:MOVB #1,R0
BR 140134$
137754$:MOV #1,R0
MOV 23420$,R1
BIC #177770,R1
MOV R1,23440$
ASH 23440$,R0
MOV R0,23436$
MOV 23432$,R0
MOV 23422$,R1
ASL R1
ASL R1
SUB R1,R0
MOV R0,23434$
MOV @23434$,R0
MOV 23420$,R1
ASH #-3,R1
MOV R1,23426$
ADD 23426$,R0
MOV R0,23430$
MOV 23420$,23414$
MOV 23422$,23416$
MOV 23442$,177016$
MOV 23430$,177010$
TST 177024$
BNE 140114$
140114$:MOV 23430$,177010$
MOV 23436$,177024$
MOVB #1,R0
140134$:JMP 136056$
; П/п обработки Esc UI
140140$:MOV 23416$,@SP
MOV 23414$,-(SP)
CALL 144454$
TST (SP)+
MOV #15,@SP
CALL 145612$
MOVB #1,R0
BR 140134$
140174$:MOVB #1,R0
BR 140134$
; П/п обработки Esc %
140202$:CALL 145564$
MOVB R0,-7(R5)
MOVB -7(R5),R0
BIC #177400,R0
MOV #136220$,R1
JMP 144650$
; П/п обработки Esc %!
140232$:CALL 145564$
MOVB R0,-7(R5)
CMPB -7(R5),#'0
BEQ 140274$
MOVB -7(R5),R0
BIC #177400,R0
MOV R0,@SP
CALL 113574$
CLR R0
BR 140134$
140274$:MOVB #1,R0
BR 140134$
140302$:MOVB #1,R0
BR 140134$
140310$:MOVB #1,R0
BR 140134$
140316$:MOVB #1,R0
BR 140134$
140324$:BR 140134$
; П/п печати экрана
140326$:JSR R5,136030$
ADD #-22,SP
BIT #2,177101$
BEQ 140602$
BIC #100,177700$
MOV #15,@SP
CALL 135722$
MOV #12,@SP
CALL 135722$
CLR -10(R5)
140400$:CMP -10(R5),#79.
BGT 140552$
MOV #-1,-20(R5)
140416$:CMP -20(R5),#2
BGT 140606$
MOV #33,@SP
CALL 135722$
MOV #52,@SP
CALL 135722$
MOV #1,@SP
CALL 135722$
MOV #30,@SP
CALL 135722$
MOV #3,@SP
CALL 135722$
CLR -12(R5)
CMP -12(R5),#263.
BGT 140622$
MOV 23432$,R0
MOV -12(R5),R1
ASL R1
ASL R1
SUB R1,R0
MOV @R0,R0
ADD -10(R5),R0
MOV R0,177010$
TST 177024$
BEQ 141004$
BR 141004$
140552$:MOV #33,@SP
CALL 135722$
MOV #100,@SP
CALL 135722$
MOV #14,@SP
CALL 135722$
140602$:JMP 136046$
140606$:INC -10(R5)
BR 140400$
140614$:INC -20(R5)
BR 140416$
140622$:MOV #33,@SP
CALL 135722$
MOV #63,@SP
CALL 135722$
MOV -20(R5),R1
MUL #22.,R1
MOV R1,@SP
ADD #-21.,@SP
CALL 135722$
MOV #12,@SP
CALL 135722$
MOV #15,@SP
CALL 135722$
BIT #200,177700$
BEQ 140614$
CMP 177702$,#4
BNE 140614$
MOV #33,@SP
CALL 135722$
MOV #100,@SP
CALL 135722$
MOV #15,@SP
CALL 135722$
MOV #12,@SP
CALL 135722$
MTPS #340
BIS #100,177700$
MTPS #0
BR 140602$
141004$:MOV 177020$,-30(R5)
MOV #1,-14(R5)
141020$:CMP -14(R5),#8.
BGT 141246$
MOV -30(R5),R0
BIC #177760,R0
MOV R0,-16(R5)
MOV -22(R5),R0
ASL R0
MOV #153540,R1
MOV #1,R4
MOV -16(R5),R2
ASL R2
SUB R2,R4
SUB -20(R5),R4
ASH R4,R1
BIC #177776,R1
BIS R1,R0
MOV R0,-22(R5)
MOV -24(R5),R0
ASL R0
MOV #177624,R1
MOV #1,R4
MOV -16(R5),R2
ASL R2
SUB R2,R4
SUB -20(R5),R4
ASH R4,R1
BIC #177776,R1
BIS R1,R0
MOV R0,-24(R5)
MOV -26(R5),R0
ASL R0
MOV #172100,R1
MOV #1,R4
MOV -16(R5),R2
ASL R2
SUB R2,R4
SUB -20(R5),R4
ASH R4,R1
BIC #177776,R1
BIS R1,R0
MOV R0,-26(R5)
CMP -14(R5),#4
BNE 141306$
MOV 177022$,-30(R5)
BR 141322$
141246$:MOV -22(R5),@SP
CALL 135722$
MOV -24(R5),@SP
CALL 135722$
MOV -26(R5),@SP
CALL 135722$
INC -12(R5)
JMP 140502$
141306$:MOV -30(R5),R0
ASH #-4,R0
MOV R0,-30(R5)
141322$:INC -14(R5)
BR 141020$
; П/п рисования линии
141330$:MOV R5,-(SP)
MOV SP,R5
ADD #-20,SP
MOV 23420$,R0
SUB 23414$,R0
MOV R0,-12(R5)
MOV 23422$,R0
SUB 23416$,R0
MOV R0,-14(R5)
TST -14(R5)
BNE 141404$
TST -12(R5)
BEQ 141560$
141404$:MOV 23420$,23414$
MOV 23422$,23416$
CLR -16(R5)
TST -14(R5)
BLT 141564$
TST -12(R5)
BLT 141712$
CMP -12(R5),-14(R5)
BGT 141454$
JMP 142106$
141454$:MOV -12(R5),-20(R5)
MOV -20(R5),-10(R5)
MOV -10(R5),R0
DEC -10(R5)
TST R0
BEQ 141560$
SUB -14(R5),-16(R5)
MOV 23436$,R0
ASL R0
BIC #177400,R0
MOV R0,23436$
BEQ 141536$
JMP 142260$
141536$:MOV #1,23436$
INC 23430$
INC 23426$
JMP 142260$
141560$:JMP 136056$
141564$:TST -12(R5)
BLT 141576$
JMP 142722$
141576$:CMP -12(R5),-14(R5)
BLT 141612$
JMP 143136$
141612$:MOV -12(R5),R0
NEG R0
MOV R0,-20(R5)
MOV -20(R5),-10(R5)
MOV -10(R5),R0
DEC -10(R5)
TST R0
BEQ 141560$
ADD -14(R5),-16(R5)
CLC
ROR 23436$
BEQ 141670$
JMP 143310$
141670$:MOV #200,23436$
DEC 23430$
DEC 23426$
JMP 143310$
141712$:MOV -12(R5),R0
NEG R0
CMP R0,-14(R5)
BLT 141732$
141726$:JMP 142442$
141732$:MOV -14(R5),-20(R5)
MOV -20(R5),-10(R5)
MOV -10(R5),R0
TST R0
BEQ 141560$
ADD -12(R5),-16(R5)
SUB #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
TST -16(R5)
BGE 142030$
MOV -16(R5),R0
NEG R0
BR 142034$
142030$:MOV -16(R5),R0
142034$:ASL R0
CMP R0,-20(R5)
BGE 142050$
JMP 142540$
142050$:CLC
ROR 23436$
BEQ 142064$
JMP 142556$
142064$:MOV #200,23436$
DEC 23430$
DEC 23426$
JMP 142556$
142106$:MOV -14(R5),-20(R5)
MOV -20(R5),-10(R5)
142122$:MOV -10(R5),R0
DEC -10(R5)
TST R0
BEQ 141560$
ADD -12(R5),-16(R5)
SUB #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
TST -16(R5)
BGE 142204$
MOV -16(R5),R0
NEG R0
BR 142210$
142204$:MOV -16(R5),R0
142210$:ASL R0
CMP R0,-20(R5)
BLT 142376$
MOV 23436$,R0
ASL R0
BIC #177400,R0
MOV R0,23436$
BNE 142414$
MOV #1,23436$
INC 23430$
INC 23426$
BR 142414$
142260$:TST -16(R5)
BGE 142276$
MOV -16(R5),R0
NEG R0
BR 142302$
142276$:MOV -16(R5),R0
142302$:ASL R0
CMP R0,-20(R5)
BLT 142342$
SUB #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
ADD -12(R5),-16(R5)
MOV 23430$,177010$
TST 177024$
BNE 142356$
142356$:MOV 23430$,177010$
MOV 23436$,177024$
JMP 141470$
142376$:MOV 23430$,177010$
TST 177024$
BEQ 142424$
BR 142424$
142114$:MOV -14(R5),-16(R5)
BR 142376$
142424$:MOV 23430$,177010$
MOV 23436$,177024$
BR 142122$
142442$:MOV -12(R5),R0
NEG R0
MOV R0,-20(R5)
MOV -20(R5),-10(R5)
142462$:MOV -10(R5),R0
DEC -10(R5)
TST R0
BNE 142502$
JMP 141560$
142502$:ADD -14(R5),-16(R5)
CLC
ROR 23436$
BNE 142606$
MOV #200,23436$
DEC 23430$
DEC 23426$
BR 142606$
142540$:MOV 23430$,177010$
TST 177024$
BEQ 142566$
BR 142566$
ADD -14(R5),-16(R5)
BR 142540$
142556$:ADD -14(R5),-16(R5)
BR 142540$
142566$:MOV 23430$,177010$
MOV 23436$,177024$
JMP 141746$
142606$:TST -16(R5)
BGE 142624$
MOV -16(R5),R0
NEG R0
BR 142630$
142624$:MOV -16(R5),R0
142630$:ASL R0
CMP R0,-20(R5)
BLT 142670$
SUB #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
ADD -12(R5),-16(R5)
MOV 23430$,177010$
TST 177024$
BNE 142704$
142704$:MOV 23430$,177010$
MOV 23436$,177024$
BR 142462$
142722$:MOV -14(R5),R0
NEG R0
CMP -12(R5),R0
BLE 142742$
JMP 143472$
142742$:MOV -14(R5),R0
NEG R0
MOV R0,-20(R5)
MOV -20(R5),-10(R5)
MOV -10(R5),R0
DEC -10(R5)
TST R0
BNE 143002$
JMP 141560$
143002$:SUB -12(R5),-16(R5)
ADD #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
TST -16(R5)
BGE 134050$
MOV -16(R5),R0
NEG R0
BR 143054$
143050$:MOV -16(R5),R0
ASL R0
CMP R0,-20(R5)
BGE 143070$
JMP 143574$
143070$:MOV 23436$,R0
ASL R0
BIC #177400,R0
MOV R0,23436$
BEQ 143114$
JMP 143522$
143114$:MOV #1,23436$
INC 23430$
INC 23426$
JMP 143612$
143136$:MOV -14(R5),R0
NEG R0
MOV R0,-20(R5)
MOV -20(R5),-10(R5)
MOV -10(R5),R0
DEC -10(R5)
TST R0
BNE 143176$
JMP 141560$
143176$:SUB -12(R5),-16(R5)
ADD #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
TST -16(R5)
BGE 143244$
MOV -16(R5),R0
NEG R0
BR 143250$
143244$:MOV -16(R5),R0
143250$:ASL R0
CMP R0,-20(R5)
BLT 143426$
CLC
ROR 23436$
BNE 143444$
MOV #200,23436$
DEC 23430$
DEC 23426$
BR 143444$
143310$:TST -16(R5)
BGE 143326$
MOV -16(R5),R0
NEG R0
BR 143332$
143326$:MOV -16(R5),R0
143332$:ASL R0
CMP R0,-20(R5)
BLT 143372$
ADD #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
MOV -12(R5),-16(R5)
143372$:MOV 23430$,177010$
TST 177024$
BNE 143406$
143406$:MOV 23430$,177010$
MOV 23436$,177024$
JMP 141622$
143426$:MOV 23430$,177010$
TST 177024$
BEQ 143454$
BR 143454$
143444$:MOV -14(R5),-16(R5)
BR 143426$
143454$:MOV 23430$,177010$
MOV 23436$,177024$
BR 143216$
143472$:MOV -12(R5),-20(R5)
MOV -20(R5),-10(R5)
143506$:MOV -10(R5),R0
DEC -10(R5)
TST R0
BNE 143526$
JMP 141560$
143526$:MOV -14(R5),-16(R5)
MOV 23436$,R0
ASL R0
BIC #177400,R0
MOV R0,23436$
BNE 143642$
MOV #1,23436$
INC 23430$
INC 23426$
BR 143642$
143574$:MOV 23430$,177010$
TST 177024$
BEQ 143622$
BR 143622$
143612$:MOV -14(R5),-16(R5)
BR 143574$
143622$:MOV 23430$,177010$
MOV 23436$,177024$
JMP 142762$
143642$:TST -16(R5)
BGE 143660$
MOV -16(R5),R0
NEG R0
BR 143664$
143660$:MOV -16(R5),R0
143664$:ASL R0
CMP R0,-20(R5)
BLT 143724$
ADD #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
SUB -12(R5),-16(R5)
143724$:MOV 23430$,177010$
TST 177024$
BNE 143740$
143740$:MOV 23430$,177010$
MOV 23436$,177024$
BR 143506$
; П/п приема трех символов и перевода их в целое число
143756$:MOV R5,-(SP)
MOV SP,R5
ADD #-10,SP
CALL 145564$
ASH #6,R0
MOV R0,23424$
CALL 145564$
BIC #177700,R0
BIS 23424$,R0
ASH #4,R0
MOV R0,23424$
CALL 145564$
MOV R0,-10(R5)
MOV -10(R5),R0
BIC #177760,R0
BIS 23424$,R0
MOV R0,23424$
BIT #20,-10(R5)
BNE 144100$
MOV 23424$,R0
NEG R0
MOV R0,23424$
144100$:JMP 136056$
; П/п приема пяти символов и перевода их в два целых числа
144104$:MOV R5,-(SP)
MOV SP,R5
ADD #-10,SP
CALL 145564$
BIC #177740,R0
ASH #5,R0
MOV R0,23422$
CALL 145564$
MOV R0,-10(R5)
CALL 145564$
BIC #177740,R0
BIS 23422$,R0
ASL R0
ASL R0
MOV R0,23422$
CALL 145564$
BIC #177740,R0
ASH #5,R0
MOV R0,23420$
CALL 145564$
BIC #177740,R0
BIS 23420$,R0
ASL R0
ASL R0
MOV R0,23420$
MOV -10(R5),R0
ASR R0
ASR R0
BIC #177774,R0
BIS 23422$,R0
MOV R0,23422$
MOV -10(R5),R0
BIC #177774,R0
BIS 23420$,R0
MOV R0,23420$
JMP 136056$
; П/п преобразования целого числа в три символа и их вывод
144304$:MOV R5,-(SP)
MOV SP,R5
ADD #-12,SP
TST 4(R5)
BGE 144342$
MOV 4(R5),R0
NEG R0
MOV R0,4(R5)
CLR -10(R5)
BR 143350$
143342$:MOV #20,-10(R5)
143350$:MOV 4(R5),R0
ASH #-12,R0
MOV R0,@SP
BIC #177700,@SP
BIS #100,@SP
CALL 145612$
MOV 4(R5),R0
ASH #-4,R0
MOV R0,@SP
BIC #177700,@SP
BIS #100,@SP
CALL 145612$
MOV 4(R5),@SP
BIC #177760,@SP
BIS -10(R5),@SP
BIS #40,@SP
CALL 145612$
JMP 136056$
; П/п преобразования двух целых чисел в пять символов и их вывод
144454$:MOV R5,-(SP)
MOV SP,R5
TST -(SP)
MOV 6(R5),R0
ASH #-7,R0
MOV R0,@SP
BIC #177740,@SP
BIS #40,@SP
CALL 145612$
MOV 4(R5),@SP
BIC #177774,@SP
MOV 6(R5),R0
BIC #177774,R0
ASL R0
ASL R0
BIS R0,@SP
BIS #140,@SP
CALL 145612$
MOV 6(R5),@SP
ASR @SP
ASR @SP
BIC #177740,@SP
BIS #140,@SP
CALL 145612$
MOV 4(R5),R0
ASH #-7,R0
MOV R0,@SP
BIC #177740,@SP
BIS #40,@SP
CALL 145612$
MOV 4(R5),@SP
ASR @SP
ASR @SP
BIC #177740,@SP
BIS #100,@SP
CALL 145612$
JMP 136056$

144650$:TST (R1)+
BEQ 144664$
CMP R0,(R1)+
BNE 144650$
JMP @-4(R1)
JMP @(R1)+
; П/п закраски прямоугольной области
144666$:MOV R5,-(SP)
MOV SP,R5
ADD #-22,SP
MOV #1,R0
MOV 10(R5),R1
BIC #177770,R1
MOV R1,23440$
ASH 23440$,R0
MOV R0,23436$
MOV 23432$,R0
MOV 12(R5),R1
ASL R1
ASL R1
SUB R1,R0
MOV R0,23434$
MOV @23434$,R0
MOV 10(R5),R1
ASH #-3,R1
MOV R1,23426$
MOV 23426$,R0
MOV R0,23430$
MOV 23426$,-14(R5)
MOV 23434$,-22(R5)
MOV #100000,R0
MOV 23440$,R1
ADD #-16,R1
ASH R1,R0
COM R0
MOV R0,-12(R5)
MOV #1,R0
MOV 4(R5),R1
BIC #177770,R1
MOV R1,23440$
ASH 23440$,R0
MOV R0,23436$
MOV 23432$,R0
MOV 6(R5),R1
ASL R1
ASL R1
SUB R1,R0
MOV R0,23434$
MOV @23434$,R0
MOV 4(R5),R1
ASH #-3,R1
MOV R1,23426$
ADD 23426$,R0
MOV R0,23430$
MOV #100000,R0
MOV 23430$,R1
ADD #-17,R1
ASH R1,R0
MOV R0,-10(R5)
MOV -14(R5),R0
SUB 23426$,R0
MOV R0,-20(R5)
MOV 23430$,R0
ADD -20(R5),R0
MOV R0,-16(R5)
TST -20(R5)
BNE 145234$
MOV -12(R5),R0
COM R0
BIC R0,-10(R5)
145234$:MOV 14(R5),177016$
CMP 23434$,-22(R5)
BLO 145270$
MOV 23430$,177010$
TST 177024$
BEQ 145376$
BR 145376$
145270$:MOV #1,R0
MOV 23414$,R1
BIC #177770,R1
MOV R1,23440$
ASH 23440$,R0
MOV R0,23436$
MOV 23432$,R0
MOV 23416$,R1
ASL R1
ASL R1
SUB R1,R0
MOV R0,23434$
MOV @23434$,R0
MOV 23414$,R1
ASH #-3,R1
MOV R1,23426$
ADD 23426$,R0
MOV R0,23430$
JMP 136056$
145376$:MOV 23430$,177010$
MOV -10(R5),177024$
TST -20(R5)
BEQ 145452$
145420$:INC 23430$
CMP 23430$,-16(R5)
BHIS 145512$
MOV 23430$,177010$
TST 177024$
BEQ 145530$
BR 145530$
145452$:SUB #4,23434$
MOV @23434$,R0
ADD 23426$,R0
MOV R0,23430$
MOV 23430$,R0
ADD -20(R5),R0
MOV R0,-16(R5)
BR 145242$
145512$:MOV 23430$,177010$
TST 177024$
BEQ 145546$
BR 145546$
145530$:MOV 23430$,177010$
MOV #377,177024$
BR 145420$
145546$:MOV 23430$,177010$
MOV -12(R5),177024$
BR 145452$
; П/п приема символа
145564$:MOV R5,-(SP)
MOV R4,-(SP)
MOV R3,-(SP)
MOV R2,-(SP)
CALL 110762$
MOV (SP)+,R2
MOV (SP)+,R3
MOV (SP)+,R4
MOV (SP)+,R5
RETURN
; П/п вывода символа
145612$:MOV 2(SP),R0
CALL 104160$
RETURN
; Все остальные п/п относятся к обработке последовательностей Esc UB и Esc UC
145624$:MOV SP,23602$
CALL 152144$
BHIS 145642$
JMP 145716$
145642$:CALL 151000$
BLO 145734$
145650$:MOV #23540$,R1
CMP 2(R1),#23546$
BEQ 145732$
CALL 145734$
BLO 145676$
CALL 146010$
145676$:MOV #23546$,R1
CALL 145762$
BLO 145650$
CALL 146106$
BR 145650$
145716$:MOV 23602$,SP
MOV #1,R0
BR 145732$
CLR R0
145732$:RETURN
145734$:MOV 2(R1),R1
TST @R1
BEQ 145756$
MOV 6(R1),23564$
BEQ 145734$
BR 145760$
145756$:SEC
145760$:RETURN
145762$:MOV 4(R1),R1
TST @R1
BEQ 146004$
MOV 10(R1),23564$
BEQ 145762$
BR 146006$
146004$:SEC
146006$:RETURN
146010$:MOV 0(R1),23560$
MOV #1,23572$
MOV 23474$,23574$
INC 23574$
MOV #0,23576$
MOV #2,23600$
MOV #-2,23606$
MOV #2,23610$
MOV R1,23554$
ADD #2,R1
CALL 146200$
RETURN
146104$:MOV 0(R1),23560$
MOV #-1,23572$
MOV #0,23574$
MOV 23474$,23576$
INC 23576$
MOV #-2,23600$
MOV #-4,23606$
MOV #4,23610$
MOV R1,23554$
ADD #4,R1
CALL 146200$
RETURN
146200$:MOV 23564$,R2
MOV 23566$,R3
MOV 23502$,R5
146214$:MOV (R2)+,(R3)+
SOB R5,146214$
MOV 20(R1),23616$
MOV 10(R1),23620$
MOV 14(R1),23562$
MOV 23570$,R0
MOV 23502$,R5
146252$:CLR (R0)+
SOB R5,146252$
MOV 10(R1),R5
MOV 20(R1),R0
SUB R0,R5
ASR R5
INC R5
MOV 23570$,R2
ADD R0,R2
ADD 23562$,R0
MOV R2,-(SP)
MOV R0,-(SP)
146312$:CALL 147760$
BIS R4,(R2)+
ADD #2,R0
SOB R5,146312$
MOV 10(R1),R5
ADD 23564$,R5
MOV @R5,R5
CALL 150136$
BIT #100000,R5
BEQ 146412$
MOV 23476$,R5
SUB 10(R1),R5
ASR R5
DEC R5
BEQ 146412$
146370$:CALL 147760$
BIS R4,(R2)+
CMP #-1,R4
BNE 146412$
ADD #2,R0
SOB R5,146370$
146412$:MOV (SP)+,R0
MOV (SP)+,R2
MOV @R2,R4
MOV 20(R1),R5
ADD 23564$,R5
MOV @R5,R0
CALL 150136$
BIT #1,R5
BEQ 146476$
MOV 20(R1),R5
BEQ 146476$
ASR R5
146454$:SUB #2,R0
CALL 147760$
BIS R4,(R2)+
CMP #-1,R4
BNE 146476$
SOB R5,146454$
146476$:MOV #23604$,R5
CALL 150246$
MOV 23604$,R0
MOV 23570$,R3
MOV 20(R1),R2
ADD R2,R0
ADD R2,R3
ADD 23564$,R2
MOV 10(R1),R5
SUB 20(R1),R5
ASR R5
INC R5
MOV R5,-(SP)
BR 146556$
146552$:BIS #1,@R2
146556$:MOV R5,-(SP)
MOV (R2)+,R5
MOV (R3)+,R4
CALL 150136$
BIS R5,(R0)+
MOV (SP)+,R5
BIT #100000,R4
BNE 146606$
SOB R5,146556$
BR 146674$
146606$:SOB R5,146552$
MOV R0,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV 23476$,R5
SUB 10(R1),R5
ASR R5
DEC R5
BEQ 146666$
146634$:MOV R5,-(SP)
BIS #1,@R2
MOV (R2)+,R5
MOV (R3)+,R4
CALL 150136$
BIS R5,(R0)+
MOV (SP)+,R5
BIT #100000,R4
BEQ 146666$
SOB R5,146634$
146666$:MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,R0
146674$:MOV (SP)+,R5
BR 146706$
146700$:BIS #100000,-2(R2)
146706$:MOV R5,-(SP)
MOV -(R2),R5
MOV -(R3),R4
CALL 150136$
BIS R5,-(R0)
MOV (SP)+,R5
BIT #1,R4
BNE 146736$
SOB R5,146706$
BR 147002$
146736$:SOB R5,146700$
TST 20(R1)
BEQ 147002$
MOV @R0,R4
146750$:BIT #1,R4
BEQ 147002$
BIS #100000,-(R2)
MOV @R2,R5
MOV -(R3),R4
CALL 150136$
BIS R5,-(R0)
CMP R0,23604$
BHI 146750$
147002$:MOV 23604$,R0
MOV 23570$,R3
MOV 23502$,R5
147016$:MOV (R0)+,(R3)+
SOB R5,147016$
MOV 23604$,R5
CALL 150470$
BHIS 147050$
MOV 23536$,@R5
MOV R5,23536$
JMP 147644$
147050$:CALL 150716$
MOV 23560$,R3
ADD 23572$,R3
CMP R3,23574$
BEQ 147426$
CALL 147732$
CALL 150576$
MOV R4,23556$
ADD 23610$,R4
MOV 23636$,14(R4)
ADD 23630$,14(R4)
MOV 4(R4),R3
BNE 147160$
MOV 23604$,4(R4)
MOV 23612$,20(R4)
MOV 23614$,10(R4)
BR 147240$
147160$:MOV 23502$,R5
MOV 23604$,R0
147170$:BIS (R0)+,(R3)+
SOB R5,147170$
CMP 23612$,20(R4)
BGE 147212$
MOV 23612$,20(R4)
147212$:CMP 23614$,10(R4)
BLE 147230$
MOV 23614$,10(R4)
147230$:MOV 23604$,R5
CALL 150300$
MOV R4,-(SP)
MOV R1,-(SP)
MOV 23612$,-(SP)
MOV 23614$,-(SP)
MOV R4,R1
ADD 23600$,R1
MOV 4(R1),R2
BEQ 147412$
MOV 4(R4),R3
MOV 23502$,R5
MOV R2,-(SP)
MOV R3,-(SP)
147304$:MOV @R2,R0
BIC @R3,(R2)+
BIC R0,(R3)+
SOB R5,147304$
MOV (SP)+,R3
MOV (SP)+,R2
MOV 23556$,23640$
MOV R2,R5
CALL 150470$
BCC 147344$
CALL 150332$
BR 147360$
147344$:MOV 23612$,20(R1)
MOV 23614$,10(R1)
147360$:MOV R3,R5
CALL 150470$
BCC 147376$
CALL 150332$
BR 147412$
147376$:MOV 23612$,20(R4)
MOV 23614$,10(R4)
147412$:MOV (SP)+,23614$
MOV (SP)+,23612$
MOV (SP)+,R1
MOV (SP)+,R4
SUB 23572$,23560$
CMP 23560$,23576$
BEQ 147644$
MOV 23566$,R0
MOV 23570$,R3
MOV 23502$,R5
147460$:BIC (R0)+,(R3)+
SOB R5,147460$
MOV 23570$,R5
CALL 150470$
BCS 147644$
MOV 23560$,R3
CALL 147732$
CALL 150576$
ADD 23610$,R4
ADD 23600$,R4
MOV 23636$,14(R4)
MOV 4(R4),R3
BNE 147554$
MOV R4,R5
ADD #4,R5
CALL 150246$
MOV 4(R4),R3
147554$:MOV 23614$,R5
SUB 23612$,R5
ASR R5
INC R5
MOV 23570$,R2
ADD 23612$,R2
ADD 23612$,R3
147604$:BIS (R2)+,(R3)+
SOB R5,147604$
CMP 23612$,20(R4)
BGE 147626$
MOV 23612$,20(R4)
147626$:CMP 23614$,10(R4)
BLE 147644$
MOV 23614$,10(R4)
147644$:MOV R1,R5
MOV 23554$,23640$
CALL 150332$
RETURN
147662$:MOV (SP)+,23642$
MOV R1,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R4,-(SP)
MOV R5,-(SP)
MOV 23642$,-(SP)
RETURN
147706$:MOV (SP)+,23642$
MOV (SP)+,R5
MOV (SP)+,R4
MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,R1
MOV 23642$,-(SP)
RETURN
147732$:MOV R3,-(SP)
DEC R3
NEG R3
ASL R3
ASL R3
ADD 23504$,R3
MOV @R3,23636$
MOV (SP)+,R3
RETURN
147760$:MOV R3,-(SP)
MOV R5,-(SP)
CLR R4
DEC R4
MOV R0,177010$
MOVB 177012$,R5
MOV 23464$,R3
XOR R3,R5
BICB R5,R4
MOVB 177014$,R5
MOV 23466$,R3
XOR R3,R5
BICB R5,R4
MOVB 177015$,R5
MOV 23470$,R3
XOR R3,R5
BICB R5,R4
INC R0
SWAB R4
MOV R0,177010$
MOVB 177012$,R5
MOV 23464$,R3
XOR R3,R5
BICB R5,R4
MOVB 177014$,R5
MOV 23466$,R3
XOR R3,R5
BICB R5,R4
MOVB 177015$,R5
MOV 23470$,R3
XOR R3,R5
BICB R5,R4
SWAB R4
TST 23634$
BNE 150126$
COM R4
150126$:DEC R0
MOV (SP)+,R5
MOV (SP)+,R3
RETURN
150136$:TST R5
BEQ 150234$
COM R4
BEQ 150240$
BIC R4,R5
BEQ 150234$
MOV R0,-(SP)
MOV R1,-(SP)
MOV R4,-(SP)
COM R4
CLR R0
150164$:MOV R4,R1
DEC R1
XOR R4,R1
BIS R1,R4
MOV R4,R1
INC R1
XOR R4,R1
BLT 150210$
CLC
ROR R1
150210$:BIC R0,R1
BIS R1,R0
BIT R1,R5
BEQ 150222$
BIS R1,R5
150222$:BIC R0,R4
BEQ 150164$
BIC (SP)+,R5
MOV (SP)+,R1
MOV (SP)+,R0
150234$:MOV R5,R4
RETURN
150240$:COM R4
MOV R4,R5
RETURN
150246$:MOV 23536$,@R5
BNE 150260$
JMP 145716$
150260$:MOV @23536$,23536$
MOV R5,-(SP)
MOV @SP,R5
CLR @R5
MOV (SP)+,R5
RETURN
150300$:MOV R3,-(SP)
MOV 23476$,R3
ADD R3,R5
ASL R3
150312$:CLR -(R5)
SOB R3,150312$
MOV 23536$,@R5
MOV R5,23536$
MOV (SP)+,R3
RETURN
150332$:MOV R5,-(SP)
MOV 4(R5),R4
BEQ 150372$
MOV R5,-(SP)
MOV R4,R5
CALL 150300$
MOV (SP)+,R5
CLR 4(R5)
MOV #10000,20(R5)
CLR 10(R5)
150372$:MOV 23640$,R5
TST 6(R5)
BNE 150464$
TST 10(R5)
BNE 150464$
MOV R2,-(SP)
MOV R3,-(SP)
MOV 2(R5),R2
MOV 4(R5),R3
MOV R3,4(R2)
MOV R2,2(R3)
CLR 2(R5)
CLR 4(R5)
MOV (SP)+,R3
MOV (SP)+,R2
MOV 23506$,0(R5)
MOV R5,23506$
MOV (SP)+,R5
RETURN
150470$:MOV R5,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
MOV R5,R2
MOV 23502$,R3
150504$:TST (R2)+
BNE 150524$
SOB R3,150504$
MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,R5
SEC
RETURN
150524$:SUB #2,R2
MOV R2,23612$
MOV 23476$,R3
ADD R3,R5
ASR R3
150544$:TST -(R5)
BNE 150552$
SOB R3,150544$
150552$:MOV R5,23614$
MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,R5
SUB R5,23612$
SUB R5,23614$
RETURN
150576$:MOV R2,-(SP)
MOV R3,-(SP)
MOV R5,-(SP)
MOV #23540$,R4
150610$:MOV 2(R4),R5
TST @R5
BEQ 150634$
CMP 0(R5),R3
BGT 150634$
BEQ 150704$
MOV R5,R4
BR 150610$
150634$:MOV 23506$,R2
BNE 150646$
JMP 145716$
150646$:MOV @R2,23506$
MOV R3,0(R2)
MOV 2(R4),2(R2)
MOV R2,4(R2)
MOV 4(R5),4(R2)
MOV R2,4(R5)
MOV R2,R5
150704$:MOV R5,R4
MOV (SP)+,R5
MOV (SP)+,R3
MOV (SP)+,R2
RETURN
150716$:MOV R2,-(SP)
MOV R3,-(SP)
MOV R5,-(SP)
MOV 23612$,R2
MOV 23614$,R5
SUB R2,R5
ADD #2,R5
MOV R2,R3
ADD 23604$,R3
ADD 14(R1),R2
150754$:MOV R2,177010$
MOVB (R3)+,177024$
INC R2
SOB R5,150754$
MOV (SP)+,R5
MOV (SP)+,R3
MOV (SP)+,R2
RETURN
151000$:MOV 23652$,R3
CALL 150576$
MOV R4,23624$
MOV #23604$,R5
CALL 150246$
MOV 23604$,6(R4)
MOV R3,0(R4)
MOV R3,23626$
MOV 23654$,R0
DEC R0
MOV R0,R1
MOV #3,R3
151056$:CLC
ROL R1
SOB R3,151056$
BIC #1,R1
MOV R1,22(R4)
MOV R1,12(R4)
ADD R1,23604$
MOV 0(R4),R3
CALL 147732$
MOV 23636$,16(R4)
MOV 23636$,23562$
MOV #1,R2
BIC #177760,R0
BEQ 151150$
151142$:CLC
ROL R2
SOB R0,151142$
151150$:MOV R2,@23604$
MOV R2,23622$
CALL 151166$
RETURN
151166$:MOV SP,23656$
MOV 23624$,R1
MOV 22(R1),R0
MOV R0,23616$
MOV R0,23620$
MOV 6(R1),R2
ADD R0,R2
ADD 23562$,R0
MOV R0,-(SP)
MOV R2,-(SP)
MOV R3,-(SP)
CALL 147760$
TST R4
BNE 151246$
JMP 151640$
151246$:MOV 23622$,R5
CALL 150136$
TST R4
BNE 151266$
JMP 151640$
151266$:MOV R4,(R2)+
ADD #2,R0
BIT #100000,R4
BEQ 151374$
MOV 23476$,R5
SUB 23316$,R5
ASR R5
DEC R5
BEQ 151374$
151320$:CALL 147760$
CMP R4,#-1
BNE 151352$
MOV R4,(R2)+
ADD #2,R0
ADD #2,23620$
SOB R5,151320$
BR 151374$
151352$:MOV #1,R5
CALL 150136$
MOV R4,(R2)+
BEQ 151374$
ADD #2,23620$
151374$:MOV (SP)+,R3
MOV (SP)+,R2
MOV (SP)+,R0
BIT #1,@R2
BEQ 151474$
MOV 23616$,R5
ASR R5
BEQ 151474$
151420$:SUB #2,R0
CALL 147760$
CMP R4,#-1
BNE 151452$
MOV R4,-(R2)
151440$:SUB #2,23616$
SOB R5,151420$
BR 151474$
151452$:MOV #100000,R5
CALL 150136$
MOV R4,-(R2)
BEQ 151474$
SUB #2,23616$
151474$:MOV 23616$,22(R1)
MOV 23620$,12(R1)
MOV 0(R1),R3
DEC R3
BLE 151634$
CALL 147732$
CALL 150576$
MOV R3,0(R4)
MOV #23564$,R5
CALL 150246$
MOV 12(R1),R5
SUB 22(R1),R5
ASR R5
INC R5
MOV 6(R1),R2
MOV 23564$,R3
ADD 22(R1),R2
ADD 22(R1),R3
151600$:MOV (R2)+,(R3)+
SOB R5,151600$
MOV 22(R1),24(R1)
MOV 12(R1),14(R1)
MOV 23564$,10(R4)
MOV 23636$,20(R4)
CLC
BR 151646$
151640$:MOV 23656$,SP
SEC
RETURN
151650$:CALL 147662$
CALL 151756$
MOV #-1,23636$
CALL 145624$
MOV 23646$,R1
MOV 23644$,R0
CALL 176300$
CALL 147706$
RETURN
151714$:CALL 147662$
CALL 151756$
CLR 23636$
CALL 145624$
MOV 23646$,R1
MOV 23644$,R0
CALL 176300$
CALL 147706$
RETURN
151756$:MOV 23414$,23652$
INC 23652$
MOV 23416$,23654$
INC 23654$
MOV 23442$,R1
CLR 23464$
ROR R1
SBC 23464$
CLR 23466$
ROR R1
SBC 23466$
CLR 23470$
ROR R1
SBC 23470$
MOV 23450$,R1
NEG R1
MOVB R1,177016$
MOV 23432$,23506$
MOV 22664$,23474$
MOV 23412$,23500$
BIC #17,23500$
MOV 23500$,23476$
ASR 23476$
ASR 23476$
ASR 23476$
MOV 23476$,23502$
ASR 23502$
RETURN
152144$:MOV #5322,R0
CALL 176132$
MOV R0,23644$
MOV R1,23646$
MOV 23644$,R1
ASR R1
SUB 23476$,R1
BLE 152456$
MOV 23502$,R2
ADD #13,R2
CLR R3
BR 152216$
152214$:INC R3
152216$:SUB R2,R1
BGT 152214$
TST R3
BEQ 152456$
CMP R3,#31
BLE 152240$
MOV #27,R3
152240$:MOV R3,23650$
MOV 23646$,R1
INC R1
BIC #1,R1
MOV 23502$,R2
MOV R1,23566$
152266$:CLR (R1)+
SOB R2,152266$
MOV R1,23570$
MOV 23502$,R2
152302$:CLR (R1)+
SOB R2,152302$
MOV R1,-(SP)
MOV #23150$,R2
MOV R2,R1
MOV R2,23506$
MOV #11,R3
152326$:CLR (R1)+
SOB R3,152326$
MOV #10000,(R1)+
MOV #10000,(R1)+
MOV (SP)+,R1
MOV 23650$,R5
DEC R5
BEQ 152402$
152354$:MOV R1,@R2
MOV R1,R2
MOV #11,R3
152364$:CLR (R1)+
SOB R3,152364$
MOV #100000,(R1)+
MOV #100000,(R1)+
SOB R5,152354$
152402$:MOV #23536$,R2
MOV 23650$,R5
152412$:MOV R1,@R2
MOV R1,R2
MOV 23502$,R3
152422$:CLR (R1)+
SOB R3,152422$
SOB R5,152412$
MOV #23540$,R1
CLR (R1)+
MOV #23546$,(R1)+
CLR (R1)+
CLR (R1)+
MOV #23540$,@R1
BR 152460$
152456$:SEC
152460$:RETURN
.ENDT
</pre>

Uknc ROM disasm - 5 - Revision history

Alex K: Исправлены ошибки

Nzeemin at 15:26, 18 March 2007