
                         O         





                                      㯮  ᢮ ,
                                    ᮡ, ᫨ ⠬  .


    ⥫ !  ন  㪠 ⥪ 326 訢  
.  祭 ᥬ஢ ணࠬ, ⮩  奬
18012-326.  ⥪   ᢥ  ᥬ
DIZAKS4 v4 17.04.88 (KSA corp.), ⥪⮢ । EDALT3E
(ଠ ALTEC),  , ,  筮, ᪮.
    ᥣ      ਮ ᪮,  -
   0010(11).  祭  ⠪ ,  
 ࠡ⠥   ᪮.     ⠫ ୮ ࠤ樥
ᤥ - 襥,   ଠ,    祬  , -
,  ࠧ 祭 㧪  . ,   
᪠ ᠬ .  ⨫  த,   奬,  ᠭ  ਭ-
樯 ࠡ  㡫. 㬠,  ᫨   ᤥ,   1989
   㦥    ᪮, ७ , , ᫥⢥
  ணࠬ. 筮 ⠪- ந諮  ஫஬ ᪮
 . ﯨ ᠫ ࠩ  ࠡ  ,  ଠ樨  ⮬
ࠩ    . , 筮, - 뢪 ଠ樨,
  ଠ樨 - .  祬  ਭ   -
 ࠡ.   ப஢  ணࠬ 뫮 쭮 ᫮-
, ⠪   ᢮ ᯮ殮  ᥣ   । 祥
 ࠡ祩  ࠩ.
   筮,   室,  㬠     ⥪ 
ᬮ - 㧭  ⮩ 訢,  ⠢ ᥡ   .
㬠,   ,   ணࠬ 祭   ᮢ襭⢠,
  樨  뫮 ᤥ ,     
ਬ﫨  ᠬ 訥 . (. / ଠ஢)
    ,  ⥯    , ⠪ 
 訢 ⠫ ⠭⭮  ,    ਢ  -
ᮢ⨬  ணࠬ   訢.
    த     ⥫ ᪠  ⮬ . , ࠧ-
ࠩ. ஬ 졠  ⥬,   饭 筮,
  । - .  ,    
ਬ  ⮬.

  ⠪ ⥫䮭  ᪢.  467-50-93  ( ⠭⨭)

 ﭨ 
***********************
: 177130

                      ଠ ॣ  
   +-------------+------------------------------------------------+
   | ࠧ鸞|               祭                       |
   +-------------+------------------------------------------------+
   |     00      | 롮 ⥫  ஬ 0                   |
   +-------------+------------------------------------------------+
   |     01      | 롮 ⥫  ஬ 1                   |
   +-------------+------------------------------------------------+
   |     02      | 롮 ⥫  ஬ 2                   |
   +-------------+------------------------------------------------+
   |     03      | 롮 ⥫  ஬ 3                   |
   +-------------+------------------------------------------------+
   |     04      | 祭 த⥫                     |
   +-------------+------------------------------------------------+
   |     05      | 롮  ⥫ 0=. 1=.       |
   +-------------+------------------------------------------------+
   |     06      | ࠢ ६饭 蠣 ⥫     |
   +-------------+------------------------------------------------+
   |     07      | 蠣                                            |
   +-------------+------------------------------------------------+
   |     08      | ਧ " "                        |
   +-------------+------------------------------------------------+
   |     09      | ਧ " "                       |
   +-------------+------------------------------------------------+
   |     10      | ४祭 奬 ४४樨                |
   +-------------+------------------------------------------------+
   |   11-15     |  ᯮ                                |
   +-------------+------------------------------------------------+

                     ଠ ॣ  ⥭
   +-------------+------------------------------------------------+
   | ࠧ鸞|                 祭                     |
   +-------------+------------------------------------------------+
   |     00      | ਧ "0 "                            |
   +-------------+------------------------------------------------+
   |     01      | ਧ ⮢ ⥫  ࠡ         |
   +-------------+------------------------------------------------+
   |     02      |                                    |
   +-------------+------------------------------------------------+
   |     07      | ॡ ꥬ ଠ樨  ॣ   |
   |             |                        |
   +-------------+------------------------------------------------+
   |     14      |  ० ⥭ ਧ  横᪮    |
   |             | ஫쭮                         |
   +-------------+------------------------------------------------+
   |     15      | ਧ "0 "                             |
   +-------------+------------------------------------------------+
   | 3-6  8-13   |  ᯮ                                |
   +-------------+------------------------------------------------+


  
********************

 177132

  +--------------------------------------------------------------+
  |   ࠧ ॣ 㯭  ⥭  .           |
  +--------------------------------------------------------------+

ଠ ࠡ祩  ࠩ:
*******************************

