This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
|
-
Entry name:TwoGun Object Code Maker
-
Category:Object code makers
-
Publisher/Developer:ANALOG Computing
-
Year:1985
Listing 1
10 REM *** TWOGUN *** 20 TRAP 20:? "MAKE CASSETTE (0), OR DISK (1)";:INPUT DSK:IF DSK>1 THEN 20 30 TRAP 40000:DATA 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15 40 DIM DAT$(91),HEX(22):FOR X=0 TO 22:READ N:HEX(X)=N:NEXT X:LINE=990:RESTORE 1000:TRAP 120:? "CHECKING DATA" 50 LINE=LINE+10:? "LINE:";LINE:READ DAT$:IF LEN(DAT$)<>90 THEN 220 60 DATLIN=PEEK(183)+PEEK(184)*256:IF DATLIN<>LINE THEN ? "LINE ";LINE;" MISSING!":END 70 FOR X=1 TO 89 STEP 2:D1=ASC(DAT$(X,X))-48:D2=ASC(DAT$(X+1,X+1))-48:BYTE=HEX(D1)*16+HEX(D2) 80 IF PASS=2 THEN PUT #1,BYTE:NEXT X:READ CHKSUM:GOTO 50 90 TOTAL=TOTAL+BYTE:IF TOTAL>999 THEN TOTAL=TOTAL-1000 100 NEXT X:READ CHKSUM:IF TOTAL=CHKSUM THEN 50 110 GOTO 220 120 IF PEEK(195)<>6 THEN 220 130 IF PASS=0 THEN 170 140 IF NOT DSK THEN 160 150 PUT #1,224:PUT #1,2:PUT #1,225:PUT #1,2:PUT #1,0:PUT #1,32:CLOSE #1:END 160 FOR X=1 TO 97:PUT #1,0:NEXT X:CLOSE #1:END 170 IF NOT DSK THEN 200 180 ? "INSERT DISK WITH DOS, PRESS RETURN";:DIM IN$(1):INPUT IN$:OPEN #1,8,0,"D:AUTORUN.SYS" 190 PUT #1,255:PUT #1,255:PUT #1,0:PUT #1,32:PUT #1,246:PUT #1,40:GOTO 210 200 ? "READY CASSETTE AND PRESS RETURN";:OPEN #1,8,128,"C:":RESTORE 230:FOR X=1 TO 40:READ N:PUT #1,N:NEXT X 210 ? :? "WRITING FILE":PASS=2:LINE=990:RESTORE 1000:TRAP 120:GOTO 50 220 ? "BAD DATA: LINE ";LINE:END 230 DATA 0,19,216,31,255,31,169,0,141,47,2,169,60,141,2,211,169,0,141,231,2,133,14,169,56,141,232,2 240 DATA 133,15,169,0,133,10,169,32,133,11,24,96 1000 DATA 2065E420E92220DE22A9D38D3002A9288D3102A92E8D2F02A9388D07D4A9038D1DD0A9008D0CD0A9188D6F02A9,606 1010 DATA 008D08D2A9068DC602A9AA8DC702A200BD00E09D0030BD00E19D0031E8D0F1A9308DF402A248BDCB279D0830CA,927 1020 DATA 10F7A900A27F9580CA10FBA2079D00D0CA10FAA9008583A223A000A906205CE4A212BD8C26BC9F26990038CA10,72 1030 DATA F4A20FA058BD832899003A8899003A88CA10F2A207A058BDD32799803A99813A99823A99833ABDDB2799003B99,285 1040 DATA 013B99023B99033B88888888CA10DBA9038D08D08D09D08D0AD0A9368DC002A9C28DC102A9068DC202A9788D00,200 1050 DATA D0A9A88D01D0A9488D02D0A94A8D2327A9018D6D27A9018589A220ADC40248ADC5028DC402688DC502A9108585,287 1060 DATA A585D0FCCAD0E720E922A9078581A9008583A2079D00D2CA10FAAD0AD20901858EA9008D08D08D09D085908594,980 1070 DATA 8D1527858B858A85918592A9028D00D2A9AA8D03D2A9FF858685878588A213BD78269DDC38CA10F7A681A51409,639 1080 DATA 079DC002E002B00729F0090A9DC402AD1FD02901D0E720E92220DE22AD1FD02901F0F9A9F28DC802A9BA8DC702,935 1090 DATA A201A91A9DC002BDC72709049DC402BDC92795AA95AEA93095AC95B0A90095A4959A95A295BE95A695A8A90395,761 1100 DATA 9CCA10D18D1ED0A9018583A9008584858AA580F0FCA584F0034C1C21A9008580A201B5AC18691E9596BDC72709,164 1110 DATA 069598A590F012B5A4F004A9049598B59CC902B004A9CA9598CA10D9A201AD0BD48D0AD4D596D00748B5989D12,8 1120 DATA D068CA10F2C97090E6A201BD04D03DC02648D5A0F0129010B59AD00CB5A2D008A92D95A4A91085886895A0BD04,886 1130 DATA D02908F022A9108588A482BDB8269914388D1ED0AD0AD22903090118759C959CAD0AD20940858EA58ED00EAD0A,686 1140 DATA D2D02EA482A900991438F0E7C68ED02120B022F011293FC902F00BC982F0F1A900991438F0EA8482A9C1991438,488 1150 DATA A9108588CA30034C27224CD321AD0AD2C9C8B0F9A8B91438600A0A858D0A0A18658D601875B84A4A4A20BC2285,18 1160 DATA 8DB5B61869014A4A4A18658DA860A2F0A9009DFF37CAD0FA60A27FA9009D80399D003A9D803A9D003B9D803BCA,318 1170 DATA 10EE60A9018580C685A589F03CCE6D27AD6D27D01AEE2327AD2327C94A9005A9018D2327AABD6D278D6D27A90A,284 1180 DATA 858CAE2327BD23278D06D2A5852901D00BC68CA58C300509A08D07D2A583D0034C7526C6911033A91F8591A592,144 1190 DATA 49108592A59049018590AD0AD20906CDC702F0F68DC702A5861012A5A425A5D00CA690BDE6268D00D2A908858B,465 1200 DATA A58BF00FC68BA58610F6A58B09808D01D2300BA5863007C686290F8D01D2A5873010C687A687BDF4268D03D2BD,880 1210 DATA E8268D02D2A5883010C688A6888A09408D05D2BDFD268D04D2AC1527D00AA58A1022A9018589D02BA9008589CE,45 1220 DATA 1C271013B91C278D1C27B915278D06D2A910858ACE1527A5852901D009C68AA58A09A08D07D2A201B59AF012A9,579 1230 DATA 019D08D0D69AD009A94095A2A9009D08D0B5A2F002D6A2B5A4F008D6A4D004A92095A2BCBC26A905858FB59C95,630 1240 DATA 9EB59EC904B00C186984990038A900959EF00CA988990038B59E38E904959EC8C68FD0DDBD0CD03DC026F00BB5,273 1250 DATA AE95AAB5B095AC4C7724B5AA95AEB5AC95B0BC7802B9C62695B21875AAC998B00C858DB5A815A4D004A58D95AA,582 1260 DATA B9D62695B41875ACC940B00C858DB5A815A4D004A58D95ACB5A8F042BD8402F03DB5B215B4D006854D95A8F031,630 1270 DATA B59CF0F6B59A15A4D027D69CA90195A6A90095A8A9188586B5AA18690395B6B5AC95B8B5B20A0A95BAB5B40A95,755 1280 DATA BC4CFD24BD8402D008B5A6D004A90195A8BD08D03DC026F06BA90095A6A90F20C622A989990038BCBE26B99A00,138 1290 DATA F006A9A095A4D04FA9008D1C27A9068D1527A9B0999A00A9A899A400F8B5BE186901D895BE48BCBA26290F1DB6,427 1300 DATA 26990038684A4A4A4A1DB62699FF37290FC90190158681BCBE26A90099C002A9008583A90185844C6726B5AA18,864 1310 DATA 69309D00D08A48BDB2268595BDB4268594A9B08593B5A4D01BA5928593B5A8F013BD7802C90FF00CB59CF008BC,923 1320 DATA 7802B9B7278593B5AC186928A8B59AF004A9A08593A59318690FAABD1328919488CAE49310F568AAB5A6D017B5,784 1330 DATA B818691FA8B980393DC426998039A9009D04D04C6126BD00D03DC026F011A90720C622A983991438A91085884C,492 1340 DATA 5B26BD00D02904F01DA90A8587AD0AD2290FA8B9C62619D626F0F2B9C6260A95BAB9D62695BCB5B61875BAC99E,165 1350 DATA B03295B61869309D04D0B5B818691FA8B980393DC426998039B5B81875BCC950B01295B818691FA8B980391DC2,387 1360 DATA 269980394C6126A90095A695A8CA30034C06248D1ED0AD1FD02901D004A90185844CD1E7B0B2A5B3B300F3F4E1,731 1370 DATA F2F400B4AF00A2A5A7A9AE34772F67356E6279636F6E7261647461746765293D5165798D3F4042434445464749,433 1380 DATA 4A4B4C4D3A3A0080105002420113020D01000201030CFCF3000000000001010100FFFFFF000000000000000000,460 1390 DATA 01FF000001FF000001FF000A102818100C0A09080A0F161040ACADAEAFADAAA6A2A00A0B0A090B0A0807090C0D,135 1400 DATA 0A0605080A0F100F0A06070A0A0051607960797900400810400810006C6C5148405155603C3C3C3C3C35515151,366 1410 DATA 5551486C6C5148405155603C3C3C3C3C40485155514851353C40484048515151515551486C6C5148405155603C,837 1420 DATA 3C3C3C3C4048515551485100101010102008081808102008081808101010104010101010200808180810200808,189 1430 DATA 180810180810403018081030101808101010104010101010200808180810200808180810101010800000000000,101 1440 DATA 2030400050607000809000703010880041CF7FF0F8E000181B1BDBDFD8F8180000307C72FEFF1F000000FF00FF,572 1450 DATA 0000008080FF80FF800000A0A0FFA0FFA00000A8A8FFA8FFA80000AAAAFFAAFFAA0000183C18183C7E7E00287C,724 1460 DATA 547C387CBABABA792828680C0000143E2A3E1C3E5D5D5D9E141416300004147C68743878BCBAB9782828282C60,293 1470 DATA 04147C69763C78B8B8B8782828282C6004147C6874387FB8B8B8782828282C6020283E162E1C1E3D5D9D1E1414,900 1480 DATA 14340620283E966E3C1E1D1D1D1E141414340620283E162E1CFE1D1D1D1E141414340604147C6874387EBABABA,524 1490 DATA 7A2828282C6020287E566E5C7E1D1D1D1E141414340600000000000000000000103BBBFF000000143E2A3E1C3E,546 1500 DATA 5D5D5D5D1414143600707070470038070707070707070707070741D32800000000000000000000000000000000,888
Listing downloads
Copyright holder