1 'TOSA.100 by Jim Maynard (c) 1986, creates the OS for A&J Micro Drive 10 CLS:CLEAR50,56344:X=99:AA=56344 11 DEFINTI-N:H$="0123456789ABCDEF" 12 PRINT@59,"Data line" 13 PRINT@99,"File address" 14 READA$:X=X+1:PRINT@72,X 15 B$=MID$(A$,1,2):GOSUB25:N=K 16 IFK=0THENSAVEM"TOSA",56344,60544,56344:END 17 B$=MID$(A$,3,2):GOSUB25:L=K 18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0 19 FORI=1TON 20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25 21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K 22 NEXTI 23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END 24 GOTO14 25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28 26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28 27 K=(K1-1)*16+K2-1:RETURN 28 BEEP:PRINT@165,"Non HEX Character in DATA":END 100 DATA 388A24F3C34ADC76DD53DFCDDDA8DE4DDF42E4B1DF1DE027DFCCDC4BDD81E481E4F8E481E481E4C6E484E40CE0D8E00000DBEA76EB21DAFA0126DC 101 DATA 383C20CD9BDC21F0FACD9BDC2323CD9BDC2100FBCD9BDC2106FBCD9BDC210AFBCD9BDC1E092128FBD5CD9BDCD11DC275DC216EE422F7F5AF321DEB 102 DATA 38351E32BDEF32E4F13274ED3EC332F6F5CD1CDDFBC90A7723030A772303C9F321DAFA1E1D01C8DCCD9BDC1DC2AADC1E1301CADCCD9BDC1DC2B6DC 103 DATA 38E4223EC9CD93DCC30205F37FDB08FE01C2FADC2B2B7E2323CDE90FFE41CAEBDCFE42CAEBDCFE58C2FADCC3FBDCF5D641473A44EBB8DADB08F1C1 104 DATA 385C21C1B7C97ECDE90F77FE4ACA16DDFE56CA26DDFE44CAA4DCCF46CF3AC3D1E5CD1CDDC30205CD224221DBEACD9157C921FCEACD91573A45EBCD 105 DATA 389B1B44DD2107EBCD585A3A46EBCD44DDCD2242C302056FAF67CDD439C92276EBE12278EB2A76EBE5D5F5110400197EFE41C268DD111CDCC33A51 106 DATA 38B01EF1D1E12276EB2A78EBE52A76EBC9E5D5E501060009AF777BFE01CAABDDFE02C24604CDBBE23E00CD5EE7CDCEE0FE00C2DB083602FB3E01CD 107 DATA 38252063DED1EB23732372C3A2163E00CDB2E7C25750FBCDCEE0FE00C2DB083601CD83DECD73DED1EB23732372C3A216F1F5CD3917C249DEE5E5C1 108 DATA 38CA1E11F7FF19227AEBCD7DDE227CEBE5CD91DE112601C2F2DD112600E1E5F519C5D1010001CD2CE8F1E1CA48DECD83DECD53DE47234E2BCD7EE8 109 DATA 38FA22F578CD73DECD83DE47CDC7E9CD4CE2FBF1CA3BDE23462BE5CD2CE9CD8AE9E1CD0EE82A7AEB3600FBC3173FCD69DECD8ADECD5DDE3CCD63DE 110 DATA 388E1CE1C3EA142100002252F6C9E5D51115001977D1E1C9D5E52BC36BDED5E52BC375DED5E5112500197EE1D1C9D5E51125001977E1D1C9237E23 111 DATA 38361B666FC9E52323237EE1C9E523232377E1C9E523237E2F772FB7E1C9E523232323237E2F772FB7E1C9E5D1EBCD7DDE23232323227EEBCDC718 112 DATA 38F723EBCD4917C213DFE511F7FF19CD7DDECD91DEC204DFCD9BDEC26350CD9BDECD83DECDCEE1CC9BDECD69DECD8ADEE54711240019CDF2E9F5CD 113 DATA 38701C4CE2FBF1C29414E1CD9BDECD9BDE112600C307DF11260119EBE1E5010001CD2CE878E14F097EFE1A373FC28A4EE52A7EEB77E137C38A4EC1 114 DATA 38CE1CCD814CCA5A50FE01C2DB08E5CDBF184F9FCD0A34E1232323237EFE41C2A5182A7EEBC3BD182A7EEBC3CD177E3600FE01CAA5DFE5CD7DDE7E 115 DATA 38271F3600B7E1CAA5DFE5CD7DDE2323D1D5E521060019E53E1AE7D11AB7CA82DFD5C375DFE17EB7CA8DDFE5D5C375DF23462B2B4E2B3600CDD0E8 116 DATA 38302041CD2CE9CD8AE9FBE1AFC3594DE53600CD7DDEAF77E1C3594DFE41C0CDBBE22BD7CAE5DFCF2CCF41E53E02CD5EE7E5111300193600E1E5CD 117 DATA 38631A69E02A8CFC3602E136023E01CD63DEE12BD7C3154ECDF005EB2A7CF622CEFA7B956F7A9C672B7CB5CA010522D0FA21000022D2FA3E02CD5E 118 DATA 386F1EE7C316E1FE41C0CDBBE2CD46233E01CD5EE7C316E1FE41C0C1F1F5C22BE02BD7C246042BD73E00373FCA40E0CF2CCF52C24604F137F53E80 119 DATA 38F32032A7FCF53E02CDB2E7C25750CDCEE0FE02CA89E0FE00C2DB08E53601CD83DECD73DECD69E0E1C3A64DE5CDB84B2A83FC7E23666F228CFC36 120 DATA 38201C0123C1712370232336412323AF772377C9C1F1CA46049F3292FC2227F4CDFF202AD0FAE5E5C12A7CF6E5CD6D6BDA173F2AAEFB0922AEFBE1 121 DATA 38331ED122CEFAEB22D0FA2A27F4CD7BE1CDF005CD283F3A92FCA7C20408C30205E5D5111300197ED1E1C9FE41C0C1E5D7C246043E01CDB2E7C257 122 DATA 38CD2050CDCEE0FE01C2DB08E52AD2FA7CB5C209E1C1E1F1F5E5C5D209E1E13600C3DB08CD3125DA173FE1CD7BE1C31A25E52137E2CD4FDEE12280 123 DATA 387323EBCD15E2CD83DE47CDC7E9DBE0E681CA37E2CD06E2DA3BE1C35AE13AD0FA473AD1FAB0CA5AE1234E2BCD83DE47CD7FE8C2941478CD8ADEC3 124 DATA 38341E21E1E5CD4CE2E13600E5CD83DE1115001977E123462BCD2CE9CD8AE9CD4CDEFBC302052280EBE52129E2CD4FDEE13E003282EBCD83DECDCE 125 DATA 388720E1C299E13EFF3282EBCD83DE47E511240019CDF2E9E1C29414DBE0E681CA94143A82EBB7C2D8E1010002CDF4E1CD83DE47234E2BCDA3E878 126 DATA 389023CD8ADEC38BE1E5D511150019BED1E1C9E5CD4CE22AD0FAE5C1E1CDF4E1FB3600CD4CDEC9E511260019EBE1C9E5CDECE12ACEFACD2CE822CE 127 DATA 38BF22FACD06E2E1C9D5E52AD0FA1100FE1922D0FAE1D1C9E5CDECE12ACEFAEB010002CD2CE8EB22CEFAE1C92A80EB3600CD4CE2CDFF20C346E2CD 128 DATA 38A5214CE22A80EB23462BCD7AE9CD0EE8CD4CDEC39414F3CDAEE2CDAEE2CD5FE2CDA9E2CDAEE2CDAEE2E52188132B7DB4C263E23E67D3B2AF321D 129 DATA 38191FEBE1C9211EEBC393E22126EB0604C395E2211EEBC390E22124EBC390E2212AEBCD4CE206067EF3B7C4AEE2CCA9E22305C295E23EFF321DEB 130 DATA 38D626C93EC2C3B0E23E42D3B2E6BFD3B2F640D3B2C9F5F33E42D3B2DBB3E610FBCADB08F1C9F33EFFD3B13EC2D3B2DBE0E681C2E1E2CD4CE2C394 131 DATA 38D82214C9F3CD8DE23EC2D3B2CDCBE2DBB3E610C2EAE2CD14E4CD4CE2FBC9CDCBE206283E42D3B205CA36E3CD09E4CD09E4CD09E4CD09E4CD09E4 132 DATA 38171E003EC2D3B2CD09E4CD09E4CD09E4CD09E4CD09E400C301E3CD4CE2C394147E060800CD09E4174FDA68E3003EC2D3B2DBE0E681CA30E3DBB3 133 DATA 38791C2FE610C07BB2C83E42D3B27905C239E3231B06087EC33DE33E42D3B2DBE0E681CA30E3DBB32FE610C07BB2C83EC2D3B27905C239E3231B06 134 DATA 38A222087EC33DE3C5D5E5F3CDCBE2DBB3E6204FDBB3E620B9CA91E3E1D106C6CD20E40E01C3B9E3DBE0E681CA30E3CD09E40000DBB3E62047DBB3 135 DATA 38F31FE620B8CABEE317171779174FD2ADE3C1B8C28DE30E01E5E1C3E7E3DBE0E681CA30E3CD09E40000DBB3E62047DBB3E620B8CAECE317171779 136 DATA 389C1B174FD2DBE377231B0E017BB20000C2E7E3C90100000B78B1C20DE4C91120030601CDC572CDCBE2C9C5DBE0E681CA30E300DBB3E62047DBB3 137 DATA 387A1FE620B8CA2EE41717177917C1B84FC220E4C9C1CDD7082BD7E52AF4F5E5C12A67FBCA4041E1CF2CD5CD97122BD7C24604E3EB7CA7F2DB08D5 138 DATA 38C51F1119DCC32D41CD4CE2CD3DE721BDEFCD0EE821E4F1CD0EE8C9C34604FE41C0CDBBE2C13A99FCFE20CA4E503AA2FCFE20CA4E503E02CDB2E7 139 DATA 38B61DCADB08CD4C223E02CDB2E7C25750119CFCE5010A00090DCD2CE8E123462BCD2CE9CD8AE9FBC9FE41C0CDBBE2C1CDB2E7C2575023462BCD7A 140 DATA 38ED20E9CD8AE9FBC93E2FE7E50602CDE01BE12323C9CDE1E4CDDEE4CDDEE43E20E7C9C1CDA7EACD22422130EBCD9157CD04E72139EBCD585A216B 141 DATA 38C11EED0608CDE01BCD2242CD2242061CC5CD31E5C105F21EE5CD2242CDD6E6FBC30205C5CDE5E8C17EB7C23CE5C9C5E50606CDE01B3E2EE7E1E5 142 DATA 388F1A010600090603CDE01BCDCAE5E1E5010900097EFE00CA6FE5FE02CA6AE53E2EC371E53E23C371E53E2AE7CDCAE5E101120009CDEBE4C12161 143 DATA 38AD1EEC78010000BE23C28BE5040DC285E578373F1FF5FE64D2A8E5F53E20E7F1FE0AD2A8E5F53E20E7F126006FCDD439F1214AEBD2B8E52147EB 144 DATA 385D20CD585A2161EB0608CDE01BCD2242CD4DE7C93E20E73E20E7C9E5CDBBE2CDE2E2CD87E2CD3DE7E11161ED06087EFE00CAF6E5FE22CAF6E512 145 DATA 387217231305C2E4E52161EC0100FF70230DC2FCE5210EF4CD17E70605210EF41174ED7E12132305C210E63EC6320BF43EB7320CF4216BEDCD2F19 146 DATA 38221CF3CD0AE42185EB36C62336A923CD13EA0600C578320DF4210DF4CDB2EA210BF4110C00CDFCE2F501C800CD0DE4F1C271E62185EBE52323CD 147 DATA 38AA2213EAE1116602CDFCE2C271E6C104C33AE6CD81E2C178D603F5CD14E406FF04C52187EBCDF2E9C2D0E6C1F1F590C27EE6CD87E221B6ED1102 148 DATA 383D2002CD43E7DBB3E610C29CE6CD81E2F1F52163EC3600233DC2ABE6F1326AED010080F3CD0DE4CD8AE9CD14E4FB214DEBCD9157CDD6E6C30205 149 DATA 382A1BCD4CE2C394142161EC3E00010000BE23C2E4E6040DC2DEE678373F1FF526006FCDD439F1D2FDE62147EBCD585A2161EBCD585AC92161ED06 150 DATA 38B21808CDE01BC92115F4CD2F19CD0F19C9E5CD0DE72115F4D10E05CD2BE712130DC221E7C97E23D63017171717E6F0477ED630802323C92185EB 151 DATA 380D2111AA083600231B7AB3C243E7C9E5D5C5FBCDCB12018813CD0DE4C1D1E1C9CDA7EAF5CDDFE7CD44E9C272E7CD7AE9F1C361E7F1E511130019 152 DATA 38D51B77E1CD03E9CA86E7CD0EE8C3665023702BE5483A27F43CFE04D296E73E0547CD7FE8C2173FE1E51114001970E178CD8ADE23462BCD2CE936 153 DATA 38171F02C9CDA7EACDDFE7CD44E9C023702BE501160009EB21CEFA010600CD2CE8E1CDD7E7CD8ADEAFC9E5011400097EE1C9CD5DE821BDEF7EB7CA 154 DATA 38761CEDE721E4F17EB7C26650CD0EE81193FCCD1FE8CD37E8E50116000911CEFA010600CD2CE8E1C9C5E50125023600230B78B1C213E8E1C1C9E5 155 DATA 384815C5010A00090DCD2CE8C1E1C91A7723130B78B1C22CE8C9C5D5E52115F4CD2F192115F4EBE1E5011C000906031A7723131A7723131305C24C 156 DATA 381A1CE8E1D1C1C9E5F51199FC1AFE20C27BE8F1F547808006004F2111EB09EB010300CD2CE8F1E1C904D5E5591602044806002161ECC296E815C2 157 DATA 38A91E96E815C39FE8097E41B7C284E873AFE1D1C904D5E516025904C2B0E815CAC0E82161EC480600097EBB41C2A8E8E1D1C93EFFB7C3BDE80600 158 DATA 383421CDD0E804C2C8E8C9C5E5D52161EC7948060009BEC2E1E83600D1E1C1C9F578D608DAF6E8CAF6E84721A2EDC3F9E82171EB1118001905F2FC 159 DATA 384522E8F1C9061CE5D5C5CDE5E8C17EB7CA16E905C207E905D1E1C9C5D5E5CDE5E8061836002305C221E9E1D1C1C9C5D5E5CDE5E8EBE1E5010A00 160 DATA 38D41C09EB011800CD2CE8E1D1C1C9D5E5061CC5CDE5E8EBC1E1E5C5010A00090D1ABECA61E97EFE2AC272E913230DC256E9010F00CD2CE8C1AFC3 161 DATA 38EA2477E9C105F248E9E1D1C9D5E5C548CDC6E8C1C5CD19E9C1E1D1C9E5D5C52163EB0600CDC7E92194ED0601CDC7E9CD4CE2C1D1E1C9E5D5C506 162 DATA 383121002187EBCDF2E9C2BAE9060121B8EDCDF2E9F5CD4CE2FBF1C29414C1D1E1C9E5D5C511220019E536C62336A923CD13EACD2BEACD79E201F4 163 DATA 38F92001CD0DE4E1110D02CDFCE2CD73E2C1D1E1C91602D5C5E5CD2BEAE1E511030206A9CD8DE3E1E5CD13EAE1C1D1C815C2F4E915C9E5D5C51102 164 DATA 38921C023E0086471B7AB32378C21BEABE77C1D1E1C9C53A1DEBB7C244EACDCBE2CD81E2C501D8270B78B1C23DEAC12127F411070006B7CD8DE321 165 DATA 38552927F4CDB2EAC1C22BEA78B7CA67EACDC1EACA67EACDA4E978FEFFCAA6EA3A27F4B8C8E5D5C5DA83EACDE2E2F3CDCBE2CD81E2AF47F1F590FE 166 DATA 38852205DAA0EAF5CD8DE2F1F501803ECD0DE4F13DC291EACD73E2C1D1E1C32BEAC9F506FFCD2BEACD4CE2F1C9E506063E00862305C2B7EABE77E1 167 DATA 389816C9C5D5E51174ED2128F406051ABEC2D7EA231305C2CCEAE1D1C1C928432920434F505952494748542031393835204A494D204D41594E4152 168 DATA 388A08440D0A000D0A56455253494F4E20002052454C454153452000444F43434F4D42415354585400000001000100010001000100000000000100 169 DATA 38470E0D0A4E616D653A200020437265617465643A20000005012E35002E30000D0A466F726D617420636F6D706C6574650D0A00204B2D62797465 170 DATA 38F10B7320617661696C61626C650D0A0000FF00FF00FF00FF00FFBDEF00FF00000000000000000000000000000000000000000000000000000000 171 DATA 3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 172 DATA 3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 173 DATA 3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 174 DATA 3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 175 DATA 000000