+-------+----+--------+------------------------------------------------+
| -|-|砫- | 祭 祩                              |
|  |  | -|                                                |
| 砫|    |祭   |                                                |
+-------+----+--------+------------------------------------------------+
| 00    | 2  | 000000 |    ॣ ﭨ        |
| 02    | 2  | ------ |  ⥪饩 ஦                          |
| 04    | 2  | 177777 |  ⥪ ஦                        |
| 06    | 2  | 177777 | ----------#------------                        |
| 10    | 2  | 020000 | ६ ᪠   横 SOB (6022)  |
| 12    | 2  | ------ | ६ 室  ஦  ஦            |
| 14    | 1  | 000036 |  ஦  ன 砥 ।- |
|       |    |        |    ( 6022)                  |
| 15    | 1  | 000030 | ᫮  権  訡            |
| 16    | 1  | 000000 |  祩 ࠩ                        |
| 17    | 1  | ------ |   ᥪ஢  ଠ஢     |
| 20    | 2  | ------ | ⥫   ਧ                    |
| 22    | 2  | 000000 |  ਧ                              |
| 24    | 2  | 000000 | --------#--------                              |
| 26    | 2  | ------ |                                  |
| 30    | 2  | ------ | ᫮ ᫮  뫪                       |
| 32    | 1  | ------ |  ஭ ᪠                            |
| 33    | 1  | ------ |  ஦                                  |
| 34    | 1  | ------ |  ਢ                                  |
| 35    | 1  | ------ |  ᥪ                                  |
| 36    | 22 | ------ | 稥 祩 ࠩ                        |
| 60    | 2  | 000012 | ᫮ ᥪ஢  ஦                      |
| 62    | 2  | ------ | ६ প ᫥                    |
| 64    | 2  | 000400 |  ᥪ  ᫮                         |
+-------+----+--------+------------------------------------------------+
  ਬ砭:  ਧ ᮤন     ਢ  -
  ࠡ⪨ ⠭ ᪮.    ᯮ-
  .
   0 - ᫨ ⠭,  ᪮ ந ய ஦, 
 ⢫ ० SKIP
   1 - ᫨ ⠭,  ࠩ 頥 ⮫쪮   ஭
᪥.
  祩 ࠩ (16,36-57)  ࠡ稬.   ࠭ ଠ-
 祭  室 ࠡ ࠩ,   ᮡ   ।-
⠢, ⠪        㤥.
  । ᠬ  맮 ࠩ 㦭 樠஢ ࠡ -
 ࠩ.   ᯥ樠쭠 ணࠬ 樠樨.
  ᫥ ᢮ ࠡ ࠩ ⠢  ᪮ 祭. 
⮣,    몫 㦭  祩 177130 (8),  
   祩 ࠡ祩 . 'CLR @#177130, CLR (R3)'



⨪ 訡  ࠩ 
**********************************

    訡     ⠭  ,  
  ᮬ 52 (8) 頥  訡.

   +-----------------------------------------------------------------+
   |       |               稭 訡                         |
   |  訡  |                                                      |
   +----------+------------------------------------------------------+
   |    00    | 訡 .  襭 ଠ쭮             |
   +----------+------------------------------------------------------+
   |    01    |  ⥭ - 訡 CRC                   |
   |          |   - ⠭                 |
   +----------+------------------------------------------------------+
   |    02    | 訡 CRC    ᥪ                  |
   +----------+------------------------------------------------------+
   |    03    |  樮஢  㫥 ஦              |
   +----------+------------------------------------------------------+
   |    04    | 訡 樮஢                              |
   +----------+------------------------------------------------------+
   |    05    |   ᥪ                                     |
   +----------+------------------------------------------------------+
   |    06    |  ᪠    頥                      |
   +----------+------------------------------------------------------+
   |    07    | 뢠   4  樨                 |
   +----------+------------------------------------------------------+
   |    10    |    થ                            |
   +----------+------------------------------------------------------+
   |    11    |   થ                               |
   +----------+------------------------------------------------------+
   |    12    | ⨬ ࠬ   ⠭     |
   |          | ଠ ᪠                                         |
   +----------+------------------------------------------------------+

                    ७ 䬥⨪
                   ******************************

       1. MUL S,Rn  
       2. DIV S,Rn  
       3. FMUL Rn     饩 ⮩
       4. FDIV Rn     饩 ⮩
       5. FADD Rn    ᥫ  饩 ⮩
       6. FSUB Rn   ⠭ ᥫ  饩 ⮩
       7. ASH S,Rn  䬥᪨ ᤢ   - 
       8. ASHC S,Rn . ᤢ  ᫮   - 

   ࣠樨 ࠡ    ७  䬥⨪ 室
।  ᯮ짮  ணࠬ 樠஢  .   
ᥭ  祩 10 ᫠ 164040 (8) ᫥ 祣  ᠭ
ணࠬ  ᯮ짮   ७ 䬥⨪ .
(  ७ 䬥⨪ ॠ  ᥬ
MICRO ७ .., TURBO  ..)  㯫  
७ 䬥⨪ ந室 뢠  祩 10  ᮮ⢥-
  ࠡ뢠 , . .   設 
ᯮ짮 ணࠬ ᯥ祭 ᠭ   18012
  ⠫ ஢  ७ 䬥⨪, ⠪  
