100 ! MULTASK   (c) LID@N DATA,   Se {ven MTASK
101 ! 
102 ! - Utvecklat
103 ! - av:  LID@N DATA
104 ! -
105 ! - Projekt:     Multitask-handler
106 ! - Konstrukt|r: Mikael Lid`n
107 ! - Vers:        1.2
108 ! - P}b|rjat:    860301
109 ! - [ndring:     860328
110 ! 
111 ! 
1000 INTEGER : EXTEND
1010 DIM R(99)
1020 ! 
1030 DEF FNInit
1040   POKE 64000,42,214,255,34,Tidslut,SWAP%(Tidslut),33,Tidel
1050   POKE 64008,SWAP%(Tidel),34,214,255,62,195,50,157
1060   POKE 64016,255,33,Exec,SWAP%(Exec),34,158,255,17
1070   POKE 64024,Dat+8,SWAP%(Dat+8),33,Dat+7,SWAP%(Dat+7),1,120,0
1080   POKE 64032,237,176,201
1090   Z=CALL(64000)
1100   RETURN 0
1110 FNEND 
1120 ! *
1130 ! 
1140 ! Assemblerkod Multitask-handler
1150 ! 
1160 DEF FNMultasm(A,Bdel)
1170   Adr=A
1180   ! 
1190   ! DATA del
1200   ! 
1210   POKE A,0,0,32,Bdel,0,0,0,0
1220   POKE A+128,0,255,0
1230   Dat=A : Adr=A+131
1240   ! 
1250   ! R{kna ut adress i proclista
1260   ! 
1270   POKE Adr,33,Dat+2,SWAP%(Dat+2),197,6,0,79,203,33
1280   POKE Adr+9,203,33,203,33,9,126,193,201
1290   Padr=Adr : Adr=Adr+17
1300   ! 
1310   ! RST - rutiner
1320   ! 
1330   POKE Adr,126,205,Padr,SWAP%(Padr),175,119,24,254
1340   R(0)=Adr : Adr=Adr+8
1350   ! 
1360   POKE Adr,120,205,Padr,SWAP%(Padr),175,119,201
1370   R(1)=Adr : Adr=Adr+7
1380   ! 
1390   POKE Adr,14,255,12,175,203,97,192,121
1400   POKE Adr+8,205,Padr,SWAP%(Padr),183,32,244,203,230
1410   POKE Adr+16,35,4,112,35,115,35,114,121,60,201,14,14,24,228
1420   R(2)=Adr : R(3)=Adr+26 : Adr=Adr+30
1430   ! 
1440   POKE Adr,126,205,Padr,SWAP%(Padr),203,111,200
1450   POKE Adr+7,203,174,203,246,203,110,192,24,251,120,205
1460   R(4)=Adr : Adr=Adr+18
1470   ! 
1480   POKE Adr,120,205,Padr,SWAP%(Padr)
1490   POKE Adr+4,203,111,200,203,174,203,246,201
1500   R(5)=Adr : Adr=Adr+12
1510   ! 
1520   POKE Adr,120,205,Padr,SWAP%(Padr),203,119
1530   POKE Adr+6,200,203,182,203,238,201
1540   R(6)=Adr : Adr=Adr+12
1550   ! 
1560   POKE Adr,126,79,205,Padr,SWAP%(Padr),71,121,60,201
1570   R(7)=Adr : Adr=Adr+9
1580   ! 
1590   POKE Adr,35,35,203,198,201
1600   R(8)=Adr : Adr=Adr+5
1610   ! 
1620   POKE Adr,35,35,203,134,201
1630   R(9)=Adr : Adr=Adr+5
1640   ! 
1650   POKE Adr,126,205,Padr,SWAP%(Padr),203,230,203,174,24,254
1660   R(10)=Adr : Adr=Adr+10
1670   ! 
1680   POKE Adr,33,Dat,SWAP%(Dat),201
1690   R(11)=Adr : Adr=Adr+4
1700   ! 
1710   Rstant=12
1720   ! 
1730   ! Adress tabell RST 30H funktioner
1740   ! 
1750   WHILE J<Rstant
1760     POKE Adr+J*2,R(J),SWAP%(R(J))
1770     J=J+1
1780   WEND 
1790   Tabadr=Adr : Adr=Adr+Rstant*2
1800   ! 
1810   ! RST 30H anrops rutin
1820   ! 
1830   POKE Adr,235,197,6,0,79
1840   POKE Adr+5,203,33,33,Tabadr,SWAP%(Tabadr),9,126,35
1850   POKE Adr+13,102,111,193,229,33,Dat+128,SWAP%(Dat+128),5
1860   POKE Adr+21,201
1870   Exec=Adr : Adr=Adr+22
1880   ! 
1890   ! Tids delaren
1900   ! 
1910   POKE Adr,227,245,124,230,240,254,96,32
1920   POKE Adr+8,4,241,227,24,119,241,227,245
1930   POKE Adr+16,229,33,Dat+130,SWAP%(Dat+130),203,70,43,32
1940   POKE Adr+24,14,58,245,255,183,32,5,35,203,206,24,7,53,40,4,225
1950   POKE Adr+40,241,24,89,197,213,217,8,245,197,213,229,221,229,253,229,17
1960   POKE Adr+56,Dat+128,SWAP%(Dat+128),26,6,0,237,115,Dat
1970   POKE Adr+64,SWAP%(Dat),33,Dat+130,SWAP%(Dat+130),203,78,40,4
1980   POKE Adr+72,62,14,203,142,60,254,16,32,1,175,33,Dat,SWAP%(Dat),79,203,33
1990   POKE Adr+88,203,33,203,33,9,18,34,Adr+63
2000   POKE Adr+96,SWAP%(Adr+63),34,Adr+116,SWAP%(Adr+116),35,35,203,102
2010   POKE Adr+104,32,29,203,110,40,222,35,19,126,18,237,123,0,0,253,225
2020   POKE Adr+120,221,225,225,209,193,241,8,217,209,193,225,241,195,0,0,254
2030   Tidslut=Adr+133
2040   POKE Adr+136,15,32,6,58,245,255,183,32,192,203,166,203,238,35,35,78
2050   POKE Adr+152,35,70,62,2,19,18,197,24,227
2060   Tidel=Adr : Adr=Adr+161
2070   RETURN 0
2080 FNEND 
2090 ! 
2100 ! 
2110 A=PEEK2(65302)-480 : POKE 65302,A,SWAP%(A) : POKE 65294,A-630,SWAP%(A-630)
2120 Z=FNMultasm(A+1,50)
2130 Z=FNInit
2140 CHAIN 'nul:'