   .. ᥭ, . ᪢

   -  ᥬ -0010(.01)

        ᭮  २  ᥬ-࠭஢
11   18     "ᡮન"  ணࠬ  
"⠭" 㫥,  ॠ        㭪樨.
 㫥      ⭮    ᪥
楫 ⥪     室  몮뢠
   ᮧ ணࠬ   ⮣,  ⮡   
     .  쪮     :  ⠪  
몮뢠 ⮫쪮  ꥪ 㫨,  ᮧ  ⮬ 
ᥬ-࠭. ᫨  㦭 ᮥ -
⮢ ணࠬ    (ਬ   
     ᯮ)    ᮧ    -
᪮  ।  ࠩ,    室    
  "᪨"   ᯮᮡ  -       -
⫠稪.   ⮣,  ᠭ ᥬ୮ ⨭
 ⥬   18 짮⥫ ⭠ ࠭ 
 饩  ணࠬ (   ,        㤥
࠭᫨஢   設 ).    ⫠稪  室
ࠧ᪨   ᮧ ࠭  ᭮  ணࠬ  
饭   "ᨬ" ணࠬ  ⠢  
⢨⥫   饭,   쭮-⠪ 㤭
ࠡ⥭.
     ணࠬ      砥    ணࠬ
SCREW_LINK,            ࠪ᪨      
⮬⨧஢    몮  譨  ᨬ
㫥  ᮧ  ᥬ-⥬ ணࠬ.
   ணࠬ  SCREW_LINK   (  㤥   뢠    
⪮     LINK)  ।祭      몮
⮭ 㫥  - ணࠬ  ணࠬ, ᮧ 
ᥬ-⥬    -18.  (ணࠬ, ᮧ
짮⥫   㪠  ⥬    ᥬ,  㤥
뢠  . ⮭ 㫨  ).
      㫥      ணࠬ (⠬,  
 ᨭ⠪  ᥬ) 㦭  ᯮ  ⠡
:

      #####   ;⥪⮢  (ਧ) -⠡
      #....   ;쬥筮 ᫮ -  ⠡
1:   #....   ;祩, १ࢨ஢  
2:   #....   ;饭  䠩  ⮭
      . . .   ;
3:   #....

  -⠡  ᮮ⢥    砥
 (ࠢ  祥, १ࢨ஢  
饭).
    ᠭ   ணࠬ   饭   ⥬
   ⮭ ணࠬ  (⨬:   
   )  ⠥  ᮤঠ騬    祩  -
⠡   浪 ⠭ ஢ . ( 
         몮    
 .)
   ਬ ணࠬ,  ᮤঠ饩  -⠡,  ਢ  
ਫ.

       SCREW_LINK

   ᫥ 㧪  ணࠬ SCREW_LINK    -0010 
᪠   砫쭮   "S"  ॢ 
० ७    뢮  ࠭ ⠢. ᫥
    ந室  室    (
ਧ   ਣ襭 "=>").  騩 ० ࠡ
ணࠬ      㦥  ப.  짮⥫
㯭 ᫥騥 :
   LM -  㧪  䮭  䠩  㪠
.  ࠧ     ந      -⠡   
㦥 䠩.  ᫨    , 뤠 ᮮ饭
 訡,   뢮 砫    
䠩,   ⠪ (  ஫)     ᮧ 
ᥬ-⥬   -⠡,    ᫥⥫쭮,  
ᨬ쭮 ⢮  ⮭  ,    
   ணࠬ.
   LB  -   ०      祭  ⮭  .
訢    ।    (  ᠬ  ,
      ।ᬮ५  -⠡!)  ᫥
   (ந  ஫  祭    ,
⮡    ॢ蠫    ⠡)  訢  
㧪       .     㦠       
䮭  砥   䠩,   砫
 (   -   맮    ᯮ)    
ᮮ⢥ 祩  -⠡, ⠪  ࠧ 
䠩 砥     ⮬      ⮬ . 
஫ ।  ᮬ  ।  뢮
 砫  ᢮   ( ࢮ ᢮ 祩
)    .   㦭  㦠    㣨
稭    ᮢ ᢮ , ⠪   
।    砫  ᢮    ⮬᪨
७    ᢮  祩    ⮫쪮  
㦥 .   室    
㧪     訬,  祬   㪠  (ਬ,  
९祭 訡筮  㦥 ). ⮬᪨
ந   ஫    ᮢ   㧪      
।࠭    䠩    ࠭.    
    浪 ⠭ ஢. 㦭  ⮡
   ᮮ⢥⢮  祩 -⠡ (..
⮡   䠩 頫   㦭     ⮩
ணࠬ,   ன   ।ᬮ७  ணࠬ⮬.)
 室      ᫥ 㧪   㦭
    .
   SP - ࠭ ᪮ 䠩  ⭮ .