楫 뫮 ப஢ ࠩ ࠡ  ᪮.


                 ᠭ  ७ 䬥⨪.
                 ***************************************

  DIV -  32 ࠧ來 ᫮ RnRn+1  ᫮ .
              .
        MOV #75.,R1
        CLR R0
        DIV #10.,R0 ; ᫠ 75.  10. ,  १
        HALT        ; R0 - १ R1 - ⮪ .
  MUL - 㬭 ॣ  ᫮ . 祬 ᫨  -
           ,  ࠭   -
         .
        MOV #7,R1
        MUL #10.,R1 ;㬭 7*10=70  ॣ R1 .
        HALT
 ASH  - 䬥᪨ ᤢ ॣ ࠢ ,  
        ( -32 +32 ) 樨  ᨬ  祭 5
         㬥 ᤢ .  1  5  - ᤢ
        ࠢ ,  㫥 -  .
        ASH #5,R1 ;ᤢ ॣ R1  5 権  .
 ASHC - 䬥᪨ ᤢ  ᫮ , 祬 -
           ஬ ᮤন   
        ᫮ ,    , ⠫쭮 筮
         ASH .
 FADD - ᫮ ᥫ  饩 ⮩, ॣ 㪠-
        뢠   宦 㬥⮢ .
        AA+B - १ 頥   㬥 A .
 FSUB - ⠭ ᥫ  饩 ⮩ .
        AA-B - १  A .
        FSUB R5  ;R5 㪠뢠   MET
        HALT
 MET:   A       ; ᫮ 㬥 A
        B       ; ᫮ 㬥 B

                  ଠ ᥫ  饩 ⮩:
                  *********************************

     : 15  14             07 06         00
                  +---+--------------+---+---------+
                  S      冷         . 

     : 15                               00
                  +--------------------------------+
                            
                          S -  ᫠ .

 FMUL - 㬭 ᥫ  饩 ⮩ .
        AA*B - १   㬥 A .
 FDIV -  ᥫ  饩 ⮩ .
        AA/B - १   㬥 A .
        ᫨ ⥫ ( B ) ࠢ  ,  १
         ⥪  뢠 .

  ஡  ᯮ짮  ७ 䬥⨪  㧭
 㬥  ணࠬ MICRO  TURBO,    ⥫䮭
ࠬ  ணࠬ.

  ७ ᨫ    ⥫. (095) 435-95-14
   ᥩ              ⥫. (095) 180-63-80


         BR 0A     ;ABTOMATECKA APKA,EMT 52  160000
         BR 0B     ;APKA C BPAHHOO PBOA   160002
         BR C      ;TEHE-AC O HOMEP OKA   160004
         BR 0D     ;TEHE-AC O HOMEP CEKTOPA 160006
         BR E      ;HAA PA. OACT 160010
         JMP F     ;OPMATPOBAHE OPOK 160012
         JMP G     ;  160016

                ****** 160022 / ABTOM. APK ******

0A:      CLR R0    ;   0
         CALL H    ;
         MOV #1,R0 ;    0,    1
         CALL H    ;
         BR STOP   ;  0,   1  ,  

                 ****** 160042  AP. C BP PB. ******

         MOV #1000,SP  ; 
         CALL H        ;

        ****** 160052 OCTAHOB BATE HM  BXO  / ******

STOP:    CLR (R3)
         CLR @#177130
         CLR @#177660
         RTS PC

         ****** 160066  / APK 0     ******

H:       MOV #2000,R3     ; CTAH. AP. PA. O.
         CALL E           ; H. PA. O.
         MOVB R0,34(R3)   ; HOMEP PBOA
         CLR R0           ;TA C 0 OP.
         MOV #400,R1      ;HO 1000 AT (  )
         MOV #1000,R2     ;HA  1000
         CALL C           ;HA / TEH
         BCS 0J           ;EC OKA,TO BXO
         CMP @#1000,#240  ;POBEPT "HAA" CKETA  HET
         BNE 0J           ;EC HET,TO BXO (PH. NOP)
         CMP @#1002,#5    ;POBEPT PHAK CCTEMH. CKA
         BEQ 0J           ;EC CK CCTEMH, TO ACTT,  
         MOVB 34(R3),R0   ;AHECT HOM. PB.  
         CALL @#1000      ;ACTT CCTEM
0J:      RTS PC

              ****** 160154  T.-A. O HOMEP CEKT. ******

0D:      BR 0K

            ****** 160156 / HAA PA. OACT ******

