    窨 室  DOS(CallDos) 
          FName        ;0  "Name"   
                        ;     "Name"
                        ;  NZ=File not found
           ND           ;1    A(0..3)
           LoadFile     ;2 . "Name"  Adr AHL
                        ;  NZ=Not found
           LoadDir      ;3 ..(DirBl)
           SaveDir      ;4 ..(DirBl)
           LoadBlock    ;5  .
                        ;  In:DE=Blk,HL=Adr,B=Len
           SaveBlock    ;6  .
                        ;  In:DE=Blk,HL=Adr,B=Len
           LoadApp      ;7    
                        ;     .
           Dos          ;8  #3D13  
                        ;  ,  .
                        ;    ""
           IOF          ;9   
                        ;   
           IOB          ;10   
                        ;   
           DskF
            ;11      .
               ;In:A= 
               ;CHL= 
           ForL
            ;12     
               ;In:A= ,B= 
           DskB
            ;13    . .
               ;In:A= .
               ;   CHL= 
           SetName      ;14  /   128
                        ;      .
                        ;In:CHL= 
           AddExt       ;15  
                        ;     ,   
                        ;In:BCD= 
           LoadFileIM   ;16       
                        ;    
                        ; In:B= ,C= 
                        ; Out:AHL= ,B=  .
                        ;     Z=1, Out of memory 
                        ;       File not found
	   OverFnD	;17 ⠭  ࠡ稪 㭪樨
			; In:AHL=new adres
			;   C=function number
	   RestFnD	;18 뤠  ࠡ稪 㭪樨
			; In:C=function number
			; Out:AHL=adres

