;----------    DOS --------------
        ORG DAd,DPg
        JP FName        ;0  "Name"   
                        ;     "Name"
                        ;  NZ=File not found
        JP ND           ;1    A(0..3)
        JP LdF          ;2 . "Name"  Adr AHL
                        ;  NZ=Not found
        JP LdD          ;3 ..(DirBl)
        JP SvD          ;4 ..(DirBl)
        JP Load         ;5  .
                        ;  In:DE=Blk,HL=Adr,B=Len
        JP Save         ;6  .
                        ;  In:DE=Blk,HL=Adr,B=Len
        JP LdP          ;7    
                        ;     .
        JP Dos          ;8  #3D13  
                        ;  ,  .
                        ;    ""
        JP IOF          ;9   
                        ;   
        JP IOB          ;10   
                        ;   
        JP DskF
            ;11      .
               ;In:A= 
               ;CHL= 
        JP ForL
            ;12     
               ;In:A= ,B= 
        JP DskB
            ;13    . .
               ;In:A= .
               ;   CHL= 
        JP InpName      ;14  /   128
                        ;      .
                        ;In:CHL= 
        JP AddR         ;15  
                        ;     ,   
                        ;In:BCD= 
        JP LoadFM       ;16       
                        ;    
                        ; In:B= ,C= 
                        ; Out:AHL= ,B=  .
                        ;     Z=1, Out of memory 
                        ;       File not found
	jp NewFunD	;17 ⠭  ࠡ稪 㭪樨
			; In:AHL=new adres
			;   C=function number
	jp OldFunD	;18 뤠  ࠡ稪 㭪樨
			; In:C=function number
			; Out:AHL=adres

;-----------------------------------------
        ORG FnA,Fun
        JP PDEC_3B      ;0
        JP PDEC_B       ;1
        JP PDEC_W       ;2
        JP PHEX_W       ;3
        JP PHEX_B       ;4
        JP PBIN_W       ;5
        JP PBIN_B       ;6

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