E:       CLR (R3)            ; KO COCTOH HM (177130)
         MOV #177777,4(R3)   ;TAA TEKX
         MOV #177777,6(R3)   ;OPOEK
         MOV #23420,10(R3)   ;BPEM OCKAH OOBK
         MOV #23420,12(R3)   ;BPEM EPEXOA C OPOK HA OP.
         MOVB #40,14(R3)     ;HOM. OP. HAAA PEKOMEHCA
         MOVB #24,15(R3)     ;KO-BO OBTOPHX OEPA.P O
         CLRB 16(R3)         ; 
         CLR 22(R3)          ; 
         CLR 24(R3)          ;TA. PHAKOB
         MOV #12,60(R3)      ;CO CEKT. HA OP.
         RTS PC

      ****** 160250  / TEH-    ******

      室 ࠬ:
      ------------------
      R0 -  
      R1 - ᫮ ᫮ (⥫쭮-)
      R2 -    뫪
      R3 -   

C:       MOV #10,R4
         MOVB 60(R3),R5     ;CO CEKT. HA OP. 160254
         SWAB R5
0M:      CMP R5,R0      ;
         BHI 0L         ;   
         SUB R5,R0      ; 
         SEC            ;
0L:      ROL R0         ;
         SOB R4,0M      ;
         MOVB R0,R4     ;  ,  
         CLRB R0        ;
         SWAB R0        ;
         INC R0         ;    
         CLRB 32(R3)    ;
         CMP R0,60(R3)  ;
         BLE 0N         ;
         INCB 32(R3)    ;
         SUB 60(R3),R0  ;
0N:      CALL O          ;    
         BITB #2,@20(R3) ;  ,  80   .
         BEQ 0P          ;  .,     .
         ASRB 32(R3)     ;   . 
         ROLB R4         ; 
0P:      MOVB R4,33(R3) ; :  
         MOVB R0,35(R3) ; 
         MOV R1,30(R3)  ;   
         MOV R2,26(R3)  ;  

         ****** 160372 / T-A O HOM. CEKT ******

         室 ࠬ:
         ------------------
         室  ࠬࠬ   

0K:      MOV SP,50(R3)   ; TEKA  B 50 . PA. O.
         MFPS 52(R3)     ;CC  B 52 . PA. O.
         MOV #4,R0
         MOV (R0),46(R3)    ;PEP O 4 BEKT.  B 46 . PA. O.
         MOV PC,(R0)        ;EPEXB. PEP. 4 BEKT.
         ADD #1076,(R0)     ;AH  4 BEKT. =161512
         TSTB 35(R3)        ;POB KAKO CEKT
         BEQ Q              ;EC 0,TO   12  
         CMPB 35(R3),60(R3) ;EC  CEKT. OE EM  MOET
         BGT Q              ;T, TO  12  
         CLRB @#52          ;OCT AT OK
         BICB #30,16(R3)
         TST 30(R3)       ; CKOKO COB  EPEC.,EC 0
         BEQ 0R           ;TO BXO, , 
         BPL 0S           ;EC  OO. CO, TO  , 
                          ; 

                 ****** 160460 /   ******

         NEG 30(R3)         ;  -   .
         BISB #20,16(R3)
         MOV #175641,40(R3) ; 
         BITB #1,16(R3)     ;   ?
         BEQ 0T
         MOV #174241,40(R3) ;  
0T:      CALL U             ; .    177130
                            ;, .  
         BIT #4,(R4)        ; -  
         BEQ 0V             ;,  
         MOV #1,R0          ;,    1
         BR W               ;

                  ****** 160536 /   ******

0S:      CALL U             ; .  . 
         MOV #400,64(R3)
         BITB #4,@20(R3)
         BEQ 0V
         MOV #1000,64(R3)

                 / - 

0V:      CALL X             ;    
         CALL Y             ;  
         MOVB 15(R3),54(R3) ; 

                  ******    *******

         MOVB #10,57(R3)    ; 
         MOVB #24,55(R3)
0AE:     CALL Z             ;  
         BCC 0AA            ;,  
0AF:     MOVB 57(R3),R0     ;  
         BR W               ;
0AA:     TSTB (R4)          ;    
         BPL 0AA
         MOV (R5),R0
0AB:     TSTB (R4)          ;  
         BPL 0AB
         MOV (R5),R1
         CALL AC            ; CRC
         BNE 0AD            ;   
         MOVB #2,57(R3)     ; CRC 
         DECB 54(R3)        ;  ,    
         BNE 0AE
         BR 0AF             ;!  CRC ,
0AD:     BIC #177774,R1     ;  
         BITB #4,@20(R3)    ;   ?
         BNE 0AG            ; .,  
         CMPB R1,#2
         BEQ AH             ; ,  
         DECB 54(R3)        ; ,  
         BNE 0

            ****** 160724    ******

Q:       MOV #12,R0    ;   12  
W:       JMP AI        ;   
0R:      JMP AJ        ;  . ,SP,4


0AG:     CMPB R1,#2    ;  . .-
         BNE Q

            ****** , /  *******

AH:      MOVB 15(R3),54(R3)  ;- . 
         MOVB #6,56(R3)
         CLR 42(R3)          ; 
         CMP 30(R3),64(R3)   ;      .
         BHI 0AK
         MOV 64(R3),42(R3)   ;   
         SUB 30(R3),42(R3)   ;  