;-----------------------------------------
㭪樨 (窠 室 CallFn)
           PDEC_3B      ;0
           PDEC_B       ;1
           PDEC_W       ;2
           PHEX_W       ;3
           PHEX_B       ;4
           PBIN_W       ;5
           PBIN_B       ;6

           MakeNum      ;7

           Inkey        ;8
           InMode       ;9     .. A
           OutMode      ;10    ..A
           Check_SS     ;11    SS
           Check_CS     ;12    CS
           Mul1b        ;13 HL=B*C
           Div2b        ;14 BC=BC/DE
           OpenWin      ;15   AIX
           PTab         ;16  
                        ;      "HL"
           CloseW       ;17   
           OffW         ;18  
                        ;    .
           PrintAHL     ;19   "AHL"
                        ;      . IX,LY
           Param        ;20   "" 
                        ;    "B"
                        ;       IX,LY
           SobAll       ;22   "A" 
                        ;    "B"  
           PeekCHL      ;23 LD A,(CHL)
           PokeCHL      ;24 LD (CHL),A
           SetShr       ;25   "CHL"
           DelShr       ;26   "A"
           Print        ;27   ""
                        ;      . IX,LY
           ResPg        ;28  "B"  
                        ;       
                        ;    ""
                        ;Out:NZ,A=Page,H=. 
           RND255       ;29   "" RND (0..255)
           RNDA         ;30   "" RND (0..A)
           PrintXY      ;31   ""  BC(YX)
           PrSysS       ;32   ""  DE(YX)
                        ;       
                        ;    IX,LY
           IntW         ;33   "BC" 
                        ;     .
           Cpir         ;34    BC 
                        ;    DE(YX),HL(HgtLen)
                        ;   Out:NC= 
           FastMove     ;35   
                        ;      
                        ; In:B=  (1..64)
                        ;   A= 
                        ;   HL= 
                        ;   DE= 
           OpenBuffer   ;36   
                        ;   
           RestoreBuffer;37   
                        ;   
           Moving       ;38   
                        ;   .
                        ; In:A=,BC=
                        ;   DE=,HL=
           FindBlk      ;39    
                        ;      
                        ;     ""  ,
                        ;    #00, Out of memory
           PToP         ;40    
                        ;       
                        ;   In:AHL=
                        ;      BDE=
                        ;      C= [1..255]
           AT_BC        ;41    
                        ;  In:IX,LY=. 
                        ;     B=Y(zn),C=X(pic)
           OpenL        ;42    
                        ;  IN:(AHL)  ,ASCIIZ
                        ;      , 
                        ;       "lib"
                        ;  Out:A= 
                        ;  Carry=1 - Out of mem, file not found,
                        ;            too many lib.
           LibFun       ;43  
                        ;  In:B= 
                        ;     C= 
           LibAdr       ;44   
                        ;  In:BC=/
                        ;  Out:ABC=
           DelB         ;45    
                        ;  In:A=
           ClearMem     ;46   
                        ;  In:AHL=  
                        ;     B=  
           InstLibTab   ;47  .  
                        ;  In:AHL=  
           IntW_        ;48   ,
                        ;     
                        ; Out:BC=YX(zn)
           CurP         ;49     
                        ;   
                        ; In:CHL=   
                        ; Out:NC= 
           SetCHL       ;50    CHL ,
                        ;      BDE  
                        ;     
           JumpAHL      ;51   
                        ;    AHL
           DelNum       ;52     
                        ;  In:A= 
           WinEnd       ;53     
                        ;     
                        ; Out:HL=
           OnW          ;54   
                        ; In:AHL=  
           ZapretOff    ;55    
           NoFire       ;56   "Fire"
           PeekIX       ;57 LD A,(LY,IX+A)
           PokeIX       ;58 LD (LY,IX+A),B
           OnliEW       ;59   
                        ;     
           MapAdr       ;60    
                        ;      
                        ;  In:A= 
                        ;  Out:AHL= 
           ReadA        ;61    
                        ; In:H=Page,L= 
                        ; Out:A= 
           WriteA       ;62    
                        ; In:H=Page,L= 
                        ;    A=  
           CloseZ       ;63    
                        ;     
           CloseZA      ;64     ""
           FreeNum      ;65    
                        ;    0 .
                        ;  Out:A=Number  Carry=1
           FreeN_       ;66   "" 
                        ;     
           MemPage      ;67   ""  
                        ;   
           OpenWin_     ;68   "AIX" 
                        ;     .
           CloseLib     ;69   ""
           SetInt       ;70  
                        ; In:AHL=Adres,C=
                        ; Out:CR=1    .
                        ;    A=
           ResInt       ;71  
                        ; In:A=
           Ver          ;72   AHL  
           Parametr     ;73   AHL  
                        ;   .
           OldSpr       ;74   
           NewSpr       ;75   
                        ; In:AHL- 
           CloseWAHL    ;76    
                        ;   AHL
           SetG		;77 ⠭ ࠡ稪  ᮡ⨩
			; In:AHL= ࠡ稪
			;   C= ᮡ
			; Out:A= ࠡ稪
	   ResG		;78  ࠡ稪  ᮡ⨩
			; In:A= ࠡ稪
	   RunG		;79 । 쭮 ᮡ⨥ ࠡ稪
			; In:A=ᮡ⨥
			;    BC=ࠬ
	   IntYX	;80 뤠 ᮫ न 
			;    
			; Out:BC=YX
	   GMap		;81 뤠    
			; In:BC न  ࠭
			; Out:A  
	   GPut		;82 ᮢ  ࠭  ,  ண
			;   ⠫ .
			; In:ly,ix  ⥫ 
			;    BC न  
			;    DE Hgt,Len  
	   GPutW	;83 ᮢ  ࠭  ,  ᮢ뢠
			;   ⠫ .
			; In:ly,ix  ⥫ 
	   NewFun	;84  ࠡ稪 ⥬ 㭪樨
			; In:AHL=new adres
			;    C=number function
	    OldFun	;85 뤠  ࠡ稪 㭪樨
	 		; In:C=number function
	 		; Out:AHL=adres
	    StackA	;86  ஢    ⥪.
	    OffWAHL     ;87 ⠭  롮 .
	 		; In:AHL= ⥫ .
	    PutSprite	;88 뢮 ࠩ  
	 		; In:AHL  ࠩ (᭠砫 ਡ)
	 		;    BC(y,x),DE(Hgt,Len)
	   PushWAHL	;89 ᢥ  AHL, 㤠   
			;   ⥪  ⠭ ன  ⨫ 
	   PopWAHL	;90 ࠧ ᢥ⮥ 楤ன 89 ,
			;   ⨢   設 ⥪  ᨢ
			;   ன  ⨫ .
	   SetMonitor   ;91 ⠭ ࠡ稪 窨
			;   室 #5B30 (ᯮ ⫠稪)
			; In:AHL =  ࠡ稪
