API tools faq
paste
Guest User

Untitled

a guest
Mar 13th, 2019
284
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASM (NASM) 21.58 KB | None | 0 0
raw download clone embed print report
  1. ;//+-----------------------------------------------
  2. ;//| BK disassembler v.0.007b
  3. ;//| File: rs.bin   Adress:1000  Length:4122
  4. ;//+-----------------------------------------------
  5.    
  6.     ORG 1000
  7.  
  8. .S  a72=70, //Позиция вывода чисел
  9.     a42000=40501,
  10.     a42100=a42000+100, a42061=42061,a42063=42062;
  11.  
  12.     JMP    a5070
  13. ;// MOV    PC,a4640
  14. Start:  MOV    #100274,@#4
  15.     JMP    a4644
  16. Msg1:   DB 'Адрес ',0
  17. ;// DB 'АДРЕС___',0
  18.     DB 'Шаг   ',0
  19.     DB 'Шир X ',0
  20.     DB 'Выс Y ',0
  21. ;// DB 'СПРАЙТ__',0
  22.     DB 'Обьем ',0
  23. ;// DB 'Цвет',0
  24.     DB 0,0 ;//,0
  25.         DB ' -RS- V2.01 ',0,0,1;//0,0,0
  26. ;//        DB ' YS corp. (C)',0,0
  27. ;//        DB 0, 0
  28. ;//        DB '   г.МОСКВА',0
  29. ;//        DW 1
  30. ;//Keys:   DB 31,10,32,33,12,'R','S',' ','A','[','Y','X'
  31.  
  32. ;//Редактор (режим линза)
  33. aEdit:
  34.     MOV    PrevX,a4622
  35.  
  36.     ASL    a4622
  37.     ASL    a4622
  38.     DEC    a4622
  39.     MOV    SizeY,a4624
  40.     DEC    a4624
  41.     CLR    a4614
  42.     CLR    a4616
  43.     MOV    #a42100,R5
  44.  
  45. a2320:  MOV    a4614,R1
  46.     ADD    #314,R1
  47.     MOV    a4616,R2
  48.  
  49.     CLR    R4
  50.  
  51. ;// MOVB   #100,300(R5) ;//Сеточка
  52.     CLR    R0
  53.     BITB   Mask2,200(R5)
  54.     BEQ    a2366
  55.     ADD    #2,R0
  56. a2366:  BITB   Mask1,200(R5)
  57.     BEQ    a2402
  58.     ADD    #1,R0
  59. a2402: 
  60.      ;//Проверка уст. Сеточки
  61.         BIT #1,Mask1
  62.     BNE  a2350
  63.         MOVB #100,-100(R1)
  64.         BR a2352
  65. a2350:
  66.         movb 200(R5),300(R5)
  67. a2352:
  68.  
  69.         COMB   100(R5)
  70.         COMB   200(R5);
  71.  
  72.     COM    R0
  73.     INC    R0
  74.     BIC    #177774,R0
  75.     MOV    R0,a4636
  76.  
  77.     CALL   a3332
  78.                 COMB   200(R5);//
  79.     COMB   100(R5) ;//Курсор
  80.     CMPB   (R1)+, R0;//CMP    #31,aKey
  81.     BNE    a2542
  82.     CMP    a4622,a4614
  83.     BEQ    a2320
  84.     INC    a4614
  85.     INC    R5
  86. a2540:
  87.     BR     a2320;//JMP    a2320
  88. a2542:  CMPB   (R1)+, R0;//CMP    #10,aKey
  89.     BNE    a2572
  90.     TST    a4614
  91.     BEQ    a2320
  92.     DEC    a4614
  93.     DEC    R5
  94.     BR     a2320;//JMP    a2320
  95. a2572:  CMPB   (R1)+, R0;//CMP    #32,aKey
  96.     BNE    a2624
  97.     TST    a4616
  98.     BEQ    a2320
  99.     DEC    a4616
  100.     SUB    #400,R5
  101.     BR     a2320;//JMP    a2320
  102. a2624:  CMPB   (R1)+, R0;//CMP    #33,aKey
  103.     BNE    a3070;//a2660
  104.     CMP    a4616,a4624
  105.     BEQ    a2320
  106.     ADD    #400,R5
  107.     INC    a4616
  108. a2650:
  109.     BR  a2320
  110.  
  111. a2660:  CMPB   (R1)+, R0 ;//R -Возврат в просм.
  112.     BNE    a2666    
  113.  
  114.     RET
  115. a2666:
  116.     CMP    #61, R0;//'1' уст точки
  117.     BNE    a2726          
  118.     BIS    Mask2,R4
  119.     BIS    Mask1,R4
  120.     MOVB   R4,(R5)
  121.     MOVB   R4,100(R5)
  122.     MOVB   R4,200(R5)
  123.     BR aEMTPSET
  124.  
  125. a2724:
  126.     BR     a2320;//'2' уст точки
  127. a2726:  CMP    #62,R0
  128.     BNE    a2770
  129.     MOV    Mask2,R4
  130.     MOVB   R4,(R5)
  131.     MOVB   R4,100(R5)
  132.     MOVB   R4,200(R5)
  133.         BR aEMTPSET
  134.  
  135. a2770:  CMP    #63,R0;//'3' уст точки
  136.     BNE    a3032
  137.     MOV    Mask1,R4
  138.     MOVB   R4,(R5)
  139.     MOVB   R4,100(R5)
  140.     MOVB   R4,200(R5)
  141.         BR aEMTPSET
  142.  
  143. a3032:  CMP    #64,R0;//aKey  ;//'4' стирание точки
  144.     BNE    a3242 ;//a3070
  145.     CLRB   (R5)
  146.     CLRB   100(R5)
  147.     CLRB   200(R5)
  148.         BR aEMTPSET
  149.  
  150. ;// BR     a2540
  151. a3070:  CMPB   (R1)+, R0;//'ВВод'  Запись линзы в память
  152.     BNE    a2660;//a3242
  153.     PUSH R5
  154.     PUSH R5
  155.     MOV    #a42100,R0
  156.     MOV    AddrS,R1
  157.     MOV    SizeY,R2
  158. a3114:  MOV    PrevX,R3
  159. a3120:  MOV    #4,R4
  160.     CLR    (SP);//a4614
  161. a3130:  CLR    R5
  162.     BITB   Mask2,(R0)
  163.     BNE    a3144
  164.     BIS    #100,R5
  165. a3144:  BITB   Mask1,(R0)
  166.     BNE    a3156
  167.     BIS    #200,R5
  168. a3156:  ROLB   R5
  169.     RORB   (SP);//a4614
  170.     ROLB   R5
  171.     RORB   (SP);//a4614
  172.     INC    R0
  173.     SOB    R4,a3130
  174.     COMB   (SP);//a4614
  175.     MOVB   (SP),(R1)+
  176.     SOB    R3,a3120
  177.     BIC    #74,R0
  178.     ;//inc R0
  179.     ADD    #400,R0
  180.     SUB    PrevX,R1
  181.     ADD    SizeX,R1
  182.     SOB    R2,a3114
  183.         CALL   DrawPrevScr
  184.     ;//MOV    #233,R0
  185.     ;//EMT    16
  186.     POP R5
  187.     POP R5
  188.         BR a2724
  189.  
  190. ;//Только для 10-тки!
  191. aEMTPSET:
  192.         BIC #177770,R0
  193.         ADD R0,R0
  194.         ADD #112024, R0
  195.     MOV (R0),@#214
  196.  
  197. EMTSET: PUSH @#154
  198.     MOV #1403, @#154
  199.     COM @#40
  200. ;//Вход: R0 - 1-ЗАПИСЬ,
  201.     ;//   0-СТИРАНИЕ
  202.     CLR R0
  203.     INC R0
  204.     MOV a4614,R1
  205.     ADD #310,R1
  206.     MOV a4616,R2
  207.     caLL @#107612
  208. ;// EMT 30
  209.     CLR @#40
  210.     POP @#154
  211. a3242:
  212.         BR a2724
  213. ;//Конец редактора
  214.  
  215.  
  216. ;//Просмотрщик
  217. aView:  CALL   a1172 ;//Вывод инфо
  218. ;// Проверка нажатых клавиш
  219. a3602:  CALL   a3332
  220.  
  221.         mov PC,R2
  222. baseV:  add #(AddrS-baseV),R2
  223.  
  224.  
  225.         MOV  R2,R3
  226.         TSTB ModeV
  227.     BEQ  a3620
  228.     TST (R3)+
  229. a3620:
  230.     CMPB   (R1)+, R0;//CMP #31, R0
  231.     BNE    a3622
  232.     INC    (R3);//AddrS
  233.  
  234. a3622:  CMPB   (R1)+, R0;//CMP #10, R0
  235.     BNE    a3636
  236.     DEC    (R3);//AddrS
  237.  
  238. a3636:  CMPB   (R1)+, R0;//CMP #32, R0
  239.     BNE    a3654
  240.     SUB    SizeX,AddrS
  241. a3654:  CMPB   (R1)+, R0;//CMP #33, R0
  242.     BNE    a3672
  243.     ADD    SizeX,AddrS
  244.         BR a4050
  245. ;//CMP #12, R0 Обновление линзы по вводу
  246. a3672:  CMPB   (R1)+, R0
  247.     BNE    a3706
  248.         ;//PScrX
  249.     ;//CALL   DrawMagnScr
  250.         BR   a4474;//Обновить
  251. a3706:  ;//Вход в редактирование
  252.         CMPB   (R1)+, R0;//CMP R0,#'R'
  253.     BNE    a3726
  254.     CALL   aEdit
  255.  
  256.     BR     aView;//a3602;//a4050 ;//aView
  257. ;// JMP    aView
  258. a3726:  CMPB   (R1)+, R0;//'S'//CMP #26,R0
  259.     BNE    a3744
  260.         Call SetGrid
  261.     BR a4474;//a4254
  262. ;//CMP Key, #' ' Пробел- уст. режима
  263. a3744:  CMPB   (R1)+, R0
  264.     BNE    a3762
  265.         COMB   ModeV
  266. ;// ADD    aClip,AddrS
  267.  
  268. a3762:  CMPB   (R1)+, R0;//CMP #'A',R0; Ввод адреса
  269.     BNE    a4014
  270.     MOV    #a72,R1
  271.     MOV    #6,R2
  272.     EMT    24
  273.     CALL   a4330
  274.     MOV    R0,AddrS
  275.     BR     a4274 ;//Fix
  276. a4014:  CMPB   (R1)+, R0;//CMP #133, R0 '[' Ввод Шага
  277.     BNE    a4060
  278.     MOV    #a72,R1
  279.     MOV    #7,R2
  280.     EMT    24
  281.     CALL   a4330
  282.     MOV    #a72,R1
  283.     EMT    24
  284.     MOV    R0,aClip
  285.     CALL   a2066
  286. a4050:
  287.         BR     a4274 ;//Fix
  288. a4060:  ;NOP    
  289.     CMPB   (R1)+, R0;//CMP #131,aKey 'Y' Ввод Размера по Y
  290.     BNE    a4160
  291. a4072:  MOV    #a72,R1
  292.     MOV    #11,R2
  293.     EMT    24
  294.     CALL   a4330
  295.     MOV    #a72,R1
  296.     EMT    24
  297.     CALL   a2066
  298.     CMP    R0,#62
  299.     BHI    a4072
  300.     TST    R0
  301.     BLE    a4072
  302.  
  303.     MOV    R0,SizeY
  304. a4470:
  305.     ;//CALL   a1334
  306.     CALL   DrawPrevScr
  307. a4474:
  308.     CALL   DrawMagnScr
  309.         CALL DrawPrevBox
  310. a4476:
  311.     BR     aView
  312.  
  313. ;//CMP #'X', aKey  Ввод размера Х
  314. a4160:  CMPB   (R1)+,R0
  315.     BNE    a4274
  316. a4170:  MOV    #a72,R1
  317.     MOV    #10,R2
  318.     EMT    24
  319.     CALL   a4330
  320.     MOV    #a72,R1
  321.     EMT    24
  322.     CALL   a2066
  323.     TST    R0
  324.     BLE    a4170
  325.     MOV    R0,SizeX
  326.     MOV    R0,PrevX
  327.     CMP    PrevX,#13
  328.     BHI    a4246
  329.     BR     a4254
  330. a4246:  MOV    #14,PrevX
  331. a4254:
  332.     BR   a4470;//aView
  333. a4274:
  334.  
  335. ;//a3606:
  336. ;//a3607:
  337.   ;//Пост обработка результатов
  338.  
  339.         MOV SizeX,R4
  340.     CMP R4,PrevX
  341.         BEQ  a3610 ;//Прыгает если равно
  342.  
  343.     TST  R4;//Нуль?
  344.     BNE    a3609
  345.     inc SizeX
  346. ;// br a3611
  347. a3609:
  348.         MOV SizeX,PrevX
  349.  
  350.     CMP    PrevX,#13
  351.     BHI    a3611
  352.  
  353.     BR     a3610
  354. a3611:  MOV    #14,PrevX
  355.          ;//BR a5555
  356.  
  357.         ;//Если Не равно, проверить
  358. ;// CMP    PrevX,#14
  359. ;//         BEQ  a3610
  360. ;//a3611:
  361. ;// BHI    a4244
  362. ;// BR     a4255
  363. ;//a4244:   MOV    #14,PrevX
  364.  
  365.        
  366.  
  367. a3610:
  368.         CALL   DrawPrevScr
  369.  
  370.     MOV    AddrS,R0
  371.     MOV    #6,R2
  372.     MOV    #a72,R1
  373.     EMT    24
  374.     CALL   a2066
  375.  
  376.         MOV    SizeX,R0
  377.     MOV    #10,R2
  378.         MOV    #a72,R1
  379.     EMT    24
  380.     CALL   a2066
  381.  
  382.     JMP    a3602
  383.  
  384.  
  385.  
  386. ;// ПОДПРОГРАММЫ
  387.  
  388. OctOUT:
  389.      ;//MOV #44020,R0
  390.      ;//MOV #123456,R1
  391.  
  392.      MOV R1,R4
  393.      CLR R1
  394.      MOV #6,R2
  395.      BR 0B
  396. 0C:  CLR R1
  397.      ROL R4
  398.      ROL R1
  399.      ROL R4
  400.      ROL R1
  401. 0B:
  402.      ROL R4
  403.      ROL R1
  404.  
  405.      PUSH R0
  406.  
  407.      PUSH R2
  408.      PUSH R4
  409.  
  410.  
  411. ;//     MOV #7,R2
  412.      MOV #7,R2
  413.      Call DigiOUT
  414.  
  415.      POP R4
  416.      POP R2
  417.      POP R0
  418.  
  419.    bicB #3,-77(R0)
  420.    bicB #3,501(R0)
  421.      CLRb -100(R0)
  422.      CLRb 500(R0)
  423.  
  424.      inc R0
  425.  
  426.      
  427.  
  428.      SOB R2,0C
  429.    RET
  430.  
  431. DigiOut:
  432. ;// R0 -ADR
  433. ;// R1 -Num
  434. ;// R2 - Size (1-4x7,7-4х5)
  435. CALL basedigi
  436.    DW 1111011011011110b ;//0
  437.    DW 0101100100101110b ;//1
  438.    DW 1110011111001110b ;//2    
  439.    DW 1110010110011110b ;//3    
  440.    DW 1011011110010010b ;//4
  441.    DW 1111001110011110b ;//5
  442.    DW 1111001111011110b ;//6
  443.    DW 1110010110100100b ;//7
  444.    DW 1111011111011110b ;//8    
  445.    DW 1111011110011110b ;//9    
  446. basedigi:
  447.   POP R5 ;//Получить адрес
  448.   ADD R1,R1
  449.   ADD R1,R5
  450.  
  451. xcycl:
  452.   MOV (R5),R1
  453.   MOV #5,R3
  454.  
  455.    CLR R4
  456. ycycl:
  457.    ASL R1
  458.    RORB R4 ;//Перенос бита в ст. разр
  459.    ASRB R4 ;//Уст доп. бит
  460.    ASL R1
  461.    RORB R4
  462.    ASRB R4
  463.    ASL R1
  464.    RORB R4
  465.    ASRB R4
  466.  
  467.    ASR R4
  468.    ASR R4
  469.  
  470.    asL R4
  471.    ASL R4
  472.   // ASR R4
  473.   // ASR R4
  474.  
  475.    MOVB R4,(R0)
  476.    bicB #3,1(R0)
  477.    add #100,R0
  478.    BITB R2,R3
  479.    BNE nene
  480.    MOVB R4, (R0)
  481.    add #100,R0
  482. nene:
  483.    LOOP R3, ycycl
  484. RET
  485.  
  486.  
  487. PaintСLR:
  488.     XOR R4,R4
  489.         BR aPaint
  490. ;//Заливка  интерфейса
  491. PaintAll:
  492.     mov #40000,R0;//Адрес
  493.         mov #100,R1   ;//Ширина X
  494.         mov #150,R2  ;//Высота Y
  495. PaintDef:
  496. ;//     MOV    #63146, R3 ;//0110011001100110
  497. ;//     MOV    #114631,R4 ;//1001100110011001
  498.  
  499.         mov #0110011010011001b,R4
  500. ;//        xor r4,r4
  501.         BIT  #100,R0
  502.     BEQ  aPaint
  503.         swab R4
  504. aPaint:
  505.         mov R1,R3
  506.         mov #200,R5
  507.         sub R3,R5
  508. a2445:  mov  R1,R3
  509.   a2446:
  510.         movb R4,100(R0)
  511.         swab R4
  512.         movb R4,(R0)+
  513.         swab R4
  514.   LOOP R3,a2446
  515.     add  R5,R0
  516. LOOP R2,a2445
  517.         ret
  518.  
  519.  
  520. GreenBox:
  521. ;// Рисуем окошко ::::::::::::::::
  522. ;//::::+----------+ >>>>>>>:::::::
  523. ;//::::| +------+ | <<<<<<<:::::::
  524. ;//::::| |SPRITE| | >Мусор>::фон::
  525. ;//::::| +------+ | <<<<<<<:::::::
  526. ;//::::+----------+ >>>>>>>:::::::
  527. ;//::::<<<<<<<<<<<<<<<<<<<<:::::::
  528. ;//:::::::::PrevX ^::OldX ^:::::::
  529. ;//:::::::::::::::::::::::::::::::
  530.  
  531.         PUSH R1   ;//Ширина X
  532.         PUSH R0   ;//Адрес  (всё понадобится в конце)
  533.  
  534.         SUB #301, R0 ;//Уст. позиции верхнелевого угла
  535.  
  536. ;//ВЕРТИКАЛЬ  R0|     R1|
  537.  
  538.         TST R5 ;//Есть старые параметры ?
  539.         BEQ aSkippy1 ;//0-нету, скипаем
  540.  
  541.         cmp (R5),R1 ;//Старый размер был больше?
  542.         BEQ  aSkippy1 ;//скипаем если без изменений
  543.         BHI UborkaX ;//иначе Затирка мусора
  544.         mov R1,(R5)
  545.         BR aSkippy1
  546.  
  547. UborkaX: ;//Чистим мусор по ширине
  548.         PUSH R0 ;//ф-ция Paint жрет все регистры
  549.         PUSH R1 ;//ничего не сохраняя
  550.         PUSH R2
  551.         PUSH R5
  552.  
  553.         ADD R1,R0
  554.         SUB #100-2,R0
  555.  
  556.         MOV R1,R3
  557.         Mov (R5),R1
  558.         SUB R3,R1
  559.         MOV R3,(r5)
  560.  
  561.         ADD #12,R2
  562.         ASR R2;
  563.         Call PaintDef
  564.        
  565.         POP R5
  566.         POP R2
  567.         POP R1
  568.         POP R0
  569.  
  570. aSkippy1:
  571.         PUSH R2
  572.         PUSH R5
  573.  
  574.         inc  R1
  575.         ADD  R0,R1
  576.  
  577.         MOV R2,R3 ;//Высота Y
  578.         add #6,R3
  579.  
  580.         MOVB #00001010b,R4
  581.         mov #100,R5
  582.  
  583. ;//Издержки максимальной оптимизации
  584.         mov #77777+3,R2
  585.  
  586.         clRb -100(R0)
  587.         clRb -100(R1)
  588.  
  589. aLoopY:
  590.         dec R2
  591.         BMI aHek ;//Переход если отрицательно
  592.         MOVB #00101000b,(R0)
  593.         mov R3,R2
  594.         dec R2
  595.         dec R2
  596.         dec R2
  597.         br aSkp
  598. aHek:   ;//Фикс артефакта в левых углах
  599.         MOVB #10101000b,(R0)
  600. aSkp:
  601.         MOVB R4,(R1)
  602.         ADD R5, R0
  603.         ADD R5, R1
  604. LOOP R3, aLoopY
  605. ;//КОНЕЦ ВЕРТИКАЛИ -R0 результат нижней позиции
  606.        ;//Возврат исходных параметров
  607.         POP R5 ;//Указатель на OldX/OldyY
  608.         POP R2 ;
  609.         TST R5 ;//Есть старые параметры ?
  610.         BEQ aSkippy2 ;//0-нету, скипаем
  611.         TST (R5)+ ;//Или чекаем мусор снизу
  612.         CMP (R5),R2
  613.         BEQ aSkippy2
  614.         BHI UborkaY
  615.         mov R2,(R5)
  616.         BR aSkippy2
  617. UborkaY:  ;//С регистрами теперь попроще
  618.         mov (R5),R3
  619.         sub  R2, R3
  620.         mov  R2,(R5)
  621.         mov  R3,R2
  622.         mov 2(SP),R1;//Извлекаем размер X
  623.         PUSH R0 ;//Чтоб не попортить высчитаный адрес
  624.         Inc R1  ;//всякая коррекция
  625.         Inc R1
  626.         add #5,R2
  627.         add #100,R0
  628.         ASR R2
  629.          Call PaintDef
  630.         POP R0
  631. aSkippy2:
  632.  
  633.         MOV R0,R1
  634.         POP R0
  635.         MOV (SP),R3
  636.         PUSH R1
  637.         MOV #200,R5
  638.         SUB R5,R0
  639.         SUB R5,R1
  640.  
  641.         inc R1
  642.  
  643.         MOV #125252, R4
  644.  
  645. ;//ГОРИЗОНТАЛЬ
  646.   aLoopX:
  647. ;//Верхняя линия
  648.         CLRB  -200(R0)
  649.         MOVB  R4,-100(R0)
  650.  
  651.         CLRB  100(R0)
  652.         MOVB  R4,(R0)+
  653. ;//Нижняя линия
  654.         CLRB  -100(R1)
  655.     MOVB   R4,100(R1)
  656.         MOVB   R4,(R1)+
  657.   LOOP  R3,aLoopX
  658.  
  659. ;//Отрисовка тени
  660. ;//        MOV R5,R0
  661.         POP R0 ;//Достаем адрес
  662.         POP R1 ;//Достаем размер
  663. ;//
  664.         PUSH R0
  665.         CLRB (R0)+ ;//Штрих угла
  666.         inc R1
  667.         MOV #1,R2
  668.         Call PaintСLR
  669.         POP R0
  670.  
  671.     JMP @(SP)+ ;//RET
  672. ;//
  673. ;//Конец зеленой коробки
  674. ;//
  675. ;//
  676. ;//SEC  Устанавливает флаг C
  677. ;//SEV  Устанавливает флаг V
  678. ;//SEZ  Устанавливает флаг Z
  679. ;//SEN  Устанавливает флаг N
  680.  
  681.  
  682. ;//
  683. ;// Отрисовка буфера превью
  684. ;//
  685. DrawPrevScr:  ;//R0: 1InBox, 0 NoBox, -1BoxOnly
  686.  
  687.  
  688. a1400:
  689.     CLR R5
  690.     MOV PrevX,R4
  691.     CMP    R4,SizeX
  692.     BCC    a1412
  693.     MOV    SizeX,R5
  694.     SUB    R4,R5
  695. a1412:  MOV    #a42063,R0
  696.     MOV    AddrS,R1
  697.     MOV    SizeY,R2
  698. a1426:  MOV    R4,R3
  699. a1432:  MOVB   (R1)+,(R0)+
  700.     SOB    R3,a1432
  701.     SUB    R4,R0
  702.     ADD    R5,R1;//a4614,R1
  703.     ADD    #100,R0
  704.     SOB    R2,a1426
  705.  
  706. DrawPrevBox:
  707. ;//a1500:
  708.         MOV  #a42063,R0
  709.         mov  PrevX,R1
  710.         mov  SizeY,R2
  711.  
  712.         mov PC,R5
  713. aBaseR: add #(PScrX-aBaseR),R5
  714.         call GreenBox
  715.  
  716.     mov #a42063-1101,R0
  717.     ;//add #301,R0
  718.     mov AddrS,R1
  719.         call OctOUT
  720.  
  721.     RET    
  722.  
  723. ;//Вкл/Выкл Сеточку
  724. SetGrid:
  725.         ;//PUSH R5
  726.         MOV #1,R5
  727.         mov PC,R1
  728. base4:  add #(Mask1-base4),R1
  729.         BIT R5, (R1);//Mask1 ;//aGrid
  730.     BNE  aa1630
  731.     bis R5,(R1)+;//Mask1
  732.     INC R5
  733.     bis R5,(R1) ;//Mask2
  734.     BR aExEx
  735. aa1630: bic R5,(R1)+ ;//Mask1
  736.     INC R5
  737.     bic R5,(R1) ;//Mask2
  738. aExEx:
  739.     ;//POP R5
  740.         RET
  741.  
  742. ;//
  743. ;//Вывод экранной линзы
  744. ;//
  745. DrawMagnScr:    ;//MOV    #a42000,R0 ;
  746.  
  747. M_Top:
  748.         MOV  #a42100,R0
  749.         mov  PrevX,R1
  750.         add r1,r1
  751.         add r1,r1
  752.         mov  SizeY,R2
  753.         add r2,r2
  754.         add r2,r2
  755.  
  756.  
  757.         mov PC,R5 ;//Получаем смещение прежних данных
  758. aBaseM: add #(MScrX-aBaseM),R5
  759.         ;//CLR R5
  760.         call GreenBox
  761.  
  762.  
  763.     MOV    #a42063,R0;// Указатель на превью
  764.     ;//MOV    AddrS, aEntAddr
  765. a1610:
  766.     MOV    #a42100,R1;// Указатель на линзе
  767.     MOV    SizeY,R2
  768.     PUSH #1 ;//Константа под тест битов
  769.  
  770. a1612:  MOV    PrevX,R3
  771.  
  772. a1616:  MOV    #4,R4
  773.     MOVB   (R0),R5 ;//(SP);//a4614
  774.  
  775. a1626:  ;//Очень перепаханый алго
  776.         BIT (SP), Mask1
  777.     BNE  a1630
  778.         MOVB #100,-100(R1);//Сеточка
  779. a1630:
  780.     CLRB (R1);;//ПереОптимизация
  781.  
  782.     BIT   (SP),R5 ;//#100000,R5
  783.     BEQ    a1656
  784.  
  785.     BISB   Mask1,(R1)
  786.  
  787. a1656:  ROR    R5  
  788.         BIT   (SP),R5 ;//#100000,R5
  789.     BEQ    a1670
  790.  
  791.     BISB   Mask2,(R1)
  792.  
  793. a1670:  ROR    R5
  794.     INC    R1
  795.     SOB    R4,a1626
  796.     INC    R0
  797.     SOB    R3,a1616
  798.  
  799.     PUSH   R2
  800.     PUSH   R1
  801.     PUSH   R0
  802.  
  803.     MOV    #2,R2
  804. ;// BR a1710
  805. ;//aFix:   BR a1612
  806.  
  807. a1710:  Mov PrevX,R5
  808.         add R5,R5
  809.         add R5,R5
  810.  
  811. a1712:  MOV    R5,R0;
  812.  
  813.     BIC    #74,R1
  814.    
  815. a1722:  MOVB   (R1),100(R1)
  816.     MOVB   (R1),200(R1)
  817.     INC    R1
  818.     SOB    R0,a1722
  819.     ADD    #100,R1
  820.     SOB    R2,a1712
  821.  
  822.     POP    R0
  823.     POP    R1
  824.     POP    R2
  825.     MOV    PrevX,R5
  826.     SUB    R5,R1
  827.     SUB    R5,R1
  828.     SUB    R5,R1
  829.     SUB    R5,R1
  830.     ADD    #400,R1
  831.     SUB    R5,R0
  832.     ADD    #100,R0
  833.     SOB    R2,a1612;//aFix;//a1612
  834. ;// RET    
  835. eExSub:
  836.         TST (SP)+  ;//Признак мощной оптимизации
  837.         JMP @(SP)+ ;//RET
  838.  
  839. ;//Обработка клавиатуры
  840. a3332:  MOV    #100,R2;
  841.         MOV    #177716,R1
  842.     BIT    R2, (R1)
  843.     BEQ    a3364
  844. a3344:  BIT    R2,(R1)
  845.     BNE    a3344
  846.     MOV    #40000,a4626;//Задержка
  847.     BR     a3434
  848. a3364:  TST    a4626
  849.     BEQ    a3416
  850.     MOV    a4626,R0
  851. a3376:  BIT    R2,(R1)
  852.     BNE    a3344
  853.     SOB    R0,a3376
  854.     CLR    a4626
  855.     BR     a3434
  856. a3416:  MOV    #1000,R0
  857. a3422:  BIT    R2,(R1)
  858.     BNE    a3344
  859.     SOB    R0,a3422
  860. a3434:  MOV    @#177662,aKey
  861.     MOV    R2,R0
  862.     BIS    R2, (R1)
  863. a3454:  SOB    R0,a3454
  864.     MOV    R2,R0
  865.     BIC    R2,(R1)
  866. a3470:  SOB    R0,a3470
  867.     ;//POP    R0 ;//MOV    (SP)+,R0
  868.     MOV aKey,R0
  869.         mov PC,R1
  870. base1:  add #(Keys-base1),R1
  871. ;//eExSubFix:
  872.         RET
  873. ;//        BR eExSub
  874. ;//        TST (SP)+
  875. ;//        JMP @(SP)+ ;//RET
  876.  
  877.  
  878.  
  879. ;//Вывод OCT числа
  880. a2066:  PUSH R2 ;//MOV    R2,-(SP)
  881.     PUSH R1 ;//MOV    R1,-(SP)
  882.     PUSH R0 ;//MOV    R0,-(SP)
  883.     MOV    #5,R2
  884.     MOV    R0,R1
  885.     CLR    R0
  886.     ROL    R1
  887.     ROL    R0
  888.     ADD    #60,R0
  889.     EMT    16
  890. a2116:  CLR    R0
  891.     ROL    R1
  892.     ROL    R0
  893.     ROL    R1
  894.     ROL    R0
  895.     ROL    R1
  896.     ROL    R0
  897.     BIC    #177770,R0
  898.     ADD    #60,R0
  899.     EMT    16
  900.     SOB    R2,a2116
  901.     POP    R0;//MOV    (SP)+,R0
  902.     POP    R1;//MOV    (SP)+,R1
  903.     POP    R2;//MOV    (SP)+,R2
  904.     RET    
  905.  
  906. ;//Ввод OCT числа
  907. a4330:  PUSH R3
  908.     PUSH R2
  909.     PUSH R1
  910.     EMT    26
  911.     MOV    #6,R3
  912.     MOV    #40,R0
  913. a4350:  EMT    16
  914.     SOB    R3,a4350
  915.     MOV    #1,R3;//a4616
  916.     EMT    24
  917. ;// INC R3 ;//R3=1
  918.     ;//PUSH 0
  919.     CLR    R5;//a4614
  920.  
  921. a4370:  CALL   a3332
  922.     ;//MOV    aKey,R0
  923.     CMPB   #12,R0 ;//aKey
  924.     BEQ    a4562
  925.     CMPB   #30,R0;//aKey
  926.     BNE    a4466
  927. a4420:  CMP    #1,R3;//a4616
  928.     BEQ    a4370
  929.     BIC    #7,R5;//a4614
  930.     ASR    R5
  931.     ASR    R5
  932.     ASR    R5
  933.     DEC    R3;//a4616
  934.     MOV    #30,R0
  935.     EMT    16
  936.     BR     a4370
  937. a4466:  CMP    #10,R0;//aKey
  938.     BEQ    a4420
  939.     CMP    #60,R0;//aKey
  940.     BGT    a4370
  941.     CMP    #67,R0;//aKey
  942.     BLT    a4370
  943.     CMP    #7,R3;//a4616
  944.     BEQ    a4370
  945.     INC    R3;//a4616
  946.     EMT    16
  947.     ASL    R5;//a4614
  948.     ASL    R5;//a4614
  949.     ASL    R5;//a4614
  950.     BIC    #177770,R0
  951.     ADD    R0,R5;//a4614
  952.     BR     a4370
  953. a4562: 
  954.         ;//POP R0
  955.     MOV  R5,R0;//a4614,R0
  956.  
  957.     POP R1
  958.     POP R2
  959.     POP R3
  960.     RET    
  961.  
  962.  
  963. ;// Вывод текстовой информации
  964. a1172:  MOV PC,R5
  965. base2:  ADD #(Msg1-base2),R5
  966.     MOV    #62,R1
  967.     MOV    #6,R2
  968.     EMT    24
  969. a1214:  MOVB   (R5)+,R0
  970.     CMP    #1,R0
  971.     BEQ    a1244
  972.     TST    R0
  973.     BNE    a1240
  974.     INC    R2
  975.     MOV    #62,R1
  976.     EMT    24
  977. a1240:  EMT    16
  978.     BR     a1214
  979. a1244:  MOV    #a72,R1
  980.     MOV    #6,R2
  981.     EMT    24
  982.     MOV    AddrS,R0
  983.     CALL   a2066
  984.     INC    R2
  985.     EMT    24
  986.     MOV    aClip,R0
  987.     CALL   a2066
  988.     INC    R2
  989.     EMT    24
  990.     MOV    SizeX,R0
  991.     CALL   a2066
  992.     INC    R2
  993.     EMT    24
  994.     MOV    SizeY,R0
  995.     CALL   a2066
  996.     INC    R2
  997.     EMT    24
  998.     CLR    R0
  999.     MOV    SizeY,R1
  1000. a3533:  ADD    SizeX,R0
  1001.     SOB    R1,a3533
  1002.     CALL   a2066
  1003.     MOV #51562,R0
  1004.     XOR R5,R5
  1005.     MOV #14,R1
  1006.     MOV #60,R2
  1007.     CALL GreenBox
  1008.  
  1009.     MOV #62362,R0
  1010.     XOR R5,R5
  1011.     MOV #14,R1
  1012.     MOV #10,R2
  1013.     CALL GreenBox
  1014.  
  1015.     RET    
  1016. Keys:   DB 31,10,32,33,12,'R','S',' ','A','[','Y','X'
  1017. ;//aEntAddr: DW  030000 ;//введеный адрес
  1018. PrevX:  DW  05 ;//00014 ;//Размер (ширина) превью
  1019. AddrS:  DW  030000 ;//адрес спрайта
  1020. SizeX:  DW  05   ;//Спрайт ширина X (в байтах)
  1021. SizeY:  DW  000060 ;//Спрайт/Линза (размер Y )
  1022. aClip:  DW  017    ;//Шаг/кадр/клип
  1023. PScrX:  DW 0  ;//Сохраняемый размер экрана превью
  1024. PScrY:  DW 0  ;//Сохраняемый размер экрана превью
  1025. MScrX:  DW 0  ;//Сохраняемый размер экрана линзы
  1026. MScrY:  DW 0  ;//Сохраняемый размер экрана линзы
  1027. ;//OldY:   DB 0
  1028. ModeV:  DB  0;//377
  1029. ModeR:  DB  0
  1030.     DW  0
  1031. a4614:  DW  0
  1032. a4616:  DW  000021
  1033.     DW  0
  1034. a4622:  DW  000057  ;//Курсоры
  1035. a4624:  DW  000061
  1036. a4626:  DW  040000
  1037. aKey:   DW  0000000001000011b;//103 ;// 03
  1038. Mask1:  DW  0000111101010100b ;//7524;//052017
  1039. Mask2:  DW  1111000010101000b;//170250;//124360
  1040. a4636:  DW  0;//1
  1041.  
  1042.  
  1043. ;//a2006:   MOV    #a42061,R0
  1044. ;// MOV    #144,R1
  1045. ;//a2016:   MOVB   #6,(R0)
  1046. ;// MOVB   #11,100(R0)
  1047. ;// ADD    #200,R0
  1048. ;// SOB    R1,a2016
  1049. ;// RET
  1050. ;// MOV    #51061,R0
  1051. ;// MOV    #17,R1
  1052. ;//a2046:   MOVB   #146,(R0)
  1053. ;// MOVB   #231,100(R0)
  1054. ;// INC    R0
  1055. ;// SOB    R1,a2046
  1056. ;// RET    
  1057.  
  1058.  
  1059. a4644:  CLRB   @#42
  1060. a4646:
  1061.     MOV    #40000,@#202
  1062.     MOV    #40000,@#206
  1063.     MOV    #36000,@#210
  1064.     MOV    #3000,@#164
  1065.     MOV    #1330,@#177664
  1066.     MOV    #2000,@#204
  1067.     CLRB   @#40
  1068.     MOV    #1,@#162
  1069.     CLR    @#44
  1070.     CLR    @#46
  1071.     TSTB   @#41
  1072.     BEQ    a4752
  1073.     MOV    #235,R0
  1074.     EMT    16
  1075. a4752:  MOV    #233,R0
  1076.     EMT    16
  1077.     MOV    #224,R0
  1078.     EMT    16
  1079.     MOV    #236,R0
  1080.     EMT    16
  1081.     MOV    #233,R0
  1082.     EMT    16
  1083.     MOV    #232,R0
  1084.     EMT    16
  1085. ;//--------------------------
  1086.        
  1087. ;// Подготовка интерфейса
  1088. ;// Заливка   интерфейса
  1089. ;// MOV    #40000,R0
  1090. ;//     MOV    #40,R1
  1091. ;//     MOV    #147,R2
  1092.         CALL   PaintAll
  1093.  
  1094. ;//     MOV    #63146,R3
  1095. ;//     MOV    #114631,R4
  1096. ;//a2445:  MOV    #40,R1
  1097. ;//a2446:  MOV    R4,100(R0)
  1098. ;// MOV    R3,(R0)+
  1099. ;// SOB    R1,a2446
  1100. ;// ADD    #100,R0
  1101. ;//     SOB    R2,a2445
  1102.  
  1103.  
  1104.     CALL   a1172
  1105.     CALL   DrawPrevScr
  1106.     CALL   DrawMagnScr
  1107.  
  1108. ;// CALL   a2006
  1109.     RESET  
  1110.     JMP    aView
  1111.     HALT  
  1112.     HALT  
  1113. a5070:  MOV    #73000,R0;//MOV    #73700,R0
  1114.  
  1115.         mov PC,R1
  1116. LdBase: add #(Start-LdBase),R1
  1117.     ;//MOV    #1004,R1
  1118.  
  1119.  
  1120. a5100:  MOV    (R1)+,(R0)+
  1121.     CMP    R0,#100000
  1122.     BNE    a5100
  1123.     JMP    @#73000;//@#73700
  1124.     HALT  
  1125.     HALT  
  1126.     HALT  
  1127.     HALT  
  1128.  
  1129.     .END
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!