0AK:     MOVB #5,57(R3)      ;   5
0AT:     MOVB #24,55(R3)
0AP:     CALL Z              ;  
         BCC 0AL             ; ?  
         MOVB 57(R3),R0      ; 
         BR W                ;    
0AL:     TSTB (R4)           ;  
         BPL 0AL
         CMP 32(R3),(R5)     ;    ?
         BEQ 0AM             ; ?  
         DECB 56(R3)         ; 5 
         BEQ 0AN             ;  ,   4
         CALL AO             ;   
         CALL X              ;     
         BR 0AP
0AN:     MOV #4,R0           ; 4  
         BR W

0AM:     TSTB (R4)           ;  
         BPL 0AM
         MOV (R5),R1         ;    
         SWAB R1
         CMPB 35(R3),R1      ;  
         BEQ 0AQ             ;  ?  
         MOV 64(R3),R0       ;.  
         ADD #27,R0
         CALL AR             ; 
         BR 0AP              ;    
0AQ:     CALL AC             ; CRC
         BNE 0AS             ;  ?  
         MOVB #2,57(R3)      ;.      
         DECB 54(R3)         ; 
         BNE 0AT             ;   , 
         MOVB 57(R3),R0      ;  
         BR AI

0AS:     MOV 64(R3),R1
         SUB 42(R3),R1       ;  - 

                 ****** 161176   ******

         BITB #20,16(R3)
         BEQ 0AU
         JMP AV              ;   
0AU:     CALL AW             ;  SYNC
         TSTB 56(R3)         ; ?
         BEQ 0AX             ;.   
         CALL AY             ; 
         MOV #1130,R0
0BA:     TSTB (R4)           ;  0 ,   
         BMI 0AZ             ;  600    , 
         SOB R0,0BA          ;
0AX:     MOVB #11,57(R3)     ;  
         DECB 54(R3)         ;  
         BNE 0AT             ;  
         MOVB 57(R3),R0      ;    
         BR AI
0AZ:     TST (R5)            ; 11
0BB:     TSTB (R4)           ;     0 
         BPL 0BB             ;( )
         MOV (R5),R0         ; 
         CMP #120773,R0      ;  ?
         BEQ 0BC             ;,  
         CMP #120770,R0      ;  ?
         BNE 0AX             ;, 
         BITB #1,16(R3)      ;  ?
         BNE 0BC             ;,  
         MOV #13,R0          ;, 
         BR AI
0BC:     CALL BD             ; 
         CALL AC             ; CRC
         BNE BE              ; ,  
         MOVB #1,57(R3)      ;,  CRC 
         DECB 54(R3)         ;  ,   
         BNE 0AT             ;
         MOVB 57(R3),R0      ; , 
         BR AI               ;  /

               ****** 161362   ******
               ******      ****

BE:      SUB 64(R3),30(R3)   ;   ?
         BLE AJ              ; 0, 
         INCB 35(R3)         ; 
         CMPB 35(R3),60(R3)  ;  ? <=10, 
         BLOS 0BF            ;   
         BIT #40,(R3)        ;  ?
         BNE 0BG             ;,    
         BITB #2,@20(R3)     ;  ?
         BNE 0BG             ;,  
         MOVB #1,32(R3)      ;,   
         BIS #40,(R3)
         BR 0BH
0BG:     INCB 33(R3)         ;   
         CALL X              ;  
         CLRB 32(R3)         ;  
         BIC #40,(R3)
0BH:     MOVB #1,35(R3)      ;   
         CALL Y              ; 
0BF:     ADD 64(R3),26(R3)
         ADD 64(R3),26(R3)
         JMP AH              ;    

         ******      ******

         TST (R5)       ; 
         MOV #7,R0      ;   7  

         ******    *******

AI:      MOVB R0,@#52   ;AHECT KO OK
         MOVB #1,56(R3)
         BR 0BI         ;  

         ******   *******

AJ:      CLRB 56(R3)
0BI:     MOV 46(R3),@#4 ;BOCCT. CTAP 4 BEKTOP
         MTPS 52(R3)    ;BOCCT. CTAP. CC
         CCC            ;CPOCT BCE PHAK
         RORB 56(R3)
         MOV 50(R3),SP  ;BOCCT. CTAP. HA. CTEKA
         RTS PC         ;BT  /

         ******* 161566 /  CRC ******

AC:      TSTB (R4)      ;  0 
         BPL AC
         MOV #17,R2      ;-  CRC
0BK:     BIT #40000,(R4) ; CRC
         BNE 0BJ         ;, 
         SOB R2,0BK      ;,   
0BJ:     RTS PC

          :   =0,   CRC


         ******* 161610 /     ********

         室 ࠬ: R1 - - ᫮  뫪

BD:      MTPS #340
         MOV 26(R3),R2   ;  
0BL:     TSTB (R4)       ; 
         BPL 0BL
         MOV (R5),R0     ; 
         SWAB R0         ;  
         MOV R0,(R2)+    ;  
         SOB R1,0BL      ;  - 
         MOV 42(R3),R1   ;    
         BEQ 0BM         ;  ? , 
