1 'TOSD.100 by Jim Maynard (c) 1986, creates the OS for A&J Micro Drive 10 CLS:CLEAR50,52000:X=99:AA=52000 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"TOSD",52000,56200,52000: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 38B322F3C352CB7ECC5BCED5CCB0CD55CE4AD3B9CE25CF2FCED4CB53CC89D389D300D489D389D3CED38CD314CFE0CF0000E3D97EDA21DAFA012ECB 101 DATA 38E21FCDA3CB21F0FACDA3CB2323CDA3CB2100FBCDA3CB2106FBCDA3CB210AFBCDA3CB1E092128FBD5CDA3CBD11DC27DCB2176D322F7F5AF3225DA 102 DATA 38DB1D32C5DE32ECE0327CDC3EC332F6F5CD24CCFBC90A7723030A772303C9F321DAFA1E1D01D0CBCDA3CB1DC2B2CB1E1301D2CBCDA3CB1DC2BECB 103 DATA 38A81F3EC9CD9BCBC30205F37FDB08FE01C202CC2B2B7E2323CDE90FFE41CAF3CBFE42CAF3CBFE58C202CCC303CCF5D641473A4CDAB8DADB08F1C1 104 DATA 381520C1B7C97ECDE90F77FE4ACA1ECCFE56CA2ECCFE44CAACCBCF46CF3AC3D9D4CD24CCC30205CD224221E3D9CD9157C92104DACD91573A4DDACD 105 DATA 384A1B4CCC210FDACD585A3A4EDACD4CCCCD2242C302056FAF67CDD439C9227EDAE12280DA2A7EDAE5D5F5110400197EFE41C270CC1124CBC33A51 106 DATA 38711EF1D1E1227EDA2A80DAE52A7EDAC9E5D5E501060009AF777BFE01CAB3CCFE02C24604CDC3D13E00CD66D6CDD6CFFE00C2DB083602FB3E01CD 107 DATA 38EF1F6BCDD1EB23732372C3A2163E00CDBAD6C25750FBCDD6CFFE00C2DB083601CD8BCDCD7BCDD1EB23732372C3A216F1F5CD3917C251CDE5E5C1 108 DATA 38701E11F7FF192282DACD85CD2284DAE5CD99CD112601C2FACC112600E1E5F519C5D1010001CD34D7F1E1CA50CDCD8BCDCD5BCD47234E2BCD86D7 109 DATA 388522F578CD7BCDCD8BCD47CDCFD8CD54D1FBF1CA43CD23462BE5CD34D8CD92D8E1CD16D72A82DA3600FBC3173FCD71CDCD92CDCD65CD3CCD6BCD 110 DATA 387C1CE1C3EA142100002252F6C9E5D51115001977D1E1C9D5E52BC373CDD5E52BC37DCDD5E5112500197EE1D1C9D5E51125001977E1D1C9237E23 111 DATA 38241B666FC9E52323237EE1C9E523232377E1C9E523237E2F772FB7E1C9E523232323237E2F772FB7E1C9E5D1EBCD85CD232323232286DACDC718 112 DATA 388B23EBCD4917C21BCEE511F7FF19CD85CDCD99CDC20CCECDA3CDC26350CDA3CDCD8BCDCDD6D0CCA3CDCD71CDCD92CDE54711240019CDFAD8F5CD 113 DATA 383A1C54D1FBF1C29414E1CDA3CDCDA3CD112600C30FCE11260119EBE1E5010001CD34D778E14F097EFE1A373FC28A4EE52A86DA77E137C38A4EC1 114 DATA 38AA1CCD814CCA5A50FE01C2DB08E5CDBF184F9FCD0A34E1232323237EFE41C2A5182A86DAC3BD182A86DAC3CD177E3600FE01CAADCEE5CD85CD7E 115 DATA 38E81E3600B7E1CAADCEE5CD85CD2323D1D5E521060019E53E1AE7D11AB7CA8ACED5C37DCEE17EB7CA95CEE5D5C37DCE23462B2B4E2B3600CDD8D7 116 DATA 38FA1F41CD34D8CD92D8FBE1AFC3594DE53600CD85CDAF77E1C3594DFE41C0CDC3D12BD7CAEDCECF2CCF41E53E02CD66D6E5111300193600E1E5CD 117 DATA 38591A71CF2A8CFC3602E136023E01CD6BCDE12BD7C3154ECDF005EB2A7CF622CEFA7B956F7A9C672B7CB5CA010522D0FA21000022D2FA3E02CD66 118 DATA 38281ED6C31ED0FE41C0CDC3D1CD46233E01CD66D6C31ED0FE41C0C1F1F5C233CF2BD7C246042BD73E00373FCA48CFCF2CCF52C24604F137F53E80 119 DATA 38BD2032A7FCF53E02CDBAD6C25750CDD6CFFE02CA91CFFE00C2DB08E53601CD8BCDCD7BCDCD71CFE1C3A64DE5CDB84B2A83FC7E23666F228CFC36 120 DATA 38171C0123C1712370232336412323AF772377C9C1F1CA46049F3292FC222FE3CDFF202AD0FAE5E5C12A7CF6E5CD6D6BDA173F2AAEFB0922AEFBE1 121 DATA 38181ED122CEFAEB22D0FA2A2FE3CD83D0CDF005CD283F3A92FCA7C20408C30205E5D5111300197ED1E1C9FE41C0C1E5D7C246043E01CDBAD6C257 122 DATA 389F2050CDD6CFFE01C2DB08E52AD2FA7CB5C211D0C1E1F1F5E5C5D211D0E13600C3DB08CD3125DA173FE1CD83D0C31A25E5213FD1CD57CDE12288 123 DATA 38FF22DACD1DD1CD8BCD47CDCFD8DBE0E681CA3FD1CD0ED1DA43D0C362D03AD0FA473AD1FAB0CA62D0234E2BCD8BCD47CD87D7C2941478CD92CDC3 124 DATA 38D91D29D0E5CD54D1E13600E5CD8BCD1115001977E123462BCD34D8CD92D8CD54CDFBC302052288DAE52131D1CD57CDE13E00328ADACD8BCDCDD6 125 DATA 382520D0C2A1D03EFF328ADACD8BCD47E511240019CDFAD8E1C29414DBE0E681CA94143A8ADAB7C2E0D0010002CDFCD0CD8BCD47234E2BCDABD778 126 DATA 385123CD92CDC393D0E5D511150019BED1E1C9E5CD54D12AD0FAE5C1E1CDFCD0FB3600CD54CDC9E511260019EBE1C9E5CDF4D02ACEFACD34D722CE 127 DATA 388922FACD0ED1E1C9D5E52AD0FA1100FE1922D0FAE1D1C9E5CDF4D02ACEFAEB010002CD34D7EB22CEFAE1C92A88DA3600CD54D1CDFF20C34ED1CD 128 DATA 38412154D12A88DA23462BCD82D8CD16D7CD54CDC39414F3CDB6D1CDB6D1CD67D1CDB1D1CDB6D1CDB6D1E52188132B7DB4C26BD13E67D3B2AF3225 129 DATA 388A1EDAE1C92126DAC39BD1212EDA0604C39DD12126DAC398D1212CDAC398D12132DACD54D106067EF3B7C4B6D1CCB1D12305C29DD13EFF3225DA 130 DATA 38BB26C93EC2C3B8D13E42D3B2E6BFD3B2F640D3B2C9F5F33E42D3B2DBB3E610FBCADB08F1C9F33EFFD3B13EC2D3B2DBE0E681C2E9D1CD54D1C394 131 DATA 386C2214C9F3CD95D13EC2D3B2CDD3D1DBB3E610C2F2D1CD1CD3CD54D1FBC9CDD3D106283E42D3B205CA3ED2CD11D3CD11D3CD11D3CD11D3CD11D3 132 DATA 38BD1D003EC2D3B2CD11D3CD11D3CD11D3CD11D3CD11D300C309D2CD54D1C394147E060800CD11D3174FDA70D2003EC2D3B2DBE0E681CA38D2DBB3 133 DATA 38551C2FE610C07BB2C83E42D3B27905C241D2231B06087EC345D23E42D3B2DBE0E681CA38D2DBB32FE610C07BB2C83EC2D3B27905C241D2231B06 134 DATA 386322087EC345D2C5D5E5F3CDD3D1DBB3E6204FDBB3E620B9CA99D2E1D106C6CD28D30E01C3C1D2DBE0E681CA38D2CD11D30000DBB3E62047DBB3 135 DATA 38B41FE620B8CAC6D217171779174FD2B5D2C1B8C295D20E01E5E1C3EFD2DBE0E681CA38D2CD11D30000DBB3E62047DBB3E620B8CAF4D217171779 136 DATA 386F1B174FD2E3D277231B0E017BB20000C2EFD2C90100000B78B1C215D3C91120030601CDC572CDD3D1C9C5DBE0E681CA38D200DBB3E62047DBB3 137 DATA 38681FE620B8CA36D31717177917C1B84FC228D3C9C1CDD7082BD7E52AF4F5E5C12A67FBCA4041E1CF2CD5CD97122BD7C24604E3EB7CA7F2DB08D5 138 DATA 38741F1121CBC32D41CD54D1CD45D621C5DECD16D721ECE0CD16D7C9C34604FE41C0CDC3D1C13A99FCFE20CA4E503AA2FCFE20CA4E503E02CDBAD6 139 DATA 38881DCADB08CD4C223E02CDBAD6C25750119CFCE5010A00090DCD34D7E123462BCD34D8CD92D8FBC9FE41C0CDC3D1C1CDBAD6C2575023462BCD82 140 DATA 389C20D8CD92D8FBC93E2FE7E50602CDE01BE12323C9CDE9D3CDE6D3CDE6D33E20E7C9C1CDAFD9CD22422138DACD9157CD0CD62141DACD585A2173 141 DATA 38831EDC0608CDE01BCD2242CD2242061CC5CD39D4C105F226D4CD2242CDDED5FBC30205C5CDEDD7C17EB7C244D4C9C5E50606CDE01B3E2EE7E1E5 142 DATA 38581A010600090603CDE01BCDD2D4E1E5010900097EFE00CA77D4FE02CA72D43E2EC379D43E23C379D43E2AE7CDD2D4E101120009CDF3D3C12169 143 DATA 385D1EDB78010000BE23C293D4040DC28DD478373F1FF5FE64D2B0D4F53E20E7F1FE0AD2B0D4F53E20E7F126006FCDD439F12152DAD2C0D4214FDA 144 DATA 380C20CD585A2169DA0608CDE01BCD2242CD55D6C93E20E73E20E7C9E5CDC3D1CDEAD1CD8FD1CD45D6E11169DC06087EFE00CAFED4FE22CAFED412 145 DATA 381016231305C2ECD42169DB0100FF70230DC204D52116E3CD1FD606052116E3117CDC7E12132305C218D53EC63213E33EB73214E32173DCCD2F19 146 DATA 38C01AF3CD12D3218DDA36C62336A923CD1BD90600C5783215E32115E3CDBAD92113E3110C00CD04D2F501C800CD15D3F1C279D5218DDAE52323CD 147 DATA 383F211BD9E1116602CD04D2C279D5C104C342D5CD89D1C178D603F5CD1CD306FF04C5218FDACDFAD8C2D8D5C1F1F590C286D5CD8FD121BEDC1102 148 DATA 38DA1F02CD4BD6DBB3E610C2A4D5CD89D1F1F5216BDB3600233DC2B3D5F13272DC010080F3CD15D3CD92D8CD1CD3FB2155DACD9157CDDED5C30205 149 DATA 38E319CD54D1C394142169DB3E00010000BE23C2ECD5040DC2E6D578373F1FF526006FCDD439F1D205D6214FDACD585A2169DACD585AC92169DC06 150 DATA 387C1808CDE01BC9211DE3CD2F19CD0F19C9E5CD15D6211DE3D10E05CD33D612130DC229D6C97E23D63017171717E6F0477ED630802323C9218DDA 151 DATA 38C52011AA083600231B7AB3C24BD6C9E5D5C5FBCDCB12018813CD15D3C1D1E1C9CDAFD9F5CDE7D6CD4CD8C27AD6CD82D8F1C369D6F1E511130019 152 DATA 388D1B77E1CD0BD8CA8ED6CD16D7C3665023702BE5483A2FE33CFE04D29ED63E0547CD87D7C2173FE1E51114001970E178CD92CD23462BCD34D836 153 DATA 38CF1E02C9CDAFD9CDE7D6CD4CD8C023702BE501160009EB21CEFA010600CD34D7E1CDDFD6CD92CDAFC9E5011400097EE1C9CD65D721C5DE7EB7CA 154 DATA 38371CF5D621ECE07EB7C26650CD16D71193FCCD27D7CD3FD7E50116000911CEFA010600CD34D7E1C9C5E50125023600230B78B1C21BD7E1C1C9E5 155 DATA 382C15C5010A00090DCD34D7C1E1C91A7723130B78B1C234D7C9C5D5E5211DE3CD2F19211DE3EBE1E5011C000906031A7723131A7723131305C254 156 DATA 38DC1BD7E1D1C1C9E5F51199FC1AFE20C283D7F1F547808006004F2119DA09EB010300CD34D7F1E1C904D5E5591602044806002169DBC29ED715C2 157 DATA 38611E9ED715C3A7D7097E41B7C28CD773AFE1D1C904D5E516025904C2B8D715CAC8D72169DB480600097EBB41C2B0D7E1D1C93EFFB7C3C5D70600 158 DATA 38EC1ECDD8D704C2D0D7C9C5E5D52169DB7948060009BEC2E9D73600D1E1C1C9F578D608DAFED7CAFED74721AADCC301D82179DA1118001905F204 159 DATA 38FF21D8F1C9061CE5D5C5CDEDD7C17EB7CA1ED805C20FD805D1E1C9C5D5E5CDEDD7061836002305C229D8E1D1C1C9C5D5E5CDEDD7EBE1E5010A00 160 DATA 389E1C09EB011800CD34D7E1D1C1C9D5E5061CC5CDEDD7EBC1E1E5C5010A00090D1ABECA69D87EFE2AC27AD813230DC25ED8010F00CD34D7C1AFC3 161 DATA 3899247FD8C105F250D8E1D1C9D5E5C548CDCED7C1C5CD21D8C1E1D1C9E5D5C5216BDA0600CDCFD8219CDC0601CDCFD8CD54D1C1D1E1C9E5D5C506 162 DATA 38E02000218FDACDFAD8C2C2D8060121C0DCCDFAD8F5CD54D1FBF1C29414C1D1E1C9E5D5C511220019E536C62336A923CD1BD9CD33D9CD81D101F4 163 DATA 38BB1F01CD15D3E1110D02CD04D2CD7BD1C1D1E1C91602D5C5E5CD33D9E1E511030206A9CD95D2E1E5CD1BD9E1C1D1C815C2FCD815C9E5D5C51102 164 DATA 384A1C023E0086471B7AB32378C223D9BE77C1D1E1C9C53A25DAB7C24CD9CDD3D1CD89D1C501D8270B78B1C245D9C1212FE311070006B7CD95D221 165 DATA 38E0282FE3CDBAD9C1C233D978B7CA6FD9CDC9D9CA6FD9CDACD878FEFFCAAED93A2FE3B8C8E5D5C5DA8BD9CDEAD1F3CDD3D1CD89D1AF47F1F590FE 166 DATA 38342205DAA8D9F5CD95D1F1F501803ECD15D3F13DC299D9CD7BD1C1D1E1C333D9C9F506FFCD33D9CD54D1F1C9E506063E00862305C2BFD9BE77E1 167 DATA 387416C9C5D5E5117CDC2130E306051ABEC2DFD9231305C2D4D9E1D1C1C928432920434F505952494748542031393835204A494D204D41594E4152 168 DATA 388A08440D0A000D0A56455253494F4E20002052454C454153452000444F43434F4D42415354585400000001000100010001000100000000000100 169 DATA 38470E0D0A4E616D653A200020437265617465643A20000005012E35002E30000D0A466F726D617420636F6D706C6574650D0A00204B2D62797465 170 DATA 38271C7320617661696C61626C650D0A00F8DA0E01C391DADBE0E681CA08DACDE1DA0000DBB3E62047DBB3E620B8CA96DA17171779174FD285DAC1 171 DATA 38C41DB8C265DA0E01E5E1C3BFDADBE0E681CA08DACDE1DA0000DBB3E62047DBB3E620B8CAC4DA17171779174FD2B3DA77231B0E017BB20000C2BF 172 DATA 382F1DDAC90100000B78B1C2E5DAC91120030601CDC572CDA3D9C9C5DBE0E681CA08DA00DBB3E62047DBB3E620B8CA06DB1717177917C1B84FC2F8 173 DATA 384F21DAC9C1CDD7082BD7E52AF4F5E5C12A67FBCA4041E1CF2CD5CD97122BD7C24604E3EB7CA7F2DB08D511F1D2C32D41CD24D9CD15DE2195E6CD 174 DATA 38841FE6DE21BCE8CDE6DEC9C34604FE41C0CD93D9C13A99FCFE20CA4E503AA2FCFE20CA4E503E02CD8ADECADB08CD4C223E02CD8ADEC25750119C 175 DATA 000000