|
|
| Line 1: |
Line 1: |
| − | == 2007/03/15 ==
| + | Добро пожаловать на страницу эмулятора УКНЦ -- UKNC - Back to live |
| − | Пример работы советских кодописателей == спагетти а не код
| |
| | | | |
| − | ROM:111112 ; ---------------------------------------------------------------------------
| |
| − | ROM:111112
| |
| − | ROM:111112 loc_111112: ; CODE XREF: ROM:111132
| |
| − | ROM:111112 add @#22546, PC
| |
| − | ROM:111116 return
| |
| − | ROM:111120 ; ---------------------------------------------------------------------------
| |
| − | ROM:111120 trap 4
| |
| − | ROM:111122 inc @#7064
| |
| − | ROM:111126 dec @#7064
| |
| − | ROM:111132 beq loc_111112
| |
| − | ROM:111134 tst @#7060
| |
| − | ROM:111140 beq loc_111204
| |
| − | ROM:111142 return
| |
| − | ROM:111144 ; ---------------------------------------------------------------------------
| |
| − | ROM:111144 inc @#7066
| |
| − | ROM:111150 mov @#23150, R5
| |
| − | ROM:111154 mov 34(R5), @#177016
| |
| − | ROM:111162 mov 40(R5), @#177020
| |
| − | ROM:111170 mov 40(R5), @#177022
| |
| − | ROM:111176 movb 70(R5), @64(R5)
| |
| − | ROM:111204
| |
| − | ROM:111204 loc_111204: ; CODE XREF: ROM:111140
| |
| − | ROM:111204 movb @22542, R0
| |
| − | ROM:111210 inc @#22542
| |
| − | ROM:111214 bic #200, @#22542 ; 'A'
| |
| − | ROM:111222 mov #-66652, -(SP)
| |
| − | ROM:111226 bic #-400, R0
| |
| − | ROM:111232 cmp R0, #40 ; ' '
| |
| − | ROM:111236 bcc loc_111260
| |
| − | ROM:111240 tstb @#22552
| |
| − | ROM:111244 beq loc_111252
| |
| − | ROM:111246 jmp loc_111730
| |
| − | ROM:111252 ; ---------------------------------------------------------------------------
| |
| − | ROM:111252
| |
| − | ROM:111252 loc_111252: ; CODE XREF: ROM:111244
| |
| − | ROM:111252 asl R0
| |
| − | ROM:111254 jmp @13142(R0)
| |
| − | ROM:111260 ; ---------------------------------------------------------------------------
| |
| − | ROM:111260
| |
| − | ROM:111260 loc_111260: ; CODE XREF: ROM:111236
| |
| − | ROM:111260 cmpb R0, #77 ; '?'
| |
| − | ROM:111264 blos sub_111272
| |
| − | ROM:111266 bis @#22556, R0
| |
| − | ROM:111272 ; --------------- S U B R O U T I N E ---------------------------------------
| |
| − | ROM:111272
| |
| − | ROM:111272
| |
| − | ROM:111272 sub_111272: ; CODE XREF: ROM:111264�j
| |
| − | ROM:111272 ; ROM:111744�P ...
| |
| − | ROM:111272 asl R0
| |
| − | ROM:111274 mov 14142(R0), R1
| |
| − | ROM:111300 mov 10(R5), R0
| |
| − | ROM:111304 mov #-770, R2
| |
| − | ROM:111310 mov #-754, R3
| |
| − | ROM:111314 mov @R5, @R2
| |
| − | ROM:111316 add 56(R5), PC
| |
| − | ROM:111322 movb (R1)+, R4
| |
| − | ROM:111324 mov R4, @R3
| |
| − | ROM:111326 add R0, @R2
| |
| − | ROM:111330 movb (R1)+, R4
| |
| − | ROM:111332 mov R4, @R3
| |
| − | ROM:111334 add R0, @R2
| |
| − | ROM:111336 movb (R1)+, R4
| |
| − | ROM:111340 mov R4, @R3
| |
| − | ROM:111342 add R0, @R2
| |
| − | ROM:111344 movb (R1)+, R4
| |
| − | ROM:111346 mov R4, @R3
| |
| − | ROM:111350 add R0, @R2
| |
| − | ROM:111352 movb (R1)+, R4
| |
| − | ROM:111354 mov R4, @R3
| |
| − | ROM:111356 add R0, @R2
| |
| − | ROM:111360 movb (R1)+, R4
| |
| − | ROM:111362 mov R4, @R3
| |
| − | ROM:111364 add R0, @R2
| |
| − | ROM:111366 movb (R1)+, R4
| |
| − | ROM:111370 mov R4, @R3
| |
| − | ROM:111372 add R0, @R2
| |
| − | ROM:111374 movb (R1)+, R4
| |
| − | ROM:111376 mov R4, @R3
| |
| − | ROM:111400 add R0, @R2
| |
| − | ROM:111402 movb (R1)+, R4
| |
| − | ROM:111404 mov R4, @R3
| |
| − | ROM:111406 add R0, @R2
| |
| − | ROM:111410 movb (R1)+, R4
| |
| − | ROM:111412 mov R4, @R3
| |
| − | ROM:111414 add R0, @R2
| |
| − | ROM:111416 movb (R1)+, R4
| |
| − | ROM:111420 mov R4, @R3
| |
| − | ROM:111422 inc @R5
| |
| − | ROM:111424 dec 16(R5)
| |
| − | ROM:111430 bne locret_111624
| |
| − | ROM:111432 mov 22(R5), @R5
| |
| − | ROM:111436 mov 4(R5), 16(R5)
| |
| − | ROM:111444
| |
| − | ROM:111444 loc_111444: ; CODE XREF: ROM:114222�J
| |
| − | ROM:111444 add #54, 32(R5) ; ','
| |
| − | ROM:111452 cmp 32(R5), 26(R5)
| |
| − | ROM:111460 bne loc_111470
| |
| − | ROM:111462 mov 24(R5), 32(R5)
| |
| − | ROM:111470
| |
| − | ROM:111470 loc_111470: ; CODE XREF: sub_111272+166�j
| |
| − | ROM:111470 add @32(R5), @R5
| |
| − | ROM:111474 dec 20(R5)
| |
| − | ROM:111500 bne locret_111624
| |
| − | ROM:111502 add 74(R5), PC
| |
| − | ROM:111506 br loc_111626
| |
| − | ROM:111510 ; ---------------------------------------------------------------------------
| |
| − | ROM:111510 inc 20(R5)
| |
| − | ROM:111514 mov #13, -(SP)
| |
| − | ROM:111520 add #54, 30(R5) ; ','
| |
| − | ROM:111526 cmp 30(R5), #4670
| |
| − | ROM:111534 bne loc_111544
| |
| − | ROM:111536 mov #2500, 30(R5)
| |
| − | ROM:111544
| |
| − | ROM:111544 loc_111544: ; CODE XREF: sub_111272+242�j
| |
| − | ROM:111544 ; sub_111272+300�j
| |
| − | ROM:111544 mov @#23170, R0
| |
| − | ROM:111550 beq loc_111574
| |
| − | ROM:111552 bpl loc_111556
| |
| − | ROM:111554 neg R0
| |
| − | ROM:111556
| |
| − | ROM:111556 loc_111556: ; CODE XREF: sub_111272+260�j
| |
| − | ROM:111556 cmp R0, #14
| |
| − | ROM:111562 blos loc_111614
| |
| − | ROM:111564 trap 0
| |
| − | ROM:111566 mov @#23150, R5
| |
| − | ROM:111572 br loc_111544
| |
| − | ROM:111574 ; ---------------------------------------------------------------------------
| |
| − | ROM:111574
| |
| − | ROM:111574 loc_111574: ; CODE XREF: sub_111272+256�j
| |
| − | ROM:111574 clr @#23164
| |
| − | ROM:111600 mov #2, @#7134
| |
| − | ROM:111606 movb #177, @23160 ; ''
| |
| − | ROM:111614
| |
| − | ROM:111614 loc_111614: ; CODE XREF: sub_111272+270�j
| |
| − | ROM:111614 call sub_113344
| |
| − | ROM:111620 add (SP)+, @#23170
| |
| − | ROM:111624
| |
| − | ROM:111624 locret_111624: ; CODE XREF: sub_111272+136�j
| |
| − | ROM:111624 ; sub_111272+206�j
| |
| − | ROM:111624 return
| |
| − | ROM:111626 ; ---------------------------------------------------------------------------
| |
| − | ROM:111626
| |
| − | ROM:111626 loc_111626: ; CODE XREF: sub_111272+214�j
| |
| − | ROM:111626 jmp loc_114316
| |
| − | ROM:114316 ; ---------------------------------------------------------------------------
| |
| − | ROM:114316
| |
| − | ROM:114316 loc_114316: ; CODE XREF: sub_111272+334�J
| |
| − | ROM:114316 clr R0
| |
| − | ROM:114320 jmp loc_115720
| |
| − | ROM:115720 ; ---------------------------------------------------------------------------
| |
| − | ROM:115720
| |
| − | ROM:115720 loc_115720: ; CODE XREF: ROM:114320�J
| |
| − | ROM:115720 sub @32(R5), @R5
| |
| − | ROM:115724 mov 12(R5), 20(R5)
| |
| − | ROM:115732 sub R0, 20(R5)
| |
| − | ROM:115736 mul #54, R0 ; ','
| |
| − | ROM:115742 add 30(R5), R1
| |
| − | ROM:115746 add 74(R5), PC
| |
| − | ROM:115752 br loc_115766
| |
| − | ROM:115766 ; ---------------------------------------------------------------------------
| |
| − | ROM:115766
| |
| − | ROM:115766 loc_115766: ; CODE XREF: ROM:115752�j
| |
| − | ROM:115766 mov R1, 32(R5)
| |
| − | ROM:115772 add @R1, @R5
| |
| − | ROM:115774 return
| |
| − | ROM:114216 ; ---------------------------------------------------------------------------
| |
| − | ROM:114216
| |
| − | ROM:114216 loc_114216: ; CODE XREF: sub_114310+4�j
| |
| − | ROM:114216 sub @32(R5), @R5
| |
| − | ROM:114222 jmp loc_111444
| |
| − | ROM:114222 ; ---------------------------------------------------------------------------
| |
| − | ROM:114310 ; --------------- S U B R O U T I N E ---------------------------------------
| |
| − | ROM:114310
| |
| − | ROM:114310
| |
| − | ROM:114310 sub_114310: ; CODE XREF: ROM:112030�P
| |
| − | ROM:114310 call sub_114336
| |
| − | ROM:114314 br loc_114216
| |
| | | | |
| − | == 2007/03/14 ==
| + | *[[uknc notes|Заметки по УКНЦ]] |
| − | Сегодня сделал спрайтовый вывод, так-же известный как символьный вывод. Где-то побита математика -- явно не правильно рассчитывается начало символа в фонте (не только смещено на половину но и не правильный символ). Причем судя по цвету -- сообщение об ошибке тестирования.
| |
| − | | |
| − | смотри картинку:
| |
| − | [[Image:uknc_progress.png|мой прогресс]]
| |
| − | --[[User:Felix|Felix]] 23:33, 14 March 2007 (EDT)
| |