0BN:     TSTB (R4)       ; 
         BPL 0BN
         TST (R5)        ; 
         SOB R1,0BN      ;   
         MTPS 52(R3)
0BM:     RTS PC          ;

         ******** 161660 /    *******

AW:      TST (R5)
         MOVB #144,56(R3)
0BO:     TSTB (R4)
         BPL 0BO
         MOV (R5),R0
         BEQ 0BP
         INC R0
         BEQ 0BP
         DECB 56(R3)
         BNE 0BO
0BP:     RTS PC

         ****** 161714 /    ******

0BQ:     TSTB (R4)
         BPL 0BQ
         MOV (R5),R0
0BR:     TSTB (R4)
         BPL 0BR
         MOV (R5),R1
         RTS PC

         ****** 161732 /   *****

AY:      BIS #400,(R3)
         MOV (R3),(R4)
         BIC #400,(R3)
         MOV #10,R0
0BS:     SOB R0,0BS
         MOV (R3),(R4)
         RTS PC

         ******* 161756 /    *******

0BT:     TST (R4)         ;  ?
         BMI 0BT          ;,  
         BIS #400,(R3)    ;   
         MOV (R3),(R4)
0BU:     TST (R4)         ;  
         BPL 0BU
         MOV 62(R3),R0    ;  
0BV:     SOB R0,0BV
         BIC #400,(R3)    ;   
         MOV (R3),(R4)
         RTS PC           ;

         ******* 162012 /    ******

Z:       MOV #17,R0        ;  
0BW:     TST (R5)
         SOB R0,0BW
         CLR 44(R3)        ;  
         BICB #40,16(R3)   ;  
0CL:     BITB #10,@20(R3)
         BEQ 0BX
         CMPB 35(R3),#1    ;  ?
         BNE 0BX           ;  ,   
         BIS #400,(R3)     ;   
         MOV (R3),(R4)
0BY:     TST (R4)          ;  ,  
         BMI 0BY
0BZ:     TST (R4)          ;  
         BPL 0BZ
         DECB 55(R3)       ; ,    
         BNE 0CA
         SEC               ; 
         BR 0CB            ;
0CA:     MOV 62(R3),R0     ;  
0CC:     SOB R0,0CC
         BR 0CD            ; 
0BX:     CALL CE           ; 
         BCS 0CB           ; , 
         BEQ 0BX           ;  ?  ,  
         COM R0            ; ,  
         BEQ 0BX           ; ,  
0CG:     CALL CE           ; 
         BCS 0CB           ;  ,  
         BEQ 0CF           ;  ,    
         COM R0            ;  , 
         BNE 0CG           ;  ,   
                           ;,   

         *******    *******

0CF:     MOV #3 ,R1
0CI:     MOV (R5),R0         ; 
         BEQ 0CH             ; ? ,  
         COM R0              ; ?
         BNE 0BX             ;,  
0CH:     SOB R1,0CI          ; .
0CD:     CALL AY             ; 
         MOV #74,R0
0CK:     TSTB (R4)           ; 
         BMI 0CJ             ; ?  
         SOB R0,0CK          ;,  
         BR 0CL
0CJ:     TST (R5)            ; 11
0CM:     TSTB (R4)           ; 
         BPL 0CM
         MOV (R5),R0         ; 
         CMP #120776,R0      ;  ?
         BEQ 0CN             ;,  
         CMP #120773,R0      ;.  ?
         BEQ 0CO             ;,  
         CMP #120770,R0      ;.   ?
         BNE 0CL             ;.  
0CO:     CALL CP             ;.  
         BR 0CL              ;  
0CN:     CLC                 ;
0CB:     RTS PC

         ******* 162246 /   *******

CE:      TST (R4)             ;  ?
         BPL 0CQ              ;,  
         BITB #40,16(R3)      ;   ?
         BNE 0CR              ;,  
         CLR 44(R3)           ;,  .   
         BISB #40,16(R3)      ;  
         DECB 55(R3)          ;  ?
         BNE 0CS              ;,  
         SEC                  ;.  
         RTS PC
0CS:     CLC
         MOV (R5),R0          ; 
         RTS PC
0CQ:     BITB #40,16(R3)      ;  ?
         BEQ 0CR              ;,  
         CLR 44(R3)           ; 
         BICB #40,16(R3)      ;  
         BR 0CS               ;
0CR:     INC 44(R3)           ;  
         CMP 44(R3),#60000    ;  . <= 60000 (8), 
         BLOS 0CS
         MOV #6,R0            ; >,  6. 
         JMP AI

         ******* 162364 /   *******

U:       MOV #177130,R4      ;  R4 177130
         MOV R4,R5
         TST (R5)+           ; R5 177132
         BICB #4,16(R3)
         BIT #20,(R3)        ;   ?
         BEQ 0CT             ;,  
         BISB #4,16(R3)      ;,  