訢  ,   ஥  㤥   ᢮   ᮧ
ணࠬ.   砫 祭  ணࠬ ࠢ  
砫    䠩,        ᮮ⢥  
ࠣ     ᫥   ( ᠬ
訬 ⮢  ᮬ).  祭  ⮢  ணࠬ
㤥 ᮤঠ   "" ⪨, ᫨  㦠
 .
   RE  -   १  ணࠬ   LINK     室
 ᫥饩 ணࠬ.
    ⬥,   ணࠬ  LINK   
砫 㦠      -⠡,  ⠪    ⨬
,     짮⥫,      ᯮ塞
ணࠬ,   ᯨ᮪      (ਬ   ஢
ࠩ), ,  १ࢨ஢   ।   
ணࠬ  ..

    (    -18):

     ; 뤠 㪮 ᨣ   
     ;
   START:  EMT 14        ; 砫  䠩
            ....
           MOV KLAV,R1   ;  R1 ।  맮
           JSR R7,@R1    ; 맮 ணࠬ  
           MOV SOUND,R1
           JSR R7,@R1    ; 맮 ணࠬ 뤠 㪠
            ....
      ;  -⠡ (஡
      ; । ப ##### 易⥫)
           .A: #####
           .#2           ;  -⠡ ࠢ 2
   KLAV:   .#0           ;  祩, १ࢨ஢ 
   SOUND:  .#0           ;  맮 ணࠬ

;
;   LINK POSTPROCESSOR                 ceo ..   1992
;
; ocoa coex aoox opopa  oax 
;     popaa, oye c oo cce MKPO
;
START:  MOV #14,R0
        EMT 16
        CLR VERIF
        MOV #KOM1,R1
        MOV DLKOM1,R2
  ; o eca  o.cpoy
        JSR R7,KOMM
        TSTB @#40
        BNE BBBBBB
        MOV #233,R0
        EMT 16
BBBBBB: TSTB @#56
  ; ac ypcop
        BNE A1
        MOV #232,R0
        EMT 16
A1:     MOV #125252,@#212
        MOV #ZAST1,R1
        CLR R2
        EMT 20
        MOV #233,R0
        EMT 16
        EMT 16
        MOV #ZAST2,R1
        CLR R2
        EMT 20
        MOV #PRESS,R1
        CLR R2
        EMT 20
        EMT 6
        MOV #233,R0
        EMT 16
        MOV #KOM2,R1
        MOV DLKOM2,R2
        JSR R7,KOMM
  ; aa pae "=>"
  ;  o oa
  ; (2 aa -  R0)
A3:     JSR R7,ZAPR1
        CMP R0,XX1
        BNE A2
  ; o aoo oy
        JSR R7,SES1
        BR A3
A2:     CMP R0,XX2
        BNE A4
  ; o o. oo
        JSR R7,SES2
        BR A3
A4:     CMP R0,XX3
        BNE A5
  ; ac ooo popa a /
        JSR R7,SAVE
        BR A3
A5:     CMP R0,XX4
        BEQ START
        BR A3
XX1:    .A:LM
XX2:    .A:LB
XX3:    .A:SP
XX4:    .A:RE
  ; aa pae "=> "
ZAPR1:  MOV #14,R0
        EMT 16
        MOV #PRIGL,R1
        CLR R2
        EMT 20
        MOV R1,-(R6)
        EMT 6
        EMT 16
        MOV R0,R1
        EMT 6
        EMT 16
        MOV R2,-(R6)
        MOV #10,R2
PR1:    ASL R0
        SOB R2,PR1
        MOV (R6)+,R2
        BIC #177400,R1
        BIS R1,R0
        MOV (R6)+,R1
        RTS R7
        .R:SCREW CORP 1992
PRIGL:  .A: =>
        .E
ZAST1:  .A: SCREWcorp.
        .A: LINK POSTPROCESSOR.
        .B:40.E
ZAST2:  .B:223.A:  ceo ..
        .A:  MOCKBA   1992
        .B:12.E
PRESS:  .B:221.A:        PRESS
        .A: ANY KEY.
        .E
KOM1:   .A: SCREWcorp.  LINK
        .A: PROCESSOR  MOCKBA
        .A: 1992  V1.0
DLKOM1: .#56
KOM2:   .A: LINK PROCESSOR:
        .A:  MAIN MENU.
DLKOM2: .#34
  ; o eca  o.cpoy
KOMM:   MOV R0,-(R6)
        MOV R3,-(R6)
        MOV R1,R3
        CLR R1
        MOV ' ',R0
KOMM1:  EMT 22
        INC R1
        CMP R1,#100
        BLO KOMM1
        CLR R1
KOMMM:  MOVB (R3)+,R0
        EMT 22
        INC R1
        SOB R2,KOMMM
        MOV (R6)+,R3
        MOV (R6)+,R0
        RTS R7
KOM3:   .A: LINK PROCESSOR:
        .A:  LOADING MAIN FILE.
DLKOM3: .#44
  ; apya aoo oy
SES1:   MOV #14,R0
        EMT 16
        MOV #KOM3,R1
        MOV DLKOM3,R2
        JSR R7,KOMM
        MOV #TXT1,R1
        CLR R2
        EMT 20
        MOV #TXT2,R1
        CLR R2
        EMT 20
  ; o coa c aayp  R5
        JSR R7, BAYT
        MOV #12,R0
        EMT 16
SESS2:  JSR R7,@#100536
        TSTB @#321
        BEQ SESS1
        MOV #12,R0
        EMT 16
        BR SESS2
  ; aao ooo popa
SESS1:  MOV @#264,STADRP
  ; a aoo oy
        MOV @#266,DLMAIN
        MOV @#264,R1
        MOV @#266,R2
        ADD R1,R2
SESS3:  CMP R1,R2
        BHI NO1
  ;  ao "#" -
  ; pa a
        CMPB (R1)+,#242
        BNE SESS3
        MOV #4,R3
SESS4:  CMPB (R1)+,#242
        BNE SESS3
        SOB R3,SESS4
  ; a -a
        MOV (R1)+,DLTABL
  ; apec ee epo e
        MOV R1,ADRTAB
        INC VERIF
        MOV #TXT3,R1
        CLR R2
        EMT 20
        MOV #TXT4,R1
        CLR R2
        EMT 20
        MOV STADRP,R0
        JSR R7,WYWOD
        MOV #TXT5,R1
        CLR R2
        EMT 20
        MOV DLMAIN,R0
        JSR R7,WYWOD
        MOV #TXT6,R1
        CLR R2
        EMT 20
        MOV DLTABL,R0
        JSR R7,WYWOD
NO11:   EMT 6
        RTS R7
NO1:    MOV #TXTNO1,R1
        CLR R2
        EMT 20
        BR NO11
TXTNO1: .B:12.A: *** ERROR! ***
        .A:  Taa e aea !
        .E
TXT1:   .A: apyae a
        .A: oy c /.
        .B:12.E
TXT2:   .A: Apec oa?
        .B:40.E
TXT3:   .B:12.A: Taa aea.
        .B:12.E
TXT4:   .B:12.A: a a: Apec:
        .E
TXT5:   .B:31.B:31.B:31.B:31.B:31
        .B:31.B:31.A: a:
        .E
TXT6:   .B:12.A: a -a:
        .E
STADRP: .#0
DLMAIN: .#0
DLTABL: .#0
ADRTAB: .#0
VERIF:  .#0
;
BAYT:   MOV R0,-(R6)
        CLR R5
BAYT1:  EMT 6
        CMP R0,#12
        BEQ BAYT2
        EMT 16
        ASL R5
        ASL R5
        ASL R5
        BIC #177770,R0
        ADD R0,R5
        BR BAYT1
BAYT2:  MOV (R6)+,R0
        RTS R7
  ; o oc ca  R0
WYWOD:  MOV R4,-(R6)
        MOV R5,-(R6)
        MOV R0,R4
        BIT #100000,R4
        BEQ WYW1
        MOV '1',R0
        EMT 16
        BR WYW2
WYW1:   MOV '0',R0
        EMT 16
WYW2:   MOV #4,R5
        MOV #31,R0
WYW3:   EMT 16
        SOB R5,WYW3
        MOV #5,R5
WYW4:   MOV R4,R0
        BIC #177770,R0
        ADD #60,R0
        EMT 16
        MOV #10,R0
        EMT 16
        EMT 16
        ASR R4
        ASR R4
        ASR R4
        SOB R5,WYW4
        MOV (R6)+,R5
        MOV (R6)+,R4
        RTS R7
KOM7:   .A: LINK PROCESSOR:
        .A:  LOADING BLOCKS .
DLKOM7: .#42
  ; o o. oo
SES2:   MOV #14,R0
        EMT 16
        MOV #KOM7,R1
        MOV DLKOM7,R2
        JSR R7,KOMM
        TST VERIF
        BNE VVVV
        MOV #ERRO7,R1
        CLR R2
        EMT 20
        EMT 6
        RTS R7
  ; ap. a co .o
VVVV:   MOV STADRP,FREE
        ADD DLMAIN,FREE
SESST:  MOV #TXT20,R1
        CLR R2
        EMT 20
        MOV FREE,R0
        JSR R7,WYWOD
        MOV #TXT21,R1
        CLR R2
        EMT 20
        MOV #40000,R0
        SUB FREE,R0
        JSR R7,WYWOD
        MOV #TXT10,R1
        CLR R2
        EMT 20
        JSR R7,BAYT
        TST R5
        BEQ NOTT
        CMP R5,DLTABL
        BHI NOT
        DEC R5
        ASL R5
        ADD ADRTAB,R5
        MOV R5,-(R6)
        MOV #TXT22,R1
        CLR R2
        EMT 20
        JSR R7,BAYT
        CMP R5,FREE
        BLO NOT1
        MOV #12,R0
        EMT 16
SESS20: JSR R7,@#100536
        TSTB @#321
        BEQ SESS10
        MOV #12,R0
        EMT 16
        BR SESS20
SESS10: MOV (R6)+,R5
        MOV @#264,(R5)+
        MOV #TXT30,R1
        CLR R2
        EMT 20
        EMT 6
        MOV @#264,FREE
        ADD @#266,FREE
        BR SESST
NOTT:   RTS R7
NOT:    MOV #TXTNOT,R1
        CLR R2
        EMT 20
        EMT 6
        BR SESST
NOT1:   MOV #TXNOT1,R1
        CLR R2
        EMT 20
        EMT 6
        BR SESST
TXT20:  .A: Cooa oa:
        .A: Apec:
        .E
TXT21:  .B:31.B:31.B:31.B:31.B:31
        .B:31.B:31.A: a:
        .E
TXT10:  .B:12.A: Hoep oa
        .A: (0-xo)?
        .E
TXT22:  .B:12.A: Apec apy?
        .B:40.E
TXT30:  .B:12.A:  ----- o
        .A: oe -----
        .B:12.E
TXTNOT: .B:12.A: *** ERROR! ***
        .A:  pee oe a !
        .B:12.E
TXNOT1: .B:12.A: *** ERROR! ***
        .A:  O訡o apec !
        .B:12.E
ERRO7:  .B:12.A: *** ERROR! ***
        .A:  He apye a a !
        .E
KOM8:   .A: LINK PROCESSOR:
        .A:  SAVING PROGRAM .
DLKOM8: .#42
FREE:   .#0
  ; ac a /
SAVE:   MOV #14,R0
        EMT 16
        MOV #KOM8,R1
        MOV DLKOM8,R2
        JSR R7,KOMM
        MOV #TXSA1,R1
        CLR R2
        EMT 20
        MOV #TXSA2,R1
        CLR R2
        EMT 20
  ; o e
        JSR R7,IMYA
        MOV #320,R1
        MOV #2,(R1)+
        MOV STADRP,(R1)+
        MOV FREE,@R1
        SUB STADRP,(R1)+
        MOV #PRESS1,R1
        CLR R2
        EMT 20
RARA:   EMT 6
        CMP R0,#3
        BNE ARARA
        RTS R7
ARARA:  MOV #320,R1
        EMT 36
        BR RARA
TXSA1:  .A: ac popa
        .A: a /.
        .B:12.E
TXSA2:  .A:M?
        .B:40.E
PRESS1: .B:12.A:      PRESS
        .A: ANY KEY   (KT - xo)
        .E
  ; o e
IMYA:   MOV R0,-(R6)
        MOV R1,-(R6)
        MOV R2,-(R6)
        MOV #326,R1
        MOV ' ',R0
        MOV #20,R2
IMYA1:  MOVB R0,(R1)+
        SOB R2,IMYA1
        MOV #326,R1
        MOV #5020,R2
        EMT 10
        MOV #326,R1
        MOV #20,R2
IMYA3:  CMPB (R1)+,#12
        BEQ IMYA2
        SOB R2,IMYA3
        BR IMYA4
IMYA2:  MOVB #40,-(R1)
IMYA4:  MOV (R6)+,R2
        MOV (R6)+,R1
        MOV (R6)+,R0
        RTS R7
        END