0CT:     BIS #20,(R3)        ; 
         MOV (R3),(R4)
         BIC #57,(R3)        ;  
         TSTB 32(R3)         ;  ?
         BEQ 0CU             ;,  
         BIS #40,(R3)        ;,  
0CU:     BICB #177774,34(R3)
         MOVB 34(R3),R1      ;  
         MOV PC,R0           ;     -
         ADD #56,R0          ;  
         ADD R1,R0           ;     
         BISB (R0),(R3)      ;    
         ADD R3,R1
         ADD #4,R1
         MOV R1,2(R3)        ;    
         CALL O              ;    
         BITB #4,16(R3)      ;  ?
         BNE 0CV             ;,  
         CLR R1              ;,  
0CW:     SOB R1,0CW
0CX:     SOB R1,0CX
0CV:     MOV (R3),(R4)       ; 
         MOV 10(R3),R1       ;   
0CY:     SOB R1,0CY
         RTS PC

      ********       *******

         .B:01    
         .B:02    B
         .B:04    
         .B:10    D

         ****** 162540 /    ******

O:       CLR 20(R3)           ;    
         BICB #177774,34(R3) ;  ,   .
         MOVB 34(R3),20(R3)  ;      .
         ADD R3,20(R3)       ;   
         ADD #22,20(R3)
         RTS PC

         ****** 162574 /   ******

X:       TSTB 33(R3)          ;  ?
         BEQ AO               ;,  .  
         TSTB @2(R3)          ;   ?
         BPL 0CZ              ;,    
         CALL AO              ;,     .
0CZ:     CMPB @2(R3),33(R3)   ;     ?
         BEQ 0DA              ;.   
         BHI 0DB              ;  , .    ?
         CALL DC              ; !  .   
         BR 0CZ               ;   
0DB:     CALL DD              ;  
         BR 0CZ               ;   
0DA:     MOV #23420,R0        ;  .  .
0DE:     SOB R0,0DE           ;  
         RTS PC

         *******    *******

DC:      INCB @2(R3)          ;   
         BMI 0DF              ;  128 (10). , 
         BIS #100,(R3)        ;,     
         BR 0DG               ;   
0DF:     MOV #4,R0            ; 4, 
         JMP AI

         *******    ******

DD:      DECB @2(R3)          ;  
         BIT #1,(R4)          ;  ?
         BEQ 0DH              ;,  
         CLRB @2(R3)          ;  
         RTS PC               ;
0DH:     BIC #100,(R3)        ;   
0DG:     MOV #310,R0
         MOV (R3),(R4)        ;     
0DI:     SOB R0,0DI           ; 
         BIS #200,(R3)        ;   
         MOV (R3),(R4)        ; 
         MOV 12(R3),R0        ;    .  .
0DJ:     SOB R0,0DJ           ;  
         BITB #1,@20(R3)      ; 
         BEQ 0DK              ;,  
         BITB #100,16(R3)
         BNE 0DK
         MOV (R3),(R4)        ; !    
         MOV 12(R3),R0
0DK:     BIC #200,(R3)        ;   
         RTS PC               ;

         ****** 163004 /     ******

AO:      MOVB #200,@2(R3)   ;  
         BISB #100,16(R3)
0DN:     CALL DD            ;   
         BIT #1,(R4)        ;, ?   ?
         BNE 0DM            ;, 
         TSTB @2(R3)        ;    
         BNE 0DN            ;    ,   
         MOV #3,R0          ;   0 ,     
         BICB #100,16(R3)   ;    0 
         JMP AI             ; 3, 
0DM:     CLRB @2(R3)        ;.     
         BICB #100,16(R3)   ;
         RTS PC

         ******* 163072 /   *******

CP:      MOV 64(R3),R0     ;/    ,
R:      TST (R4)          ;.   ,   
         BMI 0DO           ; .   
0DQ:     TST (R4)          ; ,    5
         BMI 0DP           ;    -
0DT:     TSTB (R4)         ;,    .
         BPL 0DQ
         TST (R5)
         SOB R0,0DQ
         BR 0DR
0DP:     DECB 55(R3)
         BNE 0DS
         MOV #5,R0
         JMP AI
0DO:     TST (R4)
         BPL 0DT
0DS:     TSTB (R4)
         BPL 0DO
         TST (R5)
         SOB R0,0DO
0DR:     RTS PC

         ******* 163154 /   ********

         室 ࠬ: R1 - ᫮  

AV:      MOV 26(R3),R2      ;     
         MOV #13,R0         ;   
         MTPS #340
         CALL DU            ;  
0DV:     TSTB (R4)          ; 
         BPL 0DV
         MOV (R2)+,(R5)     ;   
         MOV (R3),(R4)      ;  
         BR 0DW             ;    
0DX:     TSTB (R4)          ; 
         BPL 0DX
         MOV (R2)+,(R5)     ; 
0DW:     SOB R1,0DX         ;    
         MOV 42(R3),R1      ;     
         BEQ 0DY            ;  
0DZ:     TSTB (R4)          ; 
         BPL 0DZ
         MOV #0,(R5)        ;    
         SOB R1,0DZ
0DY:     BIT #40000,(R4)    ;  CRC
         BEQ 0DY
         MOV #47116,(R5)    ; 44
0EA:     TSTB (R4)          ; 
         BPL 0EA
         TST (R5)           ; 
         MTPS 52(R3)        ; 
         JMP BE             ;   

         ******* 163266 /    *******

         室 :  R0 - ᫮   44

DU:      MOV #47116,(R5)        ; 44
         BR 0EB                 ; 
0EC:     TSTB (R4)              ; 
         BPL 0EC
         MOV #47116,(R5)        ; 44
0EB:     SOB R0,0EC             ;-   R0
         MOV #6,R0              ; 12  00
0ED:     TSTB (R4)              ; 
         BPL 0ED
         MOV #0,(R5)            ; 
         SOB R0,0ED             ;  
         BIS #1000,(R3)         ; 
0EE:     TSTB (R4)              ; 
         BPL 0EE
         MOV #120641,(R5)       ;  11
         MOV (R3),(R4)
         BIC #1000,(R3)         ; CSRW
0EF:     TSTB (R4)              ; 
         BPL 0EF
         MOV 40(R3),(R5)
         RTS PC

         ******* 163360 /   ********

Y:       BIC #2000,(R3)     ; 
         CMPB 14(R3),@2(R3) ;  .  .  .
         BHI 0EG            ;    . .
         BIS #2000,(R3)     ; 
0EG:     MOV (R3),(R4)      ;,    
         MOV #310,R0        ; 
0EH:     SOB R0,0EH
         RTS PC             ;   /

         ******* 163412 /  *******

F:       MOV SP,50(R3)     ;    :
         MFPS 52(R3)       ; ,   
         MOV #4,R0         ; 4
         MOV (R0),46(R3)
         MOV PC,(R0)       ;     4
         ADD #176056,(R0)
         CALL U            ;  
         CALL X            ;  
         CALL Y            ; 
         BIT #4,(R4)       ;    ?
         BEQ 0EI           ;,  
         MOV #1,R0         ;,  1, 
0EL:     JMP AI
0EI:     SWAB 32(R3)
         MOVB 17(R3),36(R3) ;   
         MOVB 17(R3),37(R3)
         MOVB 60(R3),R1     ; MAX  
         MOV #1001,R2       ;     
         MOV #1750,R0
0EK:     TST (R4)           ;  ?
         BPL 0EJ            ;,  
         SOB R0,0EK         ;,   
0EP:     TST (R5)           ; .  .
         MOV #6,R0          ;  
         SWAB 32(R3)
         BR 0EL             ; 6. 

         ******     44 ******

0EJ:     MOV #6200,R0
         MTPS #340
         MOV #47116,(R5)    ;  44
0EO:     TST (R4)           ;  ?
         BMI 0EM            ;,  
0EN:     TSTB (R4)          ;,  
         BPL 0EN
         MOV #47116,(R5)    ; 44
         SOB R0,0EO         ; ,    
         BR 0EP             ;  , 
0EM:     MOV #20,R0         ; ,  32  4
         MOV #177241,40(R3)
0EX:     CALL DU            ;  
0EQ:     TSTB (R4)          ; 
         BPL 0EQ
         MOV 32(R3),(R5)    ;    
         MOV (R3),(R4)      ;  
0ER:     TSTB (R4)          ; 
         BPL 0ER
         MOV R2,(R5)        ;     
         MOV #13,R0         ;  GAP
         MOV #175641,40(R3)
0ES:     BIT #40000,(R4)    ;  CRC
         BEQ 0ES
         CALL DU            ; GAP   
         MOV 64(R3),R0      ;  
         DEC R0             ;   
0ET:     TSTB (R4)          ; 
         BPL 0ET
         MOV 36(R3),(R5)    ;   
         MOV (R3),(R4)      ;  
0EU:     TSTB (R4)          ; 
         BPL 0EU
         MOV 36(R3),(R5)    ;   
         SOB R0,0EU         ;    
         INC R2             ; 
         MOV #22,R0         ;  GAP  2
         BIT #4,@20(R3)     ;     
         BEQ 0EV
         MOV #72,R0         ; GAP  3
0EV:     MOV #177241,40(R3)
0EW:     BIT #40000,(R4)    ;  CRC
         BEQ 0EW
         SOB R1,0EX   ;    ,    

         *****    *****

0EY:     TSTB (R4)          ; 
         BPL 0EY
         MOV #47116,(R5)    ; 44
         TST (R4)           ;  ?
         BPL 0EY            ;,    ,   
0EZ:     TSTB (R4)          ; 
         BPL 0EZ
         MOV #47116,(R5)    ; 44
         TST (R5)           ; 
         MTPS 52(R3)        ; 
         SWAB 32(R3)
         JMP AJ             ;  /
