@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ TRNS COM UGIGBV1 BAK UGIGBNS1BAK DEMO1 COM A#$%&'()*+ -$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1. COPYRIGHT (C) 1978, DIGITAL RESEARCH, PIP VERS 1.4 $$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNT DEMO3 COM 6,-./012 DEMO4 COM 23456789 UGIGBV1 REL e:;<=>?@ABCDEF UGIGBNS1REL eGHIJKLMNOPQRS TYCRTUC1CONNULEOF DISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$AB RELOCPM PRN oTUVWXYZ[\]^_`a DEMO2 COM Abcdefghij DEMO5 COM 5klmnopq DEMO6 COM 5rstuvwx ORTED$BAD PARAMETER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID HELP TYP RELOCPM DOC z{|} RELOCPM HEX RELOCPM COM (INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE) FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE$$$$NOT FOUND$COPYING RELOCPM ASM DEMO3 ASM DEMO4 ASM DEMO7 COM (INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE) p+q* p+q* ^#V p+q!3 +6 ! s+p+q+ 6<:2 p+q* p+q* p+q* p+q* p+q* p+q* p+q* p+q* ^#V 3670A03206F3A6502B719 ;1803040141CA0A037D6C673A660802B7C9CDFA02C81100008019C9CD7D ;1803190180FA02C83EFF956F3E047F9C67C93A6702BB M740FA4D030A03C8 ;18032E0109672E00C360033A671002B7FA53030A0367102E003A6602E4 ;1903430120B7CA6003AF9467C3926003CDFA02C3600348CDF p+q: A02CA60030D ;1803590100AF956F3E009C677C01B73E00F02FC9CDC82002228002CD15 ;18036E0191E102228202C9CDC82402228402CDE10222808602C93 0O> !.MAIN.7F \03.PROG.0117CB.DATA.020000.BLNK.03000088 ;0302560180C2174B ;04025A01000100C0DE ;1802C50148C32A043A6702B7FA900F0<2 !EFF50 ;1903830144326702C92A7A0222926E022A7C02227002482A7E022272022A ;1803990122C92A6E02E52A700222E52A7202EBCD870320EB227E02E1D 6$33A6602B70A0340FADC02672EDE ;1802DA010400C9C680C3D8023A896702B7FA18033A660002B70A03FA03 ;1802EF0190F402C3D8022FC68040C3D8020A0Z p+q* r+s+p+q* i`N#F ;1803AE0144227C02E1227A02C90287EB210000CDC40340CDC4036C673A ;1803C30124C9CDC703CDCA0329018FD019CE00C92A742002227A022A42 ;180246 ;1805EF01248A327F02227D02C949CD8103CD1F06C379200ECD8103CD14 ;1806040192C802CD6003327C0249227A02CDE102CD602003327F0222E5 290D3B0DA8CB1163056305B0 ;19054501AA6305630563056305AA6305630563056305A863056305CF05BC ;18055B01AAB905240D260D63050400D13EFF322CD885F06AF326802E0 ;1907820110C9573A8A0282E60744328A02C9CDFA020908444DC9CD6703C2 ;19079801240BCD74032A860222928202C3210FCDE108D02422A5602444D214C0240224E02AF3242 ;180497018167020A03FE58D26510058721B1045F160000195E2356EB06 ;1804AC0145119504D5E96B056C55F1F327F08027C1F327E027D1F40327D02C9FE84 ;1806D8012409C2E4063AA6022F41326C02C9FE08C2F020063AA6023283 ;1806ED01886C02C9CD870357303D801927602227C022A780244227E02C92A7A02229074022A7C0299 ;1803ED01492276022A7E0222780002C9F5AF956F3E00009C67F1C9F56D ;18040201;19061901897D02C9CD8103CD252403CDD505CD3403CD88E605C9CD810387 ;18062F0149CD8703CD0306C346240DCD8103CD8703CD901F06C3460DC2 ;1805802C920C9CDD20EC98D ;1805700124AF3263023A6D0232846C02EEFF325E0232805F02C93E01A1 ;18058501493263023A6D02325E2102325F02EEFF326C248228202CDE102A9 ;1807AE0149228602CDC80222802402228402C3210F0A00032FC67F3C88 ;1807C30102676F572F5FCD010410676FCD0104572F5F40C057005830597059C5005B905B60551 ;1904C101AAC205C805CF05CC05AAFA05F70503060006A81F061C062F0666 ;1904D701AA2C063B0638064706AA4406A826802FEFF7ACC830740215707856FE1 ;19070201003E008C677EF51FD2821807210000CD600348CDD505C32F076E ;18071801241FD229072A8D021F49D02E5D57D2E002280022267228202622284022063228602CDA3 ;1904170181210FD1E1F1C93A671002B7FAFA020A0367082E00C922500267 ;19042D0108216440149CD8103CD8703CD032406CD9A03C3460DCD908103CD8703FA ;1806590149CD1F06C34D063A6C240232A602CDE4030A2003329802E6FE ;18066E0101002C9CDA811A2 ;18059A0110E1C9CDA8110A03B700C811AE2E1BE3E3E300E3E3E31514F9 ;1805AF0144C2A6053DC3A105CD928103CD6703CD740340C321D0104676F09 ;1807D80144CD0104C9CD8103CD89C802E5226E0222802002228402CD08 ;1907ED0192E10222710222820242CDC802E5E5CDE102482277022560653065F06A85F0772078E0739 ;1904ED01AA9507A507BD07DF07AA6E0ADC076B0AC108A8BE0891098E0977 ;19050301AAA40AA10ACC09C909AA63056320F07CDF703C30F20072A8B02C340 ;18072D01841F07F117D2400721120000CD6003CDE60540C3460D17D28E ;180742019151072A8D0217D2372407CDF700000D23804393744C3390439313C02CD884404F92A500210 ;1804430102C9E5F5C5D5CD5504106069225402D1C1F100E1C92100009C ;1804580149227A020F00F0F0F0FFE0BCA928B06CD95063A980200E60FFE0BCA4D ;18068301928B06CD9506C36806493AA602326C02CDD10003C9FE0CFA69 ;18069801889F06C0F3EFF0E ;1805C40142326602C9AFC3C40549CD8103CD6703C3B3100EEB2A7A0248 ;1905D9011119573A7C028A327C2102227A02C9EB2A7D080219573A7F2860262 ;1808030144CD210FE1228402229284022A710222860240CD210FE12251 ;180818019280022A770222820244CD210FE12284022A907702228602C0563059E0BA8FD0B6305630529 ;19051901AA580C630563056305AA6305630563056305A863056305630558 ;19052F01AA6305D10C6305180DAA1E0DD10E3C337072A908B02C3470791 ;1807570100014280622166844648CDFA02228B027CE6007F673EB5CD4B ;19076C0190B703228D02C9AF32848A023EFF32680227C02227E240222630222650222906A02225E028E ;18046D01082100182260023EC041325D0221FFFF226C000221001522DA ;18048201828B0221D90E220CDE403C9FE240AC2D7063A70022A906E02CDD50597 ;1906AD0108071F1F327C027C1F42327B027D1F327A02483A73022A7102CC ;1806C30141CDE6050713 ;18082D0149C3210FCD6703CD1D04047CB7C8F23F08CD90F70322AB02F3 ;190842014922AD022A8202229D24022A8002229A02C94822520211EA09FA ;A690112007FCD8103CD670349CD74033A8702327220023A83023254 ;180A7E01928702CD210F3A720208C680573A8302C68010BAC83A83029E ;190A930140222907102CD460DDC ;1809C101422A52022DF8C3970949CD8103CD6703CD1D200422AB02CD5A ;1809D601921D0422AD022A820249229D022A8002229A209CE00D157 ;190BFC0124C9CD860B229A027E04B71FB71FCA270CD288130CF5CD790EE9 ;180C120112F1F53A7C022A7A0249CDF40B327C02227A1002F1C30B40222B22402CD460D3AB702329070022AB50243 ;1809180149226E02CD9D08327C2402227A0232B7022290B502CD460D93 ;18092D01493ABA023273022A28102328502C320100BAF326A02BA ;180B520144CDD103C92A7B0226200011000029195623005E3E8082572E ;190B6701413A7E02C680BA3A7E2002D27601808580112197E2AAB02CDB6034922A7023A52022AAD2002CDB603223E ;19086D0189A902C92A9A02CD601003EB2AA70219CE0048327C02227A0233 ;19084D29D0A3C328302C3897A0A3DC3970ACD8108030A03CDE4030E ;190AA901213D329A023EFF326A2202CD030BC5CDC80248CD6003327002B7 ;180ABF0149202C3C4087F34 ;1809EB01007F7F7F7F7F7F7F7F007F7F7F7E7E7E7E7E007E7E7E7D7D94 ;180A0001007D7D7D7D7C7C7C7C007B7B7B7B7A7A7A790079797960C3A ;180C270148DA0E0C3A89023CFE2405CAD1033289023A907602327C0203 ;180C3C01492A7402227A023A7F24022A7D02CDF40B32907F02227D02E0 B82402227102CDB40832907F02227D02C1 ;180942014932BA0222B802CD46240D3AB1023270022A90AF02226E02B7 ;18095701493A7602327C022A742402B2B77233E0880835F3A7E0225 ;180B7D0104C680BBD83A7E027712C9AF328902CDE403000A03DE202625 ;180B920100006F545D2929191184E21519C9CD88301493276022274022A9D2202CD6003EB2AA9020819CE00327F0253 ;1808990144227D02C92A9A02EB492AA702CDF703CD60000319CE00EB02 ;1908AE0126E02CDE102CD602403327302227102CD90C802CD6003AC ;180AD40149327C02227A02CDE12402CD6003327F0222907D02CD460D6A ;180AE901443A9A0237878CB ;180A15010077777776767675750074747373727271710070706F6F6E57 ;180A2A01006E6D6D6C6B6B6A6900696867666665646300636261605F41 ;190C5101442A9A0223C3000CCD90860B229A027EB7CA889C0CF5F2850C3A ;180C670149CD790E3A7F022A7D2402CDF40B327F0222907D02CD790E4B ;18227A0232B1022290AF02CD460D12 ;18096C01412A52022DF8E53AB124023270022AAF0222906E023AB40207 ;18098101493273022AB20222711202E1C30060B22809A027EB7CAB6 ;180BA70191C60BF2B10BF5CD79090EF1573A7F022A7D2002CDF40B3209 ;190BBC01907F02227D027A87C390A50B3A89023CFE0540129EBD0C6FFC92A9D1202EB2AA902C3A40848CD8103CD300815 ;1808C40149CD6003327002226E240232B70222B5023290B10222AF023C ;1808D901482AD329A02FA92130BCAFC0ACD870340C3CE0AE1C57D ;180AFE0112444DC3F60A21000000AF11807F72237323203CC20A0BC972 ;180B130140CDD103C121008 ;180A3F01005E5D5D5C5B5A595800565554535251504E004D4C4A4947BE ;180A540100464443413F3E3C3A00383634312F2C2A270023201B161085 ;1800C7C01493A7F022A7D02C38E240C3A7F022A7D02CD90F40BCDF40BA5 ;180C910148327F02227D02F18748C35F0C3A89023CFE200ACAD10332C7 ;180CA60109CD810340CD3008217F05 ;190996012400CD5208CD700832927302227102CD9D0848327002226E02F9 ;1809AC0149CD460DCDB408327F2402227D0232738CAD103328902C2 ;180BD201493A7902327F022A772402227D023A7C022A907A02CDF40B37 ;180BE70149327C02227A022A9A100223C3A10BD51100000119D02CD6003F5EB412AAD0219CE00327320022271022A5E ;1808EE0190AD02CDF703F119CE24FF32BA0222B80221107F00CD52084F ;1809030149CD7008320229280022284023A8102006F260029111C ;180B2801840000197E32830223217E328702FE80CA3C200BCD210F3A7F ;180B3D01848102FE7FCA4E0B3C4939289023A7902327F02492A7702227D023A7C20022A7A02CDD8 ;190CBB0192F40B327C02227A02443A89021F2A9A02DA885B0C23C35B0C3C ;180CD101100AA5D02472A5E020216FFDB80B7FAF70E2057C3ED0EAF65 ;180EF8012082FAED0E2F570E1400E5E5E5E5E5E5E5E500E5E5E5E5E501 ;180F0D0104E5E5E505C0E2AD2 ;180E3A0189A002192296023A9220022A7B025F16001740D24E0E1519E4 ;180E4F0149227B02C39A0D2AA31202192296023A9402402A7E025F16553AC40E835F790FD2887F104FC358100E7F2023C35810CD85 ;1910860182B611C1C915CA0C10423AC40E835FDAAA1008790F0FD2A1109C ;18109C0112A14FF703C38F080D3EFF329402B8 ;180D8F014422A002EB2AA30219492296023A7C022A7A1002B7CAAC0DC5 ;190DA40112FEFFCAB30DC3FB0D2429DAFB0DC3B79179A ;180FC60100291729176CC6C06700C97FBFDFEFF7FBFD00FE3F3FCFCF5B ;180FDB0102F3F3FCFCEB22C50E20EBCD9B0F5014AF90101F5F3A6B02E3 0321F10C5F160021193A6302B77E326D2002CAE70CEEE0 ;180CE60124FF326C02325E0232805F02C9FFFFFFFFFF00FFFFFF0000CC ;180CFB010000000000A1B0F0D49C2000FC3ED0E2AC7000EF9C1C9C5F3 ;190F220148CDB6113A8102C68020673A83022FC680CD88900F6F3A8502F7 ;180F380108C680573A87022 ;180E6401100017D26A0E151922927E02C39A0D3A6A0210B7F8C3210FE0 ;180E7901422A7B027CB7CA870E10FEFFCA8D0EC9652920D8C3900E655E ;190C38A10CD4C11090E3F23C38A10CD4C20113AC50E8500 ;1810B101216F3AC60E8C673AC3010E835F790F0FD2A40010A1A9EEFF53 ;1810C601244FC38A10CD0D2948D2FB0D3A7F0215 ;190DBA01442A7D02B7CAC90DFE24FFCAD00DC3FB0D2948DAFB0DC3D40D51 ;180DD0012429D2FB0D3A6A02B749C4560B2A7A0222 ;190FF00111FE02F28A1015CA0C21103AC40E835FDA1B0810790FD21210B7 ;1810060109A14F15C2F90FCD4C2411C38510CD4C110E107F23C3F50FA2 ;180000FFFF00FFAAAAAA000000AA00FFFFAAFFFF95 ;180D100100FF55555500550000103EFF326502C9AFC3801A0D000003AC ;180D250104030303C9CDFA02FC62280CD900F5F3A6B0210FE02FA550FC1 ;120F4D01007AB71F577CB71F67107A94D25D0FEB7A94DC ;180F5D01214732C20E909032C3090E7B95DA7E0FCE8E011029D02A7E027CB7CA849E0EFEFFCAA40EC9086529D8C3A70E42 ;180EA401096529D02A7A02228024022A7D022282022A9080022284022D ;180EB904C111548CA85103AC50E856F403AC60E8C6719 ;1810DB01423AC20E835FD2CA10403AC40E835F790F0F40D2F2104FC337 ;1810F00182CA100E3F23C3CA108420022A7D0222DF ;190DE5019186023A6902B7FAFB120D2F326902228202482A7A0222800267 ;180DFB01442A7B02EB2A6F027C21BAC2300E7DBBC23020101B0148CD4C113AC50E856F423AC60E8C673AC30E00835F790FD2BF ;18103001801510A1A9EEFF4FC388F50FEB22C50EEBCD909B0F3AC40E4F ;191045010920EB2A4E02702B712B40224E02424B12 ;180D3A0120C92A4E02234E234642224E02C9AF326902402A7B02E5CD01 ;180D4F0188F703EB2A6F02197C2117AF800101120003239 ;180F720189C40E90DADF0FC23A2110CADF0F7D9332C4000E11E0FF903A ;180F870149DADF0FC23A10CADF000FB7005F1F3CB71F0021492A8202228602C321000F000000000000000000000000008C ;180ECE014058DC15C9C5210000203922C70E2E0026C020EB2A600219BF ;180EE30122F9342CD9B0F50143A6B0210FE02F228117F ;181105012115CA0C10790FD2130911A14FC30511CD4C00110E7F237A11 ;18111A0112C6F8CA0511D20511080E000E2A7E02EB2A ;180E1001422A72027CBAC2300E127DBBC2300E3A690220B7CA270ECD21 ;180E250188710EE1227E02E122887B02C92A96027CEB20B7FA55023C573D2F3C32C40E08371F5F3A6B02FE0248F2CA10CD4C11AE ;19105B012415CA85103AC50E85216F3AC60E8C673AC2080E835FD2581092 ;1810710140DA630D3E0132922002C36B0D3ECE ;180D640124FF329202CDF7032291A3022A7E02E5CDF71003EB2A72027F ;190D790108197C17DA8A0D3E0149329402CDF3C83C97D01 ;180F9C01106C673A6B02FE02FA80B10F7D876F3E07A510C608C3B40FB7 ;180FB101083E07A511CF0F835F40D2BD0F141A4FAF2900172917257C3131115CA800C10790F0FBE ;18112F0142D23711A14FC3281140CD4C110E3F237AC620FCCA2811D254 ;181144018228110E0057C337110479EEFF473A410100FC1202041CA2A2A4007EFE100808F0007A00804000004071 ;1817560100807A00FE402050880000027C8000F808300008F0F8100814 ;18176B0100282008244FE828283 ;1816990100827CFE92929282FE0012121202FC8282A200E2FE1010101C ;1816AE0100FE0082FE820040800080807EFE1028448200F3670A03206F3A6502B719 ;1803040141CA0A037D6C673A660802B7C9CDFA02C81100008019C9CD7D ;1803190180FA02C83EFF956F3E047F9C67C93A6702BFFFFF0000000000000000BE000000000E000E0022 ;1815F1010028FE28FE284854FE005424462610C8C46C0092AC40A000C9 ;1816060100000E000038448 6C02A0204722C70EE32D ;1811590102C5E5DB80B7FA9511443ACD0EB7C299113C4032CD0EE12217 ;18116E0189CB0EEB22C90EC378001177D1E17EA3B21C08F07088888870FE002422221C1C22221200FCF8100808ED ;18178001001090A8A8A848087E0088884078808040F80018608060187A ;1817950100788060E80808080EB ;1816C30100FE041804FEFE08100020FE7C8282827CFE001212120C7C84 ;1816D8010082A242BCFE123252008C4C92929264020200FE02027740FA4D030A03C8 ;18032E0109672E00C360033A671002B7FA53030A0367102E003A6602E4 ;1903430120B7CA6003AF9467C3926003CDFA02C3600348CDF20000000000824438442800FE28441010CB ;18161B01007C10100080600000001010101010000080000000402010FA ;181630010008047CA2928A7C00008 40C277112EFF07 ;1911830111E5E52ACB0EE52AC9040EEB3E5832CE0EC388A411AF32CD0E3F ;19119901443ACE0EB7CA5B113D4832CE0E2AC70EC9CD88B680788850200050881EA0A0907E8800C8A898880097 ;1817AA0100106C82000000EE00000000826C100020100010100854AAE6 ;0E17BF010054AA54470001E804D ;1816ED010080807E3E4080403E00FE403040FEC628100028C60608F054 ;18170201000806C2A2928A86FE00FE828282040810200040828282FE38 A02CA60030D ;1803590100AF956F3E009C677C01B73E00F02FC9CDC82002228002CD15 ;18036E0191E102228202C9CDC82402228402CDE10222808602C934FE8000C4A29292008C42828A9ADF ;181645010066302824FE204E8A008A8A7278949292620002E2120A0696 ;18165A01006C9292926C8C929200523C000 !.MAIN.7F \03.PROG.0117CB.DATA.020000.BLNK.03000088 ;0302560180C2174B ;04025A01000100C0DE ;1802C50148C32A043A6702B7FA900F011AF32CE0EC1 ;1811AF0148CD5B11CDB611C9E14022CB0E21000039EB402ACF0EF9EBBD ;1811C4014822CF0E2ACB0EE90A2203326B023DC2DE11103EFF3206000000454504ED ;00010000FF ;1817170100FE2010081020808000808080000204080000708888F080D5 ;18172C0100FE9088887070888800888870888890FE7000A8A8A8101070 ;1817EFF50 ;1903830144326702C92A7A0222926E022A7C02227002482A7E022272022A ;1803990122C92A6E02E52A700222E52A7202EBCD870320EB227E02E1D0280000000080680000108B ;18166F0100284482002828282800280082442810040200B20A047C82EA ;1816840100BAB29CF8242224F800FE9292926C7C833A6602B70A0340FADC02672EDE ;1802DA010400C9C680C3D8023A896702B7FA18033A660002B70A03FA03 ;1802EF0190F402C3D8022FC68040C3D8020A06C0236 ;1811D901113E3FC3F7113DC2E708113E2EC3F7113DC280F0113E3EC3AF ;0E11EE0184F7113EFF326C023E002FD380C900 ;1815DC0100FFFFFFF ;1803AE0144227C02E1227A02C90287EB210000CDC40340CDC4036C673A ;1803C30124C9CDC703CDCA0329018FD019CE00C92A742002227A022A42 ;180246 ;1805EF01248A327F02227D02C949CD8103CD1F06C379200ECD8103CD14 ;1806040192C802CD6003327C0249227A02CDE102CD602003327F0222E5 290D3B0DA8CB1163056305B0 ;19054501AA6305630563056305AA6305630563056305A863056305CF05BC ;18055B01AAB905240D260D63050400D13EFF322CD885F06AF326802E0 ;1907820110C9573A8A0282E60744328A02C9CDFA020908444DC9CD6703C2 ;19079801240BCD74032A860222928202C3210FCDE108D02422A5602444D214C0240224E02AF3242 ;180497018167020A03FE58D26510058721B1045F160000195E2356EB06 ;1804AC0145119504D5E96B056C55F1F327F08027C1F327E027D1F40327D02C9FE84 ;1806D8012409C2E4063AA6022F41326C02C9FE08C2F020063AA6023283 ;1806ED01886C02C9CD870357303D801927602227C022A780244227E02C92A7A02229074022A7C0299 ;1803ED01492276022A7E0222780002C9F5AF956F3E00009C67F1C9F56D ;18040201;19061901897D02C9CD8103CD252403CDD505CD3403CD88E605C9CD810387 ;18062F0149CD8703CD0306C346240DCD8103CD8703CD901F06C3460DC2 ;1805802C920C9CDD20EC98D ;1805700124AF3263023A6D0232846C02EEFF325E0232805F02C93E01A1 ;18058501493263023A6D02325E2102325F02EEFF326C248228202CDE102A9 ;1807AE0149228602CDC80222802402228402C3210F0A00032FC67F3C88 ;1807C30102676F572F5FCD010410676FCD0104572F5F40C057005830597059C5005B905B60551 ;1904C101AAC205C805CF05CC05AAFA05F70503060006A81F061C062F0666 ;1904D701AA2C063B0638064706AA4406A826802FEFF7ACC830740215707856FE1 ;19070201003E008C677EF51FD2821807210000CD600348CDD505C32F076E ;18071801241FD229072A8D021F49D02E5D57D2E002280022267228202622284022063228602CDA3 ;1904170181210FD1E1F1C93A671002B7FAFA020A0367082E00C922500267 ;19042D0108216440149CD8103CD8703CD032406CD9A03C3460DCD908103CD8703FA ;1806590149CD1F06C34D063A6C240232A602CDE4030A2003329802E6FE ;18066E0101002C9CDA811A2 ;18059A0110E1C9CDA8110A03B700C811AE2E1BE3E3E300E3E3E31514F9 ;1805AF0144C2A6053DC3A105CD928103CD6703CD740340C321D0104676F09 ;1807D80144CD0104C9CD8103CD89C802E5226E0222802002228402CD08 ;1907ED0192E10222710222820242CDC802E5E5CDE102482277022560653065F06A85F0772078E0739 ;1904ED01AA9507A507BD07DF07AA6E0ADC076B0AC108A8BE0891098E0977 ;19050301AAA40AA10ACC09C909AA63056320F07CDF703C30F20072A8B02C340 ;18072D01841F07F117D2400721120000CD6003CDE60540C3460D17D28E ;180742019151072A8D0217D2372407CDF700000D23804393744C3390439313C02CD884404F92A500210 ;1804430102C9E5F5C5D5CD5504106069225402D1C1F100E1C92100009C ;1804580149227A020F00F0F0F0FFE0BCA928B06CD95063A980200E60FFE0BCA4D ;18068301928B06CD9506C36806493AA602326C02CDD10003C9FE0CFA69 ;18069801889F06C0F3EFF0E ;1805C40142326602C9AFC3C40549CD8103CD6703C3B3100EEB2A7A0248 ;1905D9011119573A7C028A327C2102227A02C9EB2A7D080219573A7F2860262 ;1808030144CD210FE1228402229284022A710222860240CD210FE12251 ;180818019280022A770222820244CD210FE12284022A907702228602C0563059E0BA8FD0B6305630529 ;19051901AA580C630563056305AA6305630563056305A863056305630558 ;19052F01AA6305D10C6305180DAA1E0DD10E3C337072A908B02C3470791 ;1807570100014280622166844648CDFA02228B027CE6007F673EB5CD4B ;19076C0190B703228D02C9AF32848A023EFF32680227C02227E240222630222650222906A02225E028E ;18046D01082100182260023EC041325D0221FFFF226C000221001522DA ;18048201828B0221D90E220CDE403C9FE240AC2D7063A70022A906E02CDD50597 ;1906AD0108071F1F327C027C1F42327B027D1F327A02483A73022A7102CC ;1806C30141CDE6050713 ;18082D0149C3210FCD6703CD1D04047CB7C8F23F08CD90F70322AB02F3 ;190842014922AD022A8202229D24022A8002229A02C94822520211EA09FA ;A690112007FCD8103CD670349CD74033A8702327220023A83023254 ;180A7E01928702CD210F3A720208C680573A8302C68010BAC83A83029E ;190A930140222907102CD460DDC ;1809C101422A52022DF8C3970949CD8103CD6703CD1D200422AB02CD5A ;1809D601921D0422AD022A820249229D022A8002229A209CE00D157 ;190BFC0124C9CD860B229A027E04B71FB71FCA270CD288130CF5CD790EE9 ;180C120112F1F53A7C022A7A0249CDF40B327C02227A1002F1C30B40222B22402CD460D3AB702329070022AB50243 ;1809180149226E02CD9D08327C2402227A0232B7022290B502CD460D93 ;18092D01493ABA023273022A28102328502C320100BAF326A02BA ;180B520144CDD103C92A7B0226200011000029195623005E3E8082572E ;190B6701413A7E02C680BA3A7E2002D27601808580112197E2AAB02CDB6034922A7023A52022AAD2002CDB603223E ;19086D0189A902C92A9A02CD601003EB2AA70219CE0048327C02227A0233 ;19084D29D0A3C328302C3897A0A3DC3970ACD8108030A03CDE4030E ;190AA901213D329A023EFF326A2202CD030BC5CDC80248CD6003327002B7 ;180ABF0149202C3C4087F34 ;1809EB01007F7F7F7F7F7F7F7F007F7F7F7E7E7E7E7E007E7E7E7D7D94 ;180A0001007D7D7D7D7C7C7C7C007B7B7B7B7A7A7A790079797960C3A ;180C270148DA0E0C3A89023CFE2405CAD1033289023A907602327C0203 ;180C3C01492A7402227A023A7F24022A7D02CDF40B32907F02227D02E0 B82402227102CDB40832907F02227D02C1 ;180942014932BA0222B802CD46240D3AB1023270022A90AF02226E02B7 ;18095701493A7602327C022A742402B2B77233E0880835F3A7E0225 ;180B7D0104C680BBD83A7E027712C9AF328902CDE403000A03DE202625 ;180B920100006F545D2929191184E21519C9CD88301493276022274022A9D2202CD6003EB2AA9020819CE00327F0253 ;1808990144227D02C92A9A02EB492AA702CDF703CD60000319CE00EB02 ;1908AE0126E02CDE102CD602403327302227102CD90C802CD6003AC ;180AD40149327C02227A02CDE12402CD6003327F0222907D02CD460D6A ;180AE901443A9A0237878CB ;180A15010077777776767675750074747373727271710070706F6F6E57 ;180A2A01006E6D6D6C6B6B6A6900696867666665646300636261605F41 ;190C5101442A9A0223C3000CCD90860B229A027EB7CA889C0CF5F2850C3A ;180C670149CD790E3A7F022A7D2402CDF40B327F0222907D02CD790E4B ;18227A0232B1022290AF02CD460D12 ;18096C01412A52022DF8E53AB124023270022AAF0222906E023AB40207 ;18098101493273022AB20222711202E1C30060B22809A027EB7CAB6 ;180BA70191C60BF2B10BF5CD79090EF1573A7F022A7D2002CDF40B3209 ;190BBC01907F02227D027A87C390A50B3A89023CFE0540129EBD0C6FFC92A9D1202EB2AA902C3A40848CD8103CD300815 ;1808C40149CD6003327002226E240232B70222B5023290B10222AF023C ;1808D901482AD329A02FA92130BCAFC0ACD870340C3CE0AE1C57D ;180AFE0112444DC3F60A21000000AF11807F72237323203CC20A0BC972 ;180B130140CDD103C121008 ;180A3F01005E5D5D5C5B5A595800565554535251504E004D4C4A4947BE ;180A540100464443413F3E3C3A00383634312F2C2A270023201B161085 ;1800C7C01493A7F022A7D02C38E240C3A7F022A7D02CD90F40BCDF40BA5 ;180C910148327F02227D02F18748C35F0C3A89023CFE200ACAD10332C7 ;180CA60109CD810340CD3008217F05 ;190996012400CD5208CD700832927302227102CD9D0848327002226E02F9 ;1809AC0149CD460DCDB408327F2402227D0232738CAD103328902C2 ;180BD201493A7902327F022A772402227D023A7C022A907A02CDF40B37 ;180BE70149327C02227A022A9A100223C3A10BD51100000119D02CD6003F5EB412AAD0219CE00327320022271022A5E ;1808EE0190AD02CDF703F119CE24FF32BA0222B80221107F00CD52084F ;1809030149CD7008320229280022284023A8102006F260029111C ;180B2801840000197E32830223217E328702FE80CA3C200BCD210F3A7F ;180B3D01848102FE7FCA4E0B3C4939289023A7902327F02492A7702227D023A7C20022A7A02CDD8 ;190CBB0192F40B327C02227A02443A89021F2A9A02DA885B0C23C35B0C3C ;180CD101100AA5D02472A5E020216FFDB80B7FAF70E2057C3ED0EAF65 ;180EF8012082FAED0E2F570E1400E5E5E5E5E5E5E5E500E5E5E5E5E501 ;180F0D0104E5E5E505C0E2AD2 ;180E3A0189A002192296023A9220022A7B025F16001740D24E0E1519E4 ;180E4F0149227B02C39A0D2AA31202192296023A9402402A7E025F16553AC40E835F790FD2887F104FC358100E7F2023C35810CD85 ;1910860182B611C1C915CA0C10423AC40E835FDAAA1008790F0FD2A1109C ;18109C0112A14FF703C38F080D3EFF329402B8 ;180D8F014422A002EB2AA30219492296023A7C022A7A1002B7CAAC0DC5 ;190DA40112FEFFCAB30DC3FB0D2429DAFB0DC3B79179A ;180FC60100291729176CC6C06700C97FBFDFEFF7FBFD00FE3F3FCFCF5B ;180FDB0102F3F3FCFCEB22C50E20EBCD9B0F5014AF90101F5F3A6B02E3 0321F10C5F160021193A6302B77E326D2002CAE70CEEE0 ;180CE60124FF326C02325E0232805F02C9FFFFFFFFFF00FFFFFF0000CC ;180CFB010000000000A1B0F0D49C2000FC3ED0E2AC7000EF9C1C9C5F3 ;190F220148CDB6113A8102C68020673A83022FC680CD88900F6F3A8502F7 ;180F380108C680573A87022 ;180E6401100017D26A0E151922927E02C39A0D3A6A0210B7F8C3210FE0 ;180E7901422A7B027CB7CA870E10FEFFCA8D0EC9652920D8C3900E655E ;190C38A10CD4C11090E3F23C38A10CD4C20113AC50E8500 ;1810B101216F3AC60E8C673AC3010E835F790F0FD2A40010A1A9EEFF53 ;1810C601244FC38A10CD0D2948D2FB0D3A7F0215 ;190DBA01442A7D02B7CAC90DFE24FFCAD00DC3FB0D2948DAFB0DC3D40D51 ;180DD0012429D2FB0D3A6A02B749C4560B2A7A0222 ;190FF00111FE02F28A1015CA0C21103AC40E835FDA1B0810790FD21210B7 ;1810060109A14F15C2F90FCD4C2411C38510CD4C110E107F23C3F50FA2 ;180000FFFF00FFAAAAAA000000AA00FFFFAAFFFF95 ;180D100100FF55555500550000103EFF326502C9AFC3801A0D000003AC ;180D250104030303C9CDFA02FC62280CD900F5F3A6B0210FE02FA550FC1 ;120F4D01007AB71F577CB71F67107A94D25D0FEB7A94DC ;180F5D01214732C20E909032C3090E7B95DA7E0FCE8E011029D02A7E027CB7CA849E0EFEFFCAA40EC9086529D8C3A70E42 ;180EA401096529D02A7A02228024022A7D022282022A9080022284022D ;180EB904C111548CA85103AC50E856F403AC60E8C6719 ;1810DB01423AC20E835FD2CA10403AC40E835F790F0F40D2F2104FC337 ;1810F00182CA100E3F23C3CA108420022A7D0222DF ;190DE5019186023A6902B7FAFB120D2F326902228202482A7A0222800267 ;180DFB01442A7B02EB2A6F027C21BAC2300E7DBBC23020101B0148CD4C113AC50E856F423AC60E8C673AC30E00835F790FD2BF ;18103001801510A1A9EEFF4FC388F50FEB22C50EEBCD909B0F3AC40E4F ;191045010920EB2A4E02702B712B40224E02424B12 ;180D3A0120C92A4E02234E234642224E02C9AF326902402A7B02E5CD01 ;180D4F0188F703EB2A6F02197C2117AF800101120003239 ;180F720189C40E90DADF0FC23A2110CADF0F7D9332C4000E11E0FF903A ;180F870149DADF0FC23A10CADF000FB7C95F1F3CB71F0021492A8202228602C321000F000000000000000000000000008C ;180ECE014058DC15C9C5210000203922C70E2E0026C020EB2A600219BF ;180EE30122F9342CD9B0F50143A6B0210FE02F228117F ;181105012115CA0C10790FD2130911A14FC30511CD4C00110E7F237A11 ;18111A0112C6F8CA0511D20511080E000E2A7E02EB2A ;180E1001422A72027CBAC2300E127DBBC2300E3A690220B7CA270ECD21 ;180E250188710EE1227E02E122887B02C92A96027CEB20B7FA55023C573D2F3C32C40E08371F5F3A6B02FE0248F2CA10CD4C11AE ;19105B012415CA85103AC50E85216F3AC60E8C673AC2080E835FD2581092 ;1810710140DA630D3E0132922002C36B0D3ECE ;180D640124FF329202CDF7032291A3022A7E02E5CDF71003EB2A72027F ;190D790108197C17DA8A0D3E0149329402CDF3C83C97D38 ;180F9C01106C673A6B02FE02FA80B10F7D876F3E07A510C608C3B40FB7 ;180FB101083E07A511CF0F835F40D2BD0F141A4FAF2900172917257C3131115CA800C10790F0FBE ;18112F0142D23711A14FC3281140CD4C110E3F237AC620FCCA2811D254 ;181144018228110E0057C337110479EEFF473A410100FC1202041CA2A2A4007EFE100808F0007A00804000004071 ;1817560100807A00FE402050880000027C8000F808300008F0F8100814 ;18176B0100282008244FE828283 ;1816990100827CFE92929282FE0012121202FC8282A200E2FE1010101C ;1816AE0100FE0082FE820040800080807EFE1028448200F>/ 0FFFFF0000000000000000BE000000000E000E0022 ;1815F1010028FE28FE284854FE005424462610C8C46C0092AC40A000C9 ;1816060100000E000038448 6C02A0204722C70EE32D ;1811590102C5E5DB80B7FA9511443ACD0EB7C299113C4032CD0EE12217 ;18116E0189CB0EEB22C90EC378001177D1E17EA3B21C08F07088888870FE002422221C1C22221200FCF8100808ED ;18178001001090A8A8A848087E0088884078808040F80018608060187A ;1817950100788060E80808080EB ;1816C30100FE041804FEFE08100020FE7C8282827CFE001212120C7C84 ;1816D8010082A242BCFE123252008C4C92929264020200FE020278 ("20000000000824438442800FE28441010CB ;18161B01007C10100080600000001010101010000080000000402010FA ;181630010008047CA2928A7C00008 40C277112EFF07 ;1911830111E5E52ACB0EE52AC9040EEB3E5832CE0EC388A411AF32CD0E3F ;19119901443ACE0EB7CA5B113D4832CE0E2AC70EC9CD88B680788850200050881EA0A0907E8800C8A898880097 ;1817AA0100106C82000000EE00000000826C100020100010100854AAE6 ;0E17BF010054AA54470001E804D ;1816ED010080807E3E4080403E00FE403040FEC628100028C60608F054 ;18170201000806C2A2928A86FE00FE828282040810200040828282FE38 04FE8000C4A29292008C42828A9ADF ;181645010066302824FE204E8A008A8A7278949292620002E2120A0696 ;18165A01006C9292926C8C929200523C000>/ 011AF32CE0EC1 ;1811AF0148CD5B11CDB611C9E14022CB0E21000039EB402ACF0EF9EBBD ;1811C4014822CF0E2ACB0EE90A2203326B023DC2DE11103EFF3206000000454504ED ;00010000FF ;1817170100FE2010081020808000808080000204080000708888F080D5 ;18172C0100FE9088887070888800888870888890FE7000A8A8A8101070 ;18178 /0280000000080680000108B ;18166F0100284482002828282800280082442810040200B20A047C82EA ;1816840100BAB29CF8242224F800FE9292926C7C88 ("6C0236 ;1811D901113E3FC3F7113DC2E708113E2EC3F7113DC280F0113E3EC3AF ;0E11EE0184F7113EFF326C023E002FD380C900 ;1815DC0100FFFFFFF }lg:q { 2~ <:8641/,*'# `i"^ p+q+"X #N#F"X DM!V r#s#< V#^> }lg:v oT])) / i`N#F DM!V m * m * PIP COM }lg:p i`N#F @0@!'@@0@ p@$" @(@$'@@(@ m * PIP COM p+q+"X #N#F"X r#s#< V#^> }lg:u oT])) z 2} ~~~~~~~~}}}}}}||||{{{{zzzyyyyxxwwwvvvuuttssrrqqppoonnmmlkkjiihgffedccba`_^]]\[ZYXVUTSRQPNMLJIGFDCA?><:8641/,*'# T$F& D8D( f0($ (((8 }lg:q $""8 `i"^ p+q+"X #N#F"X DM!V r#s#< V#^> }lg:v oT])) { 2~ <:8641/,*'# Zd@ ! !.MAIN.7F \03.PROG.0117CB.DATA.020000.BLNK.03000088 ;0302560180C2174B ;04025A01000100C0DE ;1802C50148C32A043A6702B7FA900F0 @(HT T$F& D8D( f0($ ((33A6602B70A0340FADC02672EDE ;1802DA010400C9C680C3D8023A896702B7FA18033A660002B70A03FA03 ;1802EF0190F402C3D8022FC68040C3D8020A0>/ @>3670A03206F3A6502B719 ;1803040141CA0A037D6C673A660802B7C9CDFA02C81100008019C9CD7D ;1803190180FA02C83EFF956F3E047F9C67C93A6702B $"740FA4D030A03C8 ;18032E0109672E00C360033A671002B7FA53030A0367102E003A6602E4 ;1903430120B7CA6003AF9467C3926003CDFA02C3600348CDF>/ A02CA60030D ;1803590100AF956F3E009C677C01B73E00F02FC9CDC82002228002CD15 ;18036E0191E102228202C9CDC82402228402CDE10222808602C931002C9CDA811A2 ;18059A0110E1C9CDA8110A03B700C811AE2E1BE3E3E300E3E3E31514F9 ;1805AF0144C2A6053DC3A105CD928103CD6703CD740340C321560653065F06A85F0772078E0739 ;1904ED01AA9507A507BD07DF07AA6E0ADC076B0AC108A8BE0891098E0977 ;19050301AAA40AA10ACC09C909AA63056320F07CDF703C30F20072A8B02C340 ;18072D01841F07F117D2400721120000CD6003CDE60540C3460D17D28E ;180742019151072A8D0217D2372407CDF700000D23804393744C3390439313C02CD884404F92A500210 ;1804430102C9E5F5C5D5CD5504106069225402D1C1F100E1C92100009C ;1804580149227A020F00F0F0F0FFE0BCA928B06CD95063A980200E60FFE0BCA4D ;18068301928B06CD9506C36806493AA602326C02CDD10003C9FE0CFA69 ;18069801889F06CEFF50 ;1903830144326702C92A7A0222926E022A7C02227002482A7E022272022A ;1803990122C92A6E02E52A700222E52A7202EBCD870320EB227E02E1D0F3EFF0E ;1805C40142326602C9AFC3C40549CD8103CD6703C3B3100EEB2A7A0248 ;1905D9011119573A7C028A327C2102227A02C9EB2A7D080219573A7F0563059E0BA8FD0B6305630529 ;19051901AA580C630563056305AA6305630563056305A863056305630558 ;19052F01AA6305D10C6305180DAA1E0DD10E3C337072A908B02C3470791 ;1807570100014280622166844648CDFA02228B027CE6007F673EB5CD4B ;19076C0190B703228D02C9AF32848A023EFF32680227C02227E240222630222650222906A02225E028E ;18046D01082100182260023EC041325D0221FFFF226C000221001522DA ;18048201828B0221D90E220CDE403C9FE240AC2D7063A70022A906E02CDD50597 ;1906AD0108071F1F327C027C1F42327B027D1F327A02483A73022A7102CC ;1806C30141CDE6050710 ;1803AE0144227C02E1227A02C90287EB210000CDC40340CDC4036C673A ;1803C30124C9CDC703CDCA0329018FD019CE00C92A742002227A022A42 ;180246 ;1805EF01248A327F02227D02C949CD8103CD1F06C379200ECD8103CD14 ;1806040192C802CD6003327C0249227A02CDE102CD602003327F0222E5 290D3B0DA8CB1163056305B0 ;19054501AA6305630563056305AA6305630563056305A863056305CF05BC ;18055B01AAB905240D260D63050400D13EFF322CD885F06AF326802E0 ;1907820110C9573A8A0282E60744328A02C9CDFA020908444DC9CD6703C2 ;19079801240BCD74032A860222928202C3210FCDE108D02422A5602444D214C0240224E02AF3242 ;180497018167020A03FE58D26510058721B1045F160000195E2356EB06 ;1804AC0145119504D5E96B056C55F1F327F08027C1F327E027D1F40327D02C9FE84 ;1806D8012409C2E4063AA6022F41326C02C9FE08C2F020063AA6023283 ;1806ED01886C02C9CD870357303D801927602227C022A780244227E02C92A7A02229074022A7C0299 ;1803ED01492276022A7E0222780002C9F5AF956F3E00009C67F1C9F56D ;18040201;19061901897D02C9CD8103CD252403CDD505CD3403CD88E605C9CD810387 ;18062F0149CD8703CD0306C346240DCD8103CD8703CD901F06C3460DC2 ;1805802C920C9CDD20EC98D ;1805700124AF3263023A6D0232846C02EEFF325E0232805F02C93E01A1 ;18058501493263023A6D02325E2102325F02EEFF326C248228202CDE102A9 ;1807AE0149228602CDC80222802402228402C3210F0A00032FC67F3C88 ;1807C30102676F572F5FCD010410676FCD0104572F5F40C057005830597059C5005B905B60551 ;1904C101AAC205C805CF05CC05AAFA05F70503060006A81F061C062F0666 ;1904D701AA2C063B0638064706AA4406A826802FEFF7ACC830740215707856FE1 ;19070201003E008C677EF51FD2821807210000CD600348CDD505C32F076E ;18071801241FD229072A8D021F49D02E5D57D2E002280022267228202622284022063228602CDA3 ;1904170181210FD1E1F1C93A671002B7FAFA020A0367082E00C922500267 ;19042D0108216440149CD8103CD8703CD032406CD9A03C3460DCD908103CD8703FA ;1806590149CD1F06C34D063A6C240232A602CDE4030A2003329802E6FE ;18066E010D0104676F09 ;1807D80144CD0104C9CD8103CD89C802E5226E0222802002228402CD08 ;1907ED0192E10222710222820242CDC802E5E5CDE1024822770227878CB ;180A15010077777776767675750074747373727271710070706F6F6E57 ;180A2A01006E6D6D6C6B6B6A6900696867666665646300636261605F41227A0232B1022290AF02CD460D12 ;18096C01412A52022DF8E53AB124023270022AAF0222906E023AB40207 ;18098101493273022AB20222711202E1C30060B22809A027EB7CAB6 ;180BA70191C60BF2B10BF5CD79090EF1573A7F022A7D2002CDF40B3209 ;190BBC01907F02227D027A87C390A50B3A89023CFE0540129EBD0C6FFC92A9D1202EB2AA902C3A40848CD8103CD300815 ;1808C40149CD6003327002226E240232B70222B5023290B10222AF023C ;1808D901482AD329A02FA92130BCAFC0ACD870340C3CE0AE1C57D ;180AFE0112444DC3F60A21000000AF11807F72237323203CC20A0BC972 ;180B130140CDD103C1210082860262 ;1808030144CD210FE1228402229284022A710222860240CD210FE12251 ;180818019280022A770222820244CD210FE12284022A907702228602C ;180A3F01005E5D5D5C5B5A595800565554535251504E004D4C4A4947BE ;180A540100464443413F3E3C3A00383634312F2C2A270023201B161085 ;18009CD810340CD3008217F05 ;190996012400CD5208CD700832927302227102CD9D0848327002226E02F9 ;1809AC0149CD460DCDB408327F2402227D0232738CAD103328902C2 ;180BD201493A7902327F022A772402227D023A7C022A907A02CDF40B37 ;180BE70149327C02227A022A9A100223C3A10BD51100000119D02CD6003F5EB412AAD0219CE00327320022271022A5E ;1808EE0190AD02CDF703F119CE24FF32BA0222B80221107F00CD52084F ;1809030149CD7008320229280022284023A8102006F260029111C ;180B2801840000197E32830223217E328702FE80CA3C200BCD210F3A7F ;180B3D01848102FE7FCA4E0B3C4933 ;18082D0149C3210FCD6703CD1D04047CB7C8F23F08CD90F70322AB02F3 ;190842014922AD022A8202229D24022A8002229A02C94822520211EA09FA ;A690112007FCD8103CD670349CD74033A8702327220023A83023254 ;180A7E01928702CD210F3A720208C680573A8302C68010BAC83A83029E ;190A930140222907102CD460DDC ;1809C101422A52022DF8C3970949CD8103CD6703CD1D200422AB02CD5A ;1809D601921D0422AD022A820249229D022A8002229A209CE00D157 ;190BFC0124C9CD860B229A027E04B71FB71FCA270CD288130CF5CD790EE9 ;180C120112F1F53A7C022A7A0249CDF40B327C02227A1002F1C30B40222B22402CD460D3AB702329070022AB50243 ;1809180149226E02CD9D08327C2402227A0232B7022290B502CD460D93 ;18092D01493ABA023273022A28102328502C320100BAF326A02BA ;180B520144CDD103C92A7B0226200011000029195623005E3E8082572E ;190B6701413A7E02C680BA3A7E2002D27601808580112197E2AAB02CDB6034922A7023A52022AAD2002CDB603223E ;19086D0189A902C92A9A02CD601003EB2AA70219CE0048327C02227A0233 ;19084D29D0A3C328302C3897A0A3DC3970ACD8108030A03CDE4030E ;190AA901213D329A023EFF326A2202CD030BC5CDC80248CD6003327002B7 ;180ABF0149202C3C4087F34 ;1809EB01007F7F7F7F7F7F7F7F007F7F7F7E7E7E7E7E007E7E7E7D7D94 ;180A0001007D7D7D7D7C7C7C7C007B7B7B7B7A7A7A790079797960C3A ;180C270148DA0E0C3A89023CFE2405CAD1033289023A907602327C0203 ;180C3C01492A7402227A023A7F24022A7D02CDF40B32907F02227D02E0 B82402227102CDB40832907F02227D02C1 ;180942014932BA0222B802CD46240D3AB1023270022A90AF02226E02B7 ;18095701493A7602327C022A742402B2B77233E0880835F3A7E0225 ;180B7D0104C680BBD83A7E027712C9AF328902CDE403000A03DE202625 ;180B920100006F545D2929191184E21519C9CD88301493276022274022A9D2202CD6003EB2AA9020819CE00327F0253 ;1808990144227D02C92A9A02EB492AA702CDF703CD60000319CE00EB02 ;1908AE0126E02CDE102CD602403327302227102CD90C802CD6003AC ;180AD40149327C02227A02CDE12402CD6003327F0222907D02CD460D6A ;180AE901443A9A023 ;190C5101442A9A0223C3000CCD90860B229A027EB7CA889C0CF5F2850C3A ;180C670149CD790E3A7F022A7D2402CDF40B327F0222907D02CD790E4B ;18E8E011029D02A7E027CB7CA849E0EFEFFCAA40EC9086529D8C3A70E42 ;180EA401096529D02A7A02228024022A7D022282022A9080022284022D ;180EB908420022A7D0222DF ;190DE5019186023A6902B7FAFB120D2F326902228202482A7A0222800267 ;180DFB01442A7B02EB2A6F027C21BAC2300E7DBBC23020101B0148CD4C113AC50E856F423AC60E8C673AC30E00835F790FD2BF ;18103001801510A1A9EEFF4FC388F50FEB22C50EEBCD909B0F3AC40E4F ;191045010920EB2A4E02702B712B40224E02424B12 ;180D3A0120C92A4E02234E234642224E02C9AF326902402A7B02E5CD01 ;180D4F0188F703EB2A6F02197C2117AF800101120003239 ;180F720189C40E90DADF0FC23A2110CADF0F7D9332C4000E11E0FF903A ;180F870149DADF0FC23A10CADF000FB7005F1F3CB71F0020C7C01493A7F022A7D02C38E240C3A7F022A7D02CD90F40BCDF40BA5 ;180C910148327F02227D02F18748C35F0C3A89023CFE200ACAD10332C7 ;180CA6011492A8202228602C321000F000000000000000000000000008C ;180ECE014058DC15C9C5210000203922C70E2E0026C020EB2A600219BF ;180EE30122F930E2A7E02EB2A ;180E1001422A72027CBAC2300E127DBBC2300E3A690220B7CA270ECD21 ;180E250188710EE1227E02E122887B02C92A96027CEB20B7FA55023C573D2F3C32C40E08371F5F3A6B02FE0248F2CA10CD4C11AE ;19105B012415CA85103AC50E85216F3AC60E8C673AC2080E835FD2581092 ;1810710140DA630D3E0132922002C36B0D3ECE ;180D640124FF329202CDF7032291A3022A7E02E5CDF71003EB2A72027F ;190D790108197C17DA8A0D3E0149329402CDF3C83C97D01 ;180F9C01106C673A6B02FE02FA80B10F7D876F3E07A510C608C3B40FB7 ;180FB101083E07A511CF0F835F40D2BD0F141A4FAF290017291729289023A7902327F02492A7702227D023A7C20022A7A02CDD8 ;190CBB0192F40B327C02227A02443A89021F2A9A02DA885B0C23C35B0C3C ;180CD101100AA5D02472A5E020216FFDB80B7FAF70E2057C3ED0EAF65 ;180EF8012082FAED0E2F570E1400E5E5E5E5E5E5E5E500E5E5E5E5E501 ;180F0D0104E5E5E505C0E2AD2 ;180E3A0189A002192296023A9220022A7B025F16001740D24E0E1519E4 ;180E4F0149227B02C39A0D2AA31202192296023A9402402A7E025F16553AC40E835F790FD2887F104FC358100E7F2023C35810CD85 ;1910860182B611C1C915CA0C10423AC40E835FDAAA1008790F0FD2A1109C ;18109C0112A14FF703C38F080D3EFF329402B8 ;180D8F014422A002EB2AA30219492296023A7C022A7A1002B7CAAC0DC5 ;190DA40112FEFFCAB30DC3FB0D2429DAFB0DC3B79179A ;180FC60100291729176CC6C06700C97FBFDFEFF7FBFD00FE3F3FCFCF5B ;180FDB0102F3F3FCFCEB22C50E20EBCD9B0F5014AF90101F5F3A6B02E3 0321F10C5F160021193A6302B77E326D2002CAE70CEEE0 ;180CE60124FF326C02325E0232805F02C9FFFFFFFFFF00FFFFFF0000CC ;180CFB010000000000A1B0F0D49C2000FC3ED0E2AC7000EF9C1C9C5F3 ;190F220148CDB6113A8102C68020673A83022FC680CD88900F6F3A8502F7 ;180F380108C680573A87022 ;180E6401100017D26A0E151922927E02C39A0D3A6A0210B7F8C3210FE0 ;180E7901422A7B027CB7CA870E10FEFFCA8D0EC9652920D8C3900E655E ;190C38A10CD4C11090E3F23C38A10CD4C20113AC50E8500 ;1810B101216F3AC60E8C673AC3010E835F790F0FD2A40010A1A9EEFF53 ;1810C601244FC38A10CD0D2948D2FB0D3A7F0215 ;190DBA01442A7D02B7CAC90DFE24FFCAD00DC3FB0D2948DAFB0DC3D40D51 ;180DD0012429D2FB0D3A6A02B749C4560B2A7A0222 ;190FF00111FE02F28A1015CA0C21103AC40E835FDA1B0810790FD21210B7 ;1810060109A14F15C2F90FCD4C2411C38510CD4C110E107F23C3F50FA2 ;180000FFFF00FFAAAAAA000000AA00FFFFAAFFFF95 ;180D100100FF55555500550000103EFF326502C9AFC3801A0D000003AC ;180D250104030303C9CDFA02FC62280CD900F5F3A6B0210FE02FA550FC1 ;120F4D01007AB71F577CB71F67107A94D25D0FEB7A94DC ;180F5D01214732C20E909032C3090E7B95DA7E0FC4C111548CA85103AC50E856F403AC60E8C6719 ;1810DB01423AC20E835FD2CA10403AC40E835F790F0F40D2F2104FC337 ;1810F00182CA100E3F23C3CA10E804D ;1816ED010080807E3E4080403E00FE403040FEC628100028C60608F054 ;18170201000806C2A2928A86FE00FE828282040810200040828282FE38 4FE8000C4A29292008C42828A9ADF ;181645010066302824FE204E8A008A8A7278949292620002E2120A0696 ;18165A01006C9292926C8C929200523C000 !.MAIN.7F \03.PROG.0117CB.DATA.020000.BLNK.03000088 ;0302560180C2174B ;04025A01000100C0DE ;1802C50148C32A043A6702B7FA900F011AF32CE0EC1 ;1811AF0148CD5B11CDB611C9E14022CB0E21000039EB402ACF0EF9EBBD ;1811C4014822CF0E2ACB0EE90A2203326B023DC2DE11103EFF3206000000454504ED ;00010000FF 42CD9B0F50143A6B0210FE02F228117F ;181105012115CA0C10790FD2130911A14FC30511CD4C00110E7F237A11 ;18111A0112C6F8CA0511D20511080E00 ;1817170100FE2010081020808000808080000204080000708888F080D5 ;18172C0100FE9088887070888800888870888890FE7000A8A8A8101070 ;18170280000000080680000108B ;18166F0100284482002828282800280082442810040200B20A047C82EA ;1816840100BAB29CF8242224F800FE9292926C7C833A6602B70A0340FADC02672EDE ;1802DA010400C9C680C3D8023A896702B7FA18033A660002B70A03FA03 ;1802EF0190F402C3D8022FC68040C3D8020A06C0236 ;1811D901113E3FC3F7113DC2E708113E2EC3F7113DC280F0113E3EC3AF ;0E11EE0184F7113EFF326C023E002FD380C900 ;1815DC0100FFFFFFF 57C3131115CA800C10790F0FBE ;18112F0142D23711A14FC3281140CD4C110E3F237AC620FCCA2811D254 ;181144018228110E0057C337110479EEFF473A410100FC1202041CA2A2A4007EFE100808F0007A00804000004071 ;1817560100807A00FE402050880000027C8000F808300008F0F8100814 ;18176B0100282008244FE828283 ;1816990100827CFE92929282FE0012121202FC8282A200E2FE1010101C ;1816AE0100FE0082FE820040800080807EFE1028448200F3670A03206F3A6502B719 ;1803040141CA0A037D6C673A660802B7C9CDFA02C81100008019C9CD7D ;1803190180FA02C83EFF956F3E047F9C67C93A6702BFFFFF0000000000000000BE000000000E000E0022 ;1815F1010028FE28FE284854FE005424462610C8C46C0092AC40A000C9 ;1816060100000E000038448 6C02A0204722C70EE32D ;1811590102C5E5DB80B7FA9511443ACD0EB7C299113C4032CD0EE12217 ;18116E0189CB0EEB22C90EC378001177D1E17EA3B21C08F07088888870FE002422221C1C22221200FCF8100808ED ;18178001001090A8A8A848087E0088884078808040F80018608060187A ;1817950100788060E80808080EB ;1816C30100FE041804FEFE08100020FE7C8282827CFE001212120C7C84 ;1816D8010082A242BCFE123252008C4C92929264020200FE02027740FA4D030A03C8 ;18032E0109672E00C360033A671002B7FA53030A0367102E003A6602E4 ;1903430120B7CA6003AF9467C3926003CDFA02C3600348CDF20000000000824438442800FE28441010CB ;18161B01007C10100080600000001010101010000080000000402010FA ;181630010008047CA2928A7C00008 40C277112EFF07 ;1911830111E5E52ACB0EE52AC9040EEB3E5832CE0EC388A411AF32CD0E3F ;19119901443ACE0EB7CA5B113D4832CE0E2AC70EC9CD88B680788850200050881EA0A0907E8800C8A898880097 ;1817AA0100106C82000000EE00000000826C100020100010100854AAE6 ;0E17BF010054AA54470001A02CA60030D ;1803590100AF956F3E009C677C01B73E00F02FC9CDC82002228002CD15 ;18036E0191E102228202C9CDC82402228402CDE10222808602C931002C9CDA811A2 ;18059A0110E1C9CDA8110A03B700C811AE2E1BE3E3E300E3E3E31514F9 ;1805AF0144C2A6053DC3A105CD928103CD6703CD740340C321560653065F06A85F0772078E0739 ;1904ED01AA9507A507BD07DF07AA6E0ADC076B0AC108A8BE0891098E0977 ;19050301AAA40AA10ACC09C909AA63056320F07CDF703C30F20072A8B02C340 ;18072D01841F07F117D2400721120000CD6003CDE60540C3460D17D28E ;180742019151072A8D0217D2372407CDF700000D23804393744C3390439313C02CD884404F92A500210 ;1804430102C9E5F5C5D5CD5504106069225402D1C1F100E1C92100009C ;1804580149227A020F00F0F0F0FFE0BCA928B06CD95063A980200E60FFE0BCA4D ;18068301928B06CD9506C36806493AA602326C02CDD10003C9FE0CFA69 ;18069801889F06CEFF50 ;1903830144326702C92A7A0222926E022A7C02227002482A7E022272022A ;1803990122C92A6E02E52A700222E52A7202EBCD870320EB227E02E1D0F3EFF0E ;1805C40142326602C9AFC3C40549CD8103CD6703C3B3100EEB2A7A0248 ;1905D9011119573A7C028A327C2102227A02C9EB2A7D080219573A7F0563059E0BA8FD0B6305630529 ;19051901AA580C630563056305AA6305630563056305A863056305630558 ;19052F01AA6305D10C6305180DAA1E0DD10E3C337072A908B02C3470791 ;1807570100014280622166844648CDFA02228B027CE6007F673EB5CD4B ;19076C0190B703228D02C9AF32848A023EFF32680227C02227E240222630222650222906A02225E028E ;18046D01082100182260023EC041325D0221FFFF226C000221001522DA ;18048201828B0221D90E220CDE403C9FE240AC2D7063A70022A906E02CDD50597 ;1906AD0108071F1F327C027C1F42327B027D1F327A02483A73022A7102CC ;1806C30141CDE6050710 ;1803AE0144227C02E1227A02C90287EB210000CDC40340CDC4036C673A ;1803C30124C9CDC703CDCA0329018FD019CE00C92A742002227A022A42 ;180246 ;1805EF01248A327F02227D02C949CD8103CD1F06C379200ECD8103CD14 ;1806040192C802CD6003327C0249227A02CDE102CD602003327F0222E5 290D3B0DA8CB1163056305B0 ;19054501AA6305630563056305AA6305630563056305A863056305CF05BC ;18055B01AAB905240D260D63050400D13EFF322CD885F06AF326802E0 ;1907820110C9573A8A0282E60744328A02C9CDFA020908444DC9CD6703C2 ;19079801240BCD74032A860222928202C3210FCDE108D02422A5602444D214C0240224E02AF3242 ;180497018167020A03FE58D26510058721B1045F160000195E2356EB06 ;1804AC0145119504D5E96B056C55F1F327F08027C1F327E027D1F40327D02C9FE84 ;1806D8012409C2E4063AA6022F41326C02C9FE08C2F020063AA6023283 ;1806ED01886C02C9CD870357303D801927602227C022A780244227E02C92A7A02229074022A7C0299 ;1803ED01492276022A7E0222780002C9F5AF956F3E00009C67F1C9F56D ;18040201;19061901897D02C9CD8103CD252403CDD505CD3403CD88E605C9CD810387 ;18062F0149CD8703CD0306C346240DCD8103CD8703CD901F06C3460DC2 ;1805802C920C9CDD20EC98D ;1805700124AF3263023A6D0232846C02EEFF325E0232805F02C93E01A1 ;18058501493263023A6D02325E2102325F02EEFF326C248228202CDE102A9 ;1807AE0149228602CDC80222802402228402C3210F0A00032FC67F3C88 ;1807C30102676F572F5FCD010410676FCD0104572F5F40C057005830597059C5005B905B60551 ;1904C101AAC205C805CF05CC05AAFA05F70503060006A81F061C062F0666 ;1904D701AA2C063B0638064706AA4406A826802FEFF7ACC830740215707856FE1 ;19070201003E008C677EF51FD2821807210000CD600348CDD505C32F076E ;18071801241FD229072A8D021F49D02E5D57D2E002280022267228202622284022063228602CDA3 ;1904170181210FD1E1F1C93A671002B7FAFA020A0367082E00C922500267 ;19042D0108216440149CD8103CD8703CD032406CD9A03C3460DCD908103CD8703FA ;1806590149CD1F06C34D063A6C240232A602CDE4030A2003329802E6FE ;18066E010D0104676F09 ;1807D80144CD0104C9CD8103CD89C802E5226E0222802002228402CD08 ;1907ED0192E10222710222820242CDC802E5E5CDE1024822770227878CB ;180A15010077777776767675750074747373727271710070706F6F6E57 ;180A2A01006E6D6D6C6B6B6A6900696867666665646300636261605F41227A0232B1022290AF02CD460D12 ;18096C01412A52022DF8E53AB124023270022AAF0222906E023AB40207 ;18098101493273022AB20222711202E1C30060B22809A027EB7CAB6 ;180BA70191C60BF2B10BF5CD79090EF1573A7F022A7D2002CDF40B3209 ;190BBC01907F02227D027A87C390A50B3A89023CFE0540129EBD0C6FFC92A9D1202EB2AA902C3A40848CD8103CD300815 ;1808C40149CD6003327002226E240232B70222B5023290B10222AF023C ;1808D901482AD329A02FA92130BCAFC0ACD870340C3CE0AE1C57D ;180AFE0112444DC3F60A21000000AF11807F72237323203CC20A0BC972 ;180B130140CDD103C1210082860262 ;1808030144CD210FE1228402229284022A710222860240CD210FE12251 ;180818019280022A770222820244CD210FE12284022A907702228602C ;180A3F01005E5D5D5C5B5A595800565554535251504E004D4C4A4947BE ;180A540100464443413F3E3C3A00383634312F2C2A270023201B161085 ;18009CD810340CD3008217F05 ;190996012400CD5208CD700832927302227102CD9D0848327002226E02F9 ;1809AC0149CD460DCDB408327F2402227D0232738CAD103328902C2 ;180BD201493A7902327F022A772402227D023A7C022A907A02CDF40B37 ;180BE70149327C02227A022A9A100223C3A10BD51100000119D02CD6003F5EB412AAD0219CE00327320022271022A5E ;1808EE0190AD02CDF703F119CE24FF32BA0222B80221107F00CD52084F ;1809030149CD7008320229280022284023A8102006F260029111C ;180B2801840000197E32830223217E328702FE80CA3C200BCD210F3A7F ;180B3D01848102FE7FCA4E0B3C4933 ;18082D0149C3210FCD6703CD1D04047CB7C8F23F08CD90F70322AB02F3 ;190842014922AD022A8202229D24022A8002229A02C94822520211EA09FA ;A690112007FCD8103CD670349CD74033A8702327220023A83023254 ;180A7E01928702CD210F3A720208C680573A8302C68010BAC83A83029E ;190A930140222907102CD460DDC ;1809C101422A52022DF8C3970949CD8103CD6703CD1D200422AB02CD5A ;1809D601921D0422AD022A820249229D022A8002229A209CE00D157 ;190BFC0124C9CD860B229A027E04B71FB71FCA270CD288130CF5CD790EE9 ;180C120112F1F53A7C022A7A0249CDF40B327C02227A1002F1C30B40222B22402CD460D3AB702329070022AB50243 ;1809180149226E02CD9D08327C2402227A0232B7022290B502CD460D93 ;18092D01493ABA023273022A28102328502C320100BAF326A02BA ;180B520144CDD103C92A7B0226200011000029195623005E3E8082572E ;190B6701413A7E02C680BA3A7E2002D27601808580112197E2AAB02CDB6034922A7023A52022AAD2002CDB603223E ;19086D0189A902C92A9A02CD601003EB2AA70219CE0048327C02227A0233 ;19084D29D0A3C328302C3897A0A3DC3970ACD8108030A03CDE4030E ;190AA901213D329A023EFF326A2202CD030BC5CDC80248CD6003327002B7 ;180ABF0149202C3C4087F34 ;1809EB01007F7F7F7F7F7F7F7F007F7F7F7E7E7E7E7E007E7E7E7D7D94 ;180A0001007D7D7D7D7C7C7C7C007B7B7B7B7A7A7A790079797960C3A ;180C270148DA0E0C3A89023CFE2405CAD1033289023A907602327C0203 ;180C3C01492A7402227A023A7F24022A7D02CDF40B32907F02227D02E0 B82402227102CDB40832907F02227D02C1 ;180942014932BA0222B802CD46240D3AB1023270022A90AF02226E02B7 ;18095701493A7602327C022A742402B2B77233E0880835F3A7E0225 ;180B7D0104C680BBD83A7E027712C9AF328902CDE403000A03DE202625 ;180B920100006F545D2929191184E21519C9CD88301493276022274022A9D2202CD6003EB2AA9020819CE00327F0253 ;1808990144227D02C92A9A02EB492AA702CDF703CD60000319CE00EB02 ;1908AE0126E02CDE102CD602403327302227102CD90C802CD6003AC ;180AD40149327C02227A02CDE12402CD6003327F0222907D02CD460D6A ;180AE901443A9A023 ;190C5101442A9A0223C3000CCD90860B229A027EB7CA889C0CF5F2850C3A ;180C670149CD790E3A7F022A7D2402CDF40B327F0222907D02CD790E4B ;18E8E011029D02A7E027CB7CA849E0EFEFFCAA40EC9086529D8C3A70E42 ;180EA401096529D02A7A02228024022A7D022282022A9080022284022D ;180EB908420022A7D0222DF ;190DE5019186023A6902B7FAFB120D2F326902228202482A7A0222800267 ;180DFB01442A7B02EB2A6F027C21BAC2300E7DBBC23020101B0148CD4C113AC50E856F423AC60E8C673AC30E00835F790FD2BF ;18103001801510A1A9EEFF4FC388F50FEB22C50EEBCD909B0F3AC40E4F ;191045010920EB2A4E02702B712B40224E02424B12 ;180D3A0120C92A4E02234E234642224E02C9AF326902402A7B02E5CD01 ;180D4F0188F703EB2A6F02197C2117AF800101120003239 ;180F720189C40E90DADF0FC23A2110CADF0F7D9332C4000E11E0FF903A ;180F870149DADF0FC23A10CADF000FB7C95F1F3CB71F0020C7C01493A7F022A7D02C38E240C3A7F022A7D02CD90F40BCDF40BA5 ;180C910148327F02227D02F18748C35F0C3A89023CFE200ACAD10332C7 ;180CA6011492A8202228602C321000F000000000000000000000000008C ;180ECE014058DC15C9C5210000203922C70E2E0026C020EB2A600219BF ;180EE30122F930E2A7E02EB2A ;180E1001422A72027CBAC2300E127DBBC2300E3A690220B7CA270ECD21 ;180E250188710EE1227E02E122887B02C92A96027CEB20B7FA55023C573D2F3C32C40E08371F5F3A6B02FE0248F2CA10CD4C11AE ;19105B012415CA85103AC50E85216F3AC60E8C673AC2080E835FD2581092 ;1810710140DA630D3E0132922002C36B0D3ECE ;180D640124FF329202CDF7032291A3022A7E02E5CDF71003EB2A72027F ;190D790108197C17DA8A0D3E0149329402CDF3C83C97D38 ;180F9C01106C673A6B02FE02FA80B10F7D876F3E07A510C608C3B40FB7 ;180FB101083E07A511CF0F835F40D2BD0F141A4FAF290017291729289023A7902327F02492A7702227D023A7C20022A7A02CDD8 ;190CBB0192F40B327C02227A02443A89021F2A9A02DA885B0C23C35B0C3C ;180CD101100AA5D02472A5E020216FFDB80B7FAF70E2057C3ED0EAF65 ;180EF8012082FAED0E2F570E1400E5E5E5E5E5E5E5E500E5E5E5E5E501 ;180F0D0104E5E5E505C0E2AD2 ;180E3A0189A002192296023A9220022A7B025F16001740D24E0E1519E4 ;180E4F0149227B02C39A0D2AA31202192296023A9402402A7E025F16553AC40E835F790FD2887F104FC358100E7F2023C35810CD85 ;1910860182B611C1C915CA0C10423AC40E835FDAAA1008790F0FD2A1109C ;18109C0112A14FF703C38F080D3EFF329402B8 ;180D8F014422A002EB2AA30219492296023A7C022A7A1002B7CAAC0DC5 ;190DA40112FEFFCAB30DC3FB0D2429DAFB0DC3B79179A ;180FC60100291729176CC6C06700C97FBFDFEFF7FBFD00FE3F3FCFCF5B ;180FDB0102F3F3FCFCEB22C50E20EBCD9B0F5014AF90101F5F3A6B02E3 0321F10C5F160021193A6302B77E326D2002CAE70CEEE0 ;180CE60124FF326C02325E0232805F02C9FFFFFFFFFF00FFFFFF0000CC ;180CFB010000000000A1B0F0D49C2000FC3ED0E2AC7000EF9C1C9C5F3 ;190F220148CDB6113A8102C68020673A83022FC680CD88900F6F3A8502F7 ;180F380108C680573A87022 ;180E6401100017D26A0E151922927E02C39A0D3A6A0210B7F8C3210FE0 ;180E7901422A7B027CB7CA870E10FEFFCA8D0EC9652920D8C3900E655E ;190C38A10CD4C11090E3F23C38A10CD4C20113AC50E8500 ;1810B101216F3AC60E8C673AC3010E835F790F0FD2A40010A1A9EEFF53 ;1810C601244FC38A10CD0D2948D2FB0D3A7F0215 ;190DBA01442A7D02B7CAC90DFE24FFCAD00DC3FB0D2948DAFB0DC3D40D51 ;180DD0012429D2FB0D3A6A02B749C4560B2A7A0222 ;190FF00111FE02F28A1015CA0C21103AC40E835FDA1B0810790FD21210B7 ;1810060109A14F15C2F90FCD4C2411C38510CD4C110E107F23C3F50FA2 ;180000FFFF00FFAAAAAA000000AA00FFFFAAFFFF95 ;180D100100FF55555500550000103EFF326502C9AFC3801A0D000003AC ;180D250104030303C9CDFA02FC62280CD900F5F3A6B0210FE02FA550FC1 ;120F4D01007AB71F577CB71F67107A94D25D0FEB7A94DC ;180F5D01214732C20E909032C3090E7B95DA7E0FC4C111548CA85103AC50E856F403AC60E8C6719 ;1810DB01423AC20E835FD2CA10403AC40E835F790F0F40D2F2104FC337 ;1810F00182CA100E3F23C3CA10E804D ;1816ED010080807E3E4080403E00FE403040FEC628100028C60608F054 ;18170201000806C2A2928A86FE00FE828282040810200040828282FE38 4FE8000C4A29292008C42828A9ADF ;181645010066302824FE204E8A008A8A7278949292620002E2120A0696 ;18165A01006C9292926C8C929200523C000 TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 1 .MAIN. - ;11AF32CE0EC1 ;1811AF0148CD5B11CDB611C9E14022CB0E21000039EB402ACF0EF9EBBD ;1811C4014822CF0E2ACB0EE90A2203326B023DC2DE11103EFF3206000000454504ED ;00010000FF 42CD9B0F50143A6B0210FE02F228117F ;181105012115CA0C10790FD2130911A14FC30511CD4C00110E7F237A11 ;18111A0112C6F8CA0511D20511080E00 ;1817170100FE2010081020808000808080000204080000708888F080D5 ;18172C0100FE9088887070888800888870888890FE7000A8A8A8101070 ;18170280000000080680000108B ;18166F0100284482002828282800280082442810040200B20A047C82EA ;1816840100BAB29CF8242224F800FE9292926C7C8 ***** SUBLOGIC RELOCATABLE CPM DISK LOADER ***** ; ; WRITTEN: 6,11,79 6C0236 ;1811D901113E3FC3F7113DC2E708113E2EC3F7113DC280F0113E3EC3AF ;0E11EE0184F7113EFF326C023E002FD380C900 ;1815DC0100FFFFFFF 57C3131115CA800C10790F0FBE ;18112F0142D23711A14FC3281140CD4C110E3F237AC620FCCA2811D254 ;181144018228110E0057C337110479EEFF473A410100FC1202041CA2A2A4007EFE100808F0007A00804000004071 ;1817560100807A00FE402050880000027C8000F808300008F0F8100814 ;18176B0100282008244FE828283 ;1816990100827CFE92929282FE0012121202FC8282A200E2FE1010101C ;1816AE0100FE0082FE820040800080807EFE1028448200F ; AUTHOR: B.ARTWICK ; ; THIS PROGRAM INTERACTIVELY TAKES A CFFFFF0000000000000000BE000000000E000E0022 ;1815F1010028FE28FE284854FE005424462610C8C46C0092AC40A000C9 ;1816060100000E000038448 6C02A0204722C70EE32D ;1811590102C5E5DB80B7FA9511443ACD0EB7C299113C4032CD0EE12217 ;18116E0189CB0EEB22C90EC378001177D1E17EA3B21C08F07088888870FE002422221C1C22221200FCF8100808ED ;18178001001090A8A8A848087E0088884078808040F80018608060187A ;1817950100788060E80808080EB ;1816C30100FE041804FEFE08100020FE7C8282827CFE001212120C7C84 ;1816D8010082A242BCFE123252008C4C92929264020200FE02027PM DISK FILE IN ; SUBLOGIC STANDARD FORMAT AND RELOCATABLY LOADS IT INTO 20000000000824438442800FE28441010CB ;18161B01007C10100080600000001010101010000080000000402010FA ;181630010008047CA2928A7C00008 40C277112EFF07 ;1911830111E5E52ACB0EE52AC9040EEB3E5832CE0EC388A411AF32CD0E3F ;19119901443ACE0EB7CA5B113D4832CE0E2AC70EC9CD88B680788850200050881EA0A0907E8800C8A898880097 ;1817AA0100106C82000000EE00000000826C100020100010100854AAE6 ;0E17BF010054AA54470001 ; SYSTEM MEMORY. THIS PROGRAM IS DESIGNED TO BE USER- ; INTERACTIVE AND EASY TO US TFCB = 005CH ;DEFAULT FILE CTRL BLOCK 0080 TBUFF = 0080H ;DEFAULT BUFFER LOCATION 001A RF8: .BYTE 0 ; RELOCATION CODE STORAGE 0205 0000 REL: .WORD 0 ; RELOCATION CONSTANT 0207 UE 03B8 0D0A57494C4C WILL BE DIFFERENT IF YOU PLAN ON DOWN-LOADING 03E7 0D0A54484520 THE PROGRAM FROM A HIGHER ADUENCE WHENEVER INVOKED. .DEFINE SYSCAL[ARG,FUNCT]=[ MVI C,FUNCT 02DC MSG2: .ASCII / 02DC 0D0A 02DE 0D0A4E4F5720 NOW ENTER YOUR 4 HEX CHARACTER LOAE. ; ; ASSEMBLY DIRECTIVES ; CTRLZ = 001AH ;END OF DISK FILE MARK ; ; CONSOLE MESSAGES 0000 ADDRS: .WORD 0 ; LOAD ADDRESS 0209 080000000000 RBUF: .BYTE 8,0,0,0,0,0,0,0,0,0 ; CONSOLE BUFFERDRESS OR BURNING 0415 0D0A41205052 A PROM. 041E 0D0A 0420 0D0A4C4F4144 LOAD ADDRESS = $/ 0432 LXI D,ARG CALL 0005H] 0200 .LOC 200H D TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 2 .MAIN. - 0303 0D0A4 .PABS 0100 .LOC 0100H ; ; ENTRY ACTION 0100 C3 0217 5052494E5420 MSG1: .ASCII /PRINT YOUR RELOCATION BASE ADDRESS 0239 0D0A464F4C4C FOLLOWED BY RETURN. FOUR HEX 0213 8000 BCOUNT: .WORD 80H ;BUFFER COUNTER 0215 0000 STKSAV: .WORD 0 MSG3: .ASCII / 0432 0D0A 0434 0D0A594F5552 YOUR PROGRAM HAS BEEN RELOCATED. NOW GO ; VARIABLE DEFINITIONS 0200 00 CKSM: .BYTE 0 ; CHECKSUM 0201 00 B1444452 ADDRESS (THE POINT IN MEMORY WHERE YOU 032B 050A57414E54 WANT YOUR CODE LOADED). THIS VALUE IS USUALLY 035B E904 CPMNTRY: JMP ENTRY ;CPM ENTRY AT 0100 ; ; MACRO DEFINITIONS CHARACTERS MUST BE 026A 0D0A54595045 TYPED (LEADING ZEROS TOO). FOR EXAMPLE: 0293 0D0A52454C4F RELO ADDR = 0F26 ( ; ; EQUATES 0005 FDOS = 0005H ;CPM SYSTEM CALL ENTRY POINT 005C 045D 0D0A494E544F INTO DDT AND SAVE IT. 0474 0D0A 0476 0D0A24 $/ 0479 MSGCNT: .BYTE 0 ; BLOCK COUNT 0202 0000 INDX: .WORD 0 ; MEMORY LOAD POINTER 0204 00 0D0A54484520 THE SAME AS THE RELO ADDRESS IF YOU PLAN TO 0388 0D0A52554E20 RUN THE PROGRAM IN RAM IMMEDIATELY. THE VAL ; SYSTEM CALL MACRO: THIS MACRO EXPANDS THE THREE ; INSTRUCTION SYSTEM CALLING SEQRETURN) 02AE 0D0A4E4F572C NOW, RELOCATE YOUR PROGRAM. 02CB 0D0A 02CD 0D0A52454C4F RELO ADDR = $/ 4: .ASCII / 0479 0D0A 047B 0D0A43484543 CHECKSUM ERROR ENCOUNTERED. YOU 049C 0D0A48415645 HAV HEX2B: LXI D,RBUF+2 ;H MSB CONVERT 0541 1A LDAX D 0542 CDF905 CALL GHX 051C 0E0F SYSCAL TFCB,15 ;OPEN FILE 0524 C36305 JMP MEMWT ;RELOCATE FILE CALL GHX 0560 B5 ORA L 0561 6F MOV L,A 0562 C9 0E0A SYSCAL RBUF,10 ;READ RELO 0500 CD3E05 CALL HEX2B ;CONVERT TO BINARY 0503 7 MOV H,A 0551 13 INX D ;L MSB CONVERT 0552 1A LDAXE A BAD DISK FILE. CLOSING FILE AND RETURNING TO 04D1 0D0A43504D20 CPM OPERATING SYSTEM.$/ ; 0545 87 ADD A 0546 87 ADD A 0547 87 ADD A 0548 0527 0E10 CLOSE: SYSCAL TFCB,16 ;CLOSE FILE 052F 0E09 SYSCAL MSG3,9 ;PRINT CLOSING MESSAG RET 0563 AF MEMWT: XRA A ; CLEAR CHECKSUM 0564 320002 STA CKSM 0567 CD0 220502 SHLD REL 0506 0E09 SYSCAL MSG2,9 ;ASK USER FOR LOAD ADDR. 050E 0E0A D 0553 CDF905 CALL GHX 0556 87 ADD A 0557 87 ADD A ; PROGRAM *************************************** ; ; GE 87 ADD A 0549 67 MOV H,A 054A 13 INX D ; H LSBE 0537 2A1502 EXIT1: LHLD STKSAV 053A F9 SPHL 053B C30000 JMP 0106 FNDST: CALL ASCII ; FIND START POINT 056A FE3B CPI ';' 056C C26705 JNZ SYSCAL RBUF,10 ;READ LOAD ADDR. 0516 CD3E05 CALL HEX2B ;CONVERT TO BINARY 0519 0558 87 ADD A 0559 87 ADD A 055A 6F MOV L,A T RELOCATION AND LOAD ADDRESS 04E9 210000 ENTRY: LXI H,0 ;SAVE STACK 04EC 39 DAD CONVERT TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 3 .MAIN. - 054B ;BACK TO CPM ; ; CONVERT HEX RBUF TO BINARY H,L 053E 110B02 FNDST ; 056F CDE005 COUNT: CALL RBYTE ; GET BYTE COUNT 0572 320102 220702 SHLD ADDRS ;STORE IT. ; ; DISK CONTROLLED RELOCATION 055B 13 INX D ;L LSB CONVERT 055C 1A LDAX D 055D CDF905 SP 04ED 221502 SHLD STKSAV 04F0 0E09 SYSCAL MSG1,9 ;ASK USER FOR RELO 04F8 1A LDAX D 054C CDF905 CALL GHX 054F B4 ORA H 0550 6 STA BCNT ; 0575 CDE005 LADDR: CALL RBYTE ; GET LOAD ADDRESS 0578 57 B0 CDD005 CALL SAVE 05B3 C28B05 NEXT: JNZ LOOP ; NEXT BYTE IF COUNT ISN'T UP D RELOCATION 05A0 7D MOV A,L ; STORE IT IN MEMORY 05A1 E5 PUSH H 05A2 COUNT 05D0 2A0202 SAVE: LHLD INDX 05D3 77 MOV M,A 05D4 23 INX 320402 STA RF8 058B CDBC05 LOOP: CALL SBIT ; GET CONTROL BIT 058E D2AD05 DECBT ;DECREMENT BYTE COUNT ; COUNT IS UP- NEW CONTROL WORD IS NEEDED 05C7 CDE005 MOV D,A 0579 CDE005 CALL RBYTE 057C 5F MOV E,A 057D 2A0702 ; CHECK FOR PARITY ERRORS 05B6 CDE005 ERRCK: CALL RBYTE ; GET CHECKSUM 05B9 CA6705 J CDD005 CALL SAVE 05A5 E1 POP H 05A6 7C MOV A,H 05A7 H 05D5 220202 SHLD INDX 05D8 3A0102 DECBT: LDA BCNT 05DB 3D DCR JNC PURE ; 0 CONTROL= NO RELO 0591 CDE005 RELOC: CALL RBYTE ; ELSE RELOCATE 0594 5F CALL RBYTE ; READ WORD 05CA 37 STC ; SET COUNT FLAG 05CB 8F ADC A LHLD ADDRS 0580 19 DAD D ; ADD LOAD ADDRESS 0581 220202 SHLD INDX Z FNDST ; ZERO CHECKSUM- NO ERROR ; SBIT SUBROUTINE- GETS AND SHIFTS THROUGH CDD005 CALL SAVE TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 4 .MAIA 05DC 320102 STA BCNT 05DF C9 RET ; GET 2 HEX ASCII CHARMOV E,A ; GET 2 BYTES INTO D,E 0595 CDBC05 CALL SBIT 0598 CDE005 CALL RBYTE 0 ; SHIFT OUT 1ST BIT 05CC 320402 STA RF8 05CF C9 RET ; 0584 CDE005 ABFLG: CALL RBYTE ; IGNORE ABSOLUTE FLAG ; ; AN 8 BIT CONTROL WORD WHEN CALLED 05BC 3A0402 SBIT: LDA RF8 ; SHIFT CONTROL 05BF 87 N. - 05AA C3B305 JMP NEXT 05AD CDE005 PURE: CALL RBYTE ; STORE BYTE AS IT IS 05S, COMBINE INTO BYTE ; AND RETURN IN ACCUMULATOR 05E0 CDF605 RBYTE: CALL GETHX ; GET 1ST59B 57 MOV D,A 059C 2A0502 LHLD REL 059F 19 DAD D ; AD; ; SAVE SUBOUTINE- PUTS A IN (INDEX), INCREMENTS ; INDEX AND DECREMENTS WORD ; LOAD THE RELOCATABLE DATA STRING 0587 AF RELL: XRA A ; CLEAR BIT COUNT 0588 ADD A 05C0 320402 STA RF8 05C3 C0 RNZ 05C4 CDD805 CALL HEX CHAR. 05E3 87 ADD A ; LEFT SHIFT 4 05E4 87 ADD A 05E5 87 MOV A,M 061B E67F ANI 7FH 061D FE1A CPI CTRLZ 061F CA2 ; DISK-BASED ASCII READ ROUTINE 0601 E5 ASCII: PUSH H 0602 C5 PUSH B001A DATOK 0629 DECBT 05D8 ENTRY 04E9 ERRCK 05B6 ERROR 0630 EXIT1 0537 RET ; GET A HEX CHARACTER 05F6 CD0106 GETHX: CALL ASCII ; TAKE ASCII CHAR, 05F9 SYSCAL TFCB,16 ;CLOSE FILE 0640 C33705 JMP EXIT1 ;BACK TO CPM 0064 .EN ADD A 05E6 87 ADD A 05E7 4F MOV C,A 05E8 CDF605 705 JZ CLOSE 0622 2C INR L 0623 C22906 JNZ DATOK 0626 0603 D5 PUSH D 0604 2A1302 LHLD BCOUNT 0607 3A1302 LDA B FDOS 0005 FNDST 0567 GETHX 05F6 GHX 05F9 HEX2B 053E INDX 0202 LADDR DE30 GHX: SBI 30H ; AND TURN INTO HEX 05FB FE0A CPI 0AH 05FD F8 D 0100 TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 CALL GETHX ; GET 2ND HEX CHAR. 05EB 81 ADD C ; COMBINE WITH 1ST 05EC 47 218000 LXI H,0080H ;OUT OF DATA, RESET 0629 221302 DATOK: SHLD BCOUNT 062C D1 COUNT 060A FE80 CPI 80H ;IF 80 THEN NEW DATA NEEDED 060C C21706 JNZ NOREAD 0575 LOOP 058B MEMWT 0563 MSG1 0217 MSG2 02DC MSG3 0432 MSG4 0479 RM 05FE DE07 SBI 07H ; ELIMINATE 9-A ASCII GAP 0600 C9 RET PAGE 6 .MAIN. - +++++ SYMBOL TABLE +++++ ABFLG 0584 ADDRS 0207 ASCII 0601 MOV B,A ; UPDATE CHEKSUM 05ED 3A0002 LDA CKSM 05F0 80 ADD B 0 POP D 062D C1 POP B 062E E1 POP H 062F C9 060F 0E14 SYSCAL TFCB,20 ;READ A DISK FILE 0617 2A1302 NOREAD: LHLD BCOUNT 061A 7E NEXT 05B3 NOREAD 0617 PURE 05AD RBUF 0209 RBYTE 05E0 REL 0205 RELL ; TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 5 .MAIN. - BCNT 0201 BCOUNT 0213 CKSM 0200 CLOSE 0527 COUNT 056F CPMNTR 0100 CTRLZ 5F1 320002 STA CKSM 05F4 78 MOV A,B ; RESTORE BYTE 05F5 C9 RET ; 0630 0E09 ERROR: SYSCAL MSG4,9 ;PRINT ERROR MESSAGE 0638 0E10 0587 RELOC 0591 RF8 0204 SAVE 05D0 SBIT 05BC STKSAV 0215 TBUFF 0080 2g DM!V TFCB 005C .BLNK. 0000:03 X .DATA. 0000* X .PROG. 0000' X }lg:q { 2~ <:8641/,*'# `i"^ r#s#< V#^> }lg:v T$F& D8D( f0($ oT])) m * PIP COM %550%5 '550'5 i`N#F <:8641/,*'# m * PIP COM `i"^ p+q+"X #N#F"X DM!V r#s#< V#^> m * oT])) }lg:q { 2~ }lg:v T$F& D8D( f0($ (((/ <:8641/,*'# `i"^ W:2g DM!V r#s#< V#^> oT])) }lg:q { 2~ RELOCPM TESTPROG.REL (CARRIAGE RETURN) FROM THIS POINT ON, THE RELOCATOR PROGRAM WILL TELL YOU WHAT TO DO. IF 40D0A0D0A4E4F5720454E54455220594F55522034EA :1802F0002048455820434841524143544552204C4F41440D0A41444424 :180308005245535320285 TO BE WIPED-OUT ON SOME SYSTEMS. A GOOD WAY TO CHECK WHICH AREAS ARE WIPED OUT IS TO FILL THIS AREA WITH ALL ONE VALUE, RELO00500E :1802180052494E5420594F55522052454C4F434154494F4E204241531C :180230004520414444524553530D0A464F4C4C4F5745442042592052ABACE. NOTE THAT THE PROGRAM IS NOT USABLE AT 2300 SINCE IT IS RELOCATED FOR A D000 ADDRESS. YOU MUST BE VERY CAREFUL WH CONTACT: SUBLOGIC COMPANY 201 W. SPRINGFIELD AVE. CHAMPAIGN, ILLINOIS 61820 (217) 359-8482 4484520504F494E5420494E204D454D4F5276 :180320005920574845524520594F550D0A57414E5420594F5552204391 :180338004F4445204C4F4144454197DE5CDD005E17CCD2E :1805A800D005C3B305CDE005CDD005C28B05CDE005CA67053A04028796 :1805C000320402C0CDD805CDE005378F320402C92A0243504D204F5045524154494E472053595354454D2ED2 :1804E80024210000392215020E09111702CD05000E0A110902CD05002C :18050000CD3E05220502OAD ADDRESS (THE POINT IN MEMORY WHERE YOU WANT YOUR CODE LOADED). THIS VALUE IS USUALLY THE SAME AS THE RELO ADDRESS IF YOU04255CA :18041000524E494E470D0A412050524F4D2E0D0A0D0A4C4F41442041C3 :18042800444452455353203D20240D0A0D0A594F55522050524F47522 04292E20544849532056414C554520A0 :18035000495320555355414C4C59200D0A5448452053414D4520415398 :18036800205448452052454C4F20414440277232202021A :1805D8003A01023D320102C9CDF605878787874FCDF60581473A000294 :1805F0008032000278C9CD0106DE30FE0AF8DE07C9E5C5D52A0E0911DC02CD05000E0A110902CD0500CD3EC1 :18051800052207020E0F115C00CD0500C363050E10115C00CD05000EA9 :1805300009113204CD05002A15 PLAN TO RUN THE PROGRAM IN RAM IMMEDIATELY. THE VALUE WILL BE DIFFERENT IF YOU PLAN ON DOWN-LOADING THE PROGRAM FROM A HIGHF :18044000414D20484153204245454E2052454C4F43415445442E204E91 :180458004F5720474F0D0A494E544F2044445420414E442053415645A1 :188 ("45245535320494620594F5538 :1803800020504C414E20544F0D0A52554E205448452050524F4752415F :180398004D20494E2052414D20494D4D454449413023A76 :180608001302FE80C217060E14115C00CD05002A13027EE67FFE1ACA03 :1806200027052CC22906218000221302D1C1E1C90E09117904CD050002F9C30000110B021ACDF905878787FC :180548008767131ACDF905B467131ACDF905878787876F131ACDF9051F :18056000B56FC9AF320002CD0106FE3BER ADDRESS OR BURNING A PROM. LOAD ADDRESS = $ YOUR PROGRAM HAS BEEN RELOCATED. NOW GO INTO DDT AND SAVE IT. CHE0470002049542E0D0A0D0A240D0A0D0A434845434B53554D204552FF :18048800524F5220454E434F554E54455245442E20594F550D0A484122 :1804A000 PRINT YOUR RELOCATION BASE ADDRESS FOLLOWED BY RETURN. FOUR HEX CHARACTERS MUST BE TYPED (LEADING ZEROS154454C592E2054480B :1803B000452056414C5545200D0A57494C4C204245204449464645526D :1803C800454E5420494620594F5520504C414E204F4E2EE :0B0638000E10115C00CD0500C337055B :000064009C C26705CDE005320102CDE005DF :1805780057CDE0055F2A070219220202CDE005AF320402CDBC05D2ADEB :1805900005CDE0055FCDBC05CDE005572A0502CKSUM ERROR ENCOUNTERED. YOU HAVE A BAD DISK FILE. CLOSING FILE AND RETURNING TO CPM OPERATING SYSTEM.$! 5645204120424144204449534B2046494C452E20434C4F5357 :1804B800494E472046494C4520414E442052455455524E494E472054C9 :1804D0004F0D0A TOO). FOR EXAMPLE: RELO ADDR = 0F26 (RETURN) NOW, RELOCATE YOUR PROGRAM. RELO ADDR = $ NOW ENTER YOUR 4 HEX CHARACTER L0444F574E2DDD :1803E0004C4F4144494E470D0A5448452050524F4752414D2046524FD0 :1803F8004D2041204849474845522041444452455353204F522 CALL 0005H] .LOC 200H ; VARIABLE DEFINITIONS CKSM: .BYTE 0 ; CHECKSUM BCNT: .BYTE 0 ; BLOCK COUNT INDX: TAKES A CPM DISK FILE IN ; SUBLOGIC STANDARD FORMAT AND RELOCATABLY LOADS IT INTO ; SYSTEM MEMORY. THIS PROGRAM IS DESIGNED TODDRESS OR BURNING A PROM. LOAD ADDRESS = $/ MSG3: .ASCII / YOUR PROGRAM HAS BEEN RELOCATED. NOW GO INTO DDT AND SA INT YOUR RELOCATION BASE ADDRESS FOLLOWED BY RETURN. FOUR HEX CHARACTERS MUST BE TYPED (LEADING ZEROS TOO). FOR EXAMPLE: RELO .WORD 0 ; MEMORY LOAD POINTER RF8: .BYTE 0 ; RELOCATION CODE STORAGE REL: .WORD 0 ; RELOCATION CONST BE USER- ; INTERACTIVE AND EASY TO USE. ; ASSEMBLY DIRECTIVES .PABS .LOC 0100H .SALL .LADDR ; ENTRY ACTION VE IT. MSG4: .ASCII / CHECKSUM ERROR ENCOUNTERED. YOU HAVE A BAD DISK FILE. CLOSING FILE AND RETURNING TO CPM O ADDR = 0F26 (RETURN) NOW, RELOCATE YOUR PROGRAM. RELO ADDR = $/ MSG2: .ASCII / NOW ENTER YOUR 4 HEX CHARACTER LOAD ADDRS: .WORD 0 ; LOAD ADDRESS RBUF: .BYTE 8,0,0,0,0,0,0,0,0,0 ; CONSOLE BUFFER BCOUNT: .WORD 80H ;BUFFER CO CPMNTRY: JMP ENTRY ;CPM ENTRY AT 0100 ; MACRO DEFINITIONS ; SYSTEM CALL MACRO: THIS MACRO EXPANDS THE THREE ; INSTRUCTPERATING SYSTEM.$/ ; PROGRAM *************************************** ; GET RELOCATION AND LOAD ADDRESS ENTRY: LXI H, ADDRESS (THE POINT IN MEMORY WHERE YOU WANT YOUR CODE LOADED). THIS VALUE IS USUALLY THE SAME AS THE RELO ADDRESS IF YOU PLA UNTER STKSAV: .WORD 0 ; EQUATES FDOS = 0005H ;CPM SYSTEM CALL ENTRY POINT TFCB = 005CH ;DEFAULT FILE CTRL BLOCK ION SYSTEM CALLING SEQUENCE WHENEVER INVOKED. .DEFINE SYSCAL[ARG,FUNCT]=[ MVI C,FUNCT LXI D,ARG 0 ;SAVE STACK DAD SP SHLD STKSAV SYSCAL MSG1,9 ;ASK USER FOR RELO SYSCAL RBUF,10; ***** SUBLOGIC RELOCATABLE CPM DISK LOADER ***** ; WRITTEN: 6,11,79 ; AUTHOR: B.ARTWICK ; THIS PROGRAM INTERACTIVELY N TO RUN THE PROGRAM IN RAM IMMEDIATELY. THE VALUE WILL BE DIFFERENT IF YOU PLAN ON DOWN-LOADING THE PROGRAM FROM A HIGHER A TBUFF = 0080H ;DEFAULT BUFFER LOCATION CTRLZ = 001AH ;END OF DISK FILE MARK ; CONSOLE MESSAGES MSG1: .ASCII /PR ;READ RELO CALL HEX2B ;CONVERT TO BINARY SHLD REL SYSCAL MSG2,9 ;ASK USER FOR LOAD ADDR. BIT JNC PURE ; 0 CONTROL= NO RELO RELOC: CALL RBYTE ; ELSE RELOCATE MOV E,A ; GET 2 BYTES INTO D,E STA CKSM FNDST: CALL ASCII ; FIND START POINT CPI ';' JNZ FNDST COUNT: CALL RBYTE ; GET BYTE C SHLD INDX DECBT: LDA BCNT DCR A STA BCNT RET ; GET 2 HEX ASCII CHARS, COMBINE INTO BYTE ; AD A ADD A ADD A ADD A MOV H,A INX D ; H LSB CONVERT LDAX D SHIFTS THROUGH ; AN 8 BIT CONTROL WORD WHEN CALLED SBIT: LDA RF8 ; SHIFT CONTROL ADD A STA RF8 SYSCAL RBUF,10 ;READ LOAD ADDR. CALL HEX2B ;CONVERT TO BINARY SHLD ADDRS ;STORE IT. CALL SBIT CALL RBYTE MOV D,A LHLD REL DAD D ; ADD RELOCATION MOV AOUNT STA BCNT LADDR: CALL RBYTE ; GET LOAD ADDRESS MOV D,A CALL RBYTE MOV E,A ND RETURN IN ACCUMULATOR RBYTE: CALL GETHX ; GET 1ST HEX CHAR. ADD A ; LEFT SHIFT 4 ADD A AD D CALL GHX ORA H MOV H,A INX D ;L MSB CONVERT LDAX D CALL G RNZ CALL DECBT ;DECREMENT BYTE COUNT ; COUNT IS UP- NEW CONTROL WORD IS NEEDED CALL RBYTE ; READ WORDISK CONTROLLED RELOCATION SYSCAL TFCB,15 ;OPEN FILE JMP MEMWT ;RELOCATE FILE CLOSE: SYSCAL TFCB,16 ;,L ; STORE IT IN MEMORY PUSH H CALL SAVE POP H MOV A,H CALL SAVE JMP LHLD ADDRS DAD D ; ADD LOAD ADDRESS SHLD INDX ABFLG: CALL RBYTE ; IGNORE ABSOLUTE FLAG ; D A ADD A MOV C,A CALL GETHX ; GET 2ND HEX CHAR. ADD C ; COMBINE WITH 1ST HX ADD A ADD A ADD A ADD A MOV L,A INX D ;L LSB CONVERT STC ; SET COUNT FLAG ADC A ; SHIFT OUT 1ST BIT STA RF8 RET ; SAVE SUBOUTICLOSE FILE SYSCAL MSG3,9 ;PRINT CLOSING MESSAGE EXIT1: LHLD STKSAV SPHL JMP 0 ;BACK TO NEXT PURE: CALL RBYTE ; STORE BYTE AS IT IS CALL SAVE NEXT: JNZ LOOP ; NEXT BYTE IF COUNT ISN'T UP ; CHECK LOAD THE RELOCATABLE DATA STRING RELL: XRA A ; CLEAR BIT COUNT STA RF8 LOOP: CALL SBIT ; GET CONTROL MOV B,A ; UPDATE CHEKSUM LDA CKSM ADD B STA CKSM MOV A,B ; RESTORE BYTE LDAX D CALL GHX ORA L MOV L,A RET MEMWT: XRA A ; CLEAR CHECKSUM NE- PUTS A IN (INDEX), INCREMENTS ; INDEX AND DECREMENTS WORD COUNT SAVE: LHLD INDX MOV M,A INX H CPM ; CONVERT HEX RBUF TO BINARY H,L HEX2B: LXI D,RBUF+2 ;H MSB CONVERT LDAX D CALL GHX ADFOR PARITY ERRORS ERRCK: CALL RBYTE ; GET CHECKSUM JZ FNDST ; ZERO CHECKSUM- NO ERROR ; SBIT SUBROUTINE- GETS AN RET ; GET A HEX CHARACTER GETHX: CALL ASCII ; TAKE ASCII CHAR, GHX: SBI 30H ; AND TURN INTO HEX CPI 0AH TA BASE .LIST .RADIX 10 ; SUBLOGIC UNIVERSAL GRAPHICS INTERPRETER PREAMBLE ; FOR USE WITH TDL MACRO ASSEMBLER. ; THE .BYTE 20H,INSIDE] .DEFINE XREC [W,X,Y,Z]=[ .BYTE 21H,W,X,Y,Z] .DEFINE XSREC [W,X,Y,Z]=[ .BYTE 22H,W,X,Y BCOUNT POP D POP B POP H RET ERROR: SYSCAL MSG4,9 ;PRINT ERROR MESSAGE .BYTE 0EH,X,Y] .DEFINE XCRSR [X,Y]=[ .BYTE 10H,X,Y] .DEFINE XCON [X,Y]=[ .BYTE 12H,X,Y] .DEFINE XCONR [X RM SBI 07H ; ELIMINATE 9-A ASCII GAP RET ; DISK-BASED ASCII READ ROUTINE ASCII: PUSH H MACROS HERE EXPAND INTO STANDARD UGI FORM AND ; SHOULD BE SELF-EXPLANITORY .DEFINE XERS =[ .BYTE 01] .DEFINE XNR .DEFINE XCIR [X,Y,R]=[ .BYTE 25H,X,Y,R] .DEFINE XSCIR [X,Y,R]=[ .BYTE 27H,X,Y,R] .DEFINE XPGN [N]=[ SYSCAL TFCB,16 ;CLOSE FILE JMP EXIT1 ;BACK TO CPM .END 0100 ,Y]=[ .BYTE 14H,X,Y] .DEFINE XRAY [X,Y]=[ .BYTE 16H,X,Y] .DEFINE XRAYR [X,Y]=[ .BYTE 18H,X,Y] .DEF PUSH B PUSH D LHLD BCOUNT LDA BCOUNT CPI 80H ;IF 80 THEN NEW DATA NEEDED M =[ .BYTE 02] .DEFINE XINV =[ .BYTE 03] .DEFINE XEOF =[ .BYTE 04] .DEFINE XWAIT [N]=[ .B .BYTE 29H,N] .DEFINE XCHR2 [CHAR]=[ .BYTE 30H,CHAR,10H,6,0] .DEFINE XCHR2S [CHAR]=[ .BYTE 31H,CHAR,10H INE XBRN [LABEL]=[ .BYTE 1DH .BYTE (LABEL-.-2)/256 .BYTE LABEL-.-2 -(LABEL-.-2)/256*256] .DEFINE XH JNZ NOREAD SYSCAL TFCB,20 ;READ A DISK FILE NOREAD: LHLD BCOUNT MOV A,M ANI 7FH CYTE 05,N] .DEFINE XLIN [W,X,Y,Z]=[ .BYTE 06,W,X,Y,Z] .DEFINE XUPL =[ .BYTE 08] .DEFINE XMID =[ .BY; ***** GODBOUT DEMO PROGRAMS ***** .XLIST .INSERT UGIGB.ASM ;PUT UGI TEST PROGRAM IN SAMPLE: .BLKB 0 ;SAMPLE DA,0,6] .DEFINE XCHR1 [CHAR]=[ .BYTE 34H,CHAR,10H,12,0] .DEFINE XCOL [C]=[ .BYTE 40H,C] .DEFINE XSBSM =[ LIN [XS,XE,Y]=[ .BYTE 1EH,XS,XE,Y] .DEFINE XVLIN [YS,YE,X]=[ .BYTE 1FH,YS,YE,X] .DEFINE XBND [INSIDE]=[ PI CTRLZ JZ CLOSE INR L JNZ DATOK LXI H,0080H ;OUT OF DATA, RESET DATOK: SHLD TE 09] .DEFINE XPNT [X,Y]=[ .BYTE 0AH,X,Y] .DEFINE XPNTR [X,Y]=[ .BYTE 0CH,X,Y] .DEFINE XCRS [X,Y]=[ .BYTE 42H] .DEFINE XCBSM =[ .BYTE 43H] .DEFINE XSYNC =[ .BYTE 44H] .DEFINE XCHR1L [CHAR] = [ .BY 'T' XCRS 20,35 XCON 20,-45 XCON 110,-45 XCRS 20,-40 ;GRAPH X LINE XCON 30,-20 XCON 2 'W' XCHR2 'I' XCHR2 'T' XCHR2 'H' XCHR2 ' ' XCHR2 '3' XCHR2 'D' XCHR2 ' ' XLIN -2,30,-107,0 ;3D HOIZ LINES XLIN -2,22,-107,-8 XLIN -2,10,-107,-20 XLIN -2,0,-107,-30 XLIN XCHR1 'P' XCHR1 'E' XCHR1 'C' XCHR1 'T' XCHR1 'R' XCHR1 'U' XCHR1 'M' XCRS ' ' XCHR2S '2' XCHR2S '0' XCHR2S ' ' XCHR2S '3' XCHR2S '0' XCHR2S ' ' XCHR2S '4' TE 34H,CHAR+20H,10H,12,0] .DEFINE XCHR2L [CHAR] = [ .BYTE 30H,CHAR+20H,10H,6H,0] .SALL .LIST .DEFINE XCHR1D [CHAR] = [40,-30 XCON 50,-10 XCON 60,-5 XCON 70,5 XCON 80,-15 XCON 90,5 XCON 100,-20 XCON XCHR2 'A' XCHR2 'N' XCHR2 'D' XCHR2 ' ' XCHR2 '2' XCHR2 'D' XCHR2 ' ' XCHR2 -2,-20,-107,-50 XLIN -70,10,-107,-18 ;VERT LINES XLIN -60,12,-107,-50 XLIN -50,16,-55,-53 XLIN -100,90 XCHR1L 'F' XCHR1L 'O' XCHR1L 'R' XCHR1 ' ' XCHR1L 'T' XCHR1L 'H' XCHR1L 'E XCHR2S '0' XCHR2S ' ' XCHR2S '5' XCHR2S '0' XCIR 25,50,5 ;CIRCLES XCIR 45,50,10 XCIR .BYTE 10H,0,-4,34H,CHAR+20H,10H,12,4] ;PROGRAM CAN START HERE ############################ NOP SAMPLX: 110,10 XCRS 20,-53 ;HORIZ MARKINGS XCHR2 'J' XCHR2 ' ' XCHR2 'F' XCHR2 ' ' XCHR2 'M 'S' XCHR2 'O' XCHR2 'F' XCHR2 'T' XCHR2 'W' XCHR2 'A' XCHR2 'R' XCHR2 'E' -40,19,-2,-53 XLIN -30,21,-2,10 .BYTE 2BH,-80,50,5,10 .BYTE 2BH,-80,50,10,20 ;ELLYPSE .BYT' XCHR1 ' ' XCHR1 'S' XCHR1 '-' XCHR1 '1' XCHR1 '0' XCHR1 '0' XCHR1 ' ' X 65,50,15 XSCIR 95,50,20 XCRS 30,10 ;GRAPH CAPTION XCHR2 'G' XCHR2 'H' XCHR2 'I' XCHR2 NOP XERS XREC -126,-63,125,125 XCRS -106,110 XCHR1 'C' XCHR1L 'O' XCHR1L 'M' XCH' XCHR2 ' ' XCHR2 'A' XCHR2 ' ' XCHR2 'M' XCHR2 ' ' XCHR2 'J' XCHR2 ' ' X XCHR2 ' ' XCHR2 'S' XCHR2 'U' XCHR2 'P' XCHR2 'P' XCHR2 'O' XCHR2 'R' XCHR2 E 2BH,-80,50,33,10 XSREC -28,57,-22,63 XREC -31,54,-19,66 XREC -34,51,-16,69 XREC -37,48,-13,72 XCHR1 'B' XCHR1L 'U' XCHR1L 'S' XLIN -120,88,120,88 XLIN 0,88,0,-53 XCRS -100,-61 XCHR' ' XCHR2 'R' XCHR2L 'E' XCHR2L 'S' XCHR2L 'U' XCHR2L 'L' XCHR2L 'T' XCHR2L 'S' R1D 'P' XCHR1L 'U' XCHR1 'P' XCHR1L 'R' XCHR1L 'O' XCHR1 ' ' XCHR1 ' ' XCHR1 'S' CHR2 'J' XCHR2 ' ' XCHR2 'A' XCRS 11,-45 ;VERT. MARKINGS XCHR2S '1' XCHR2S '0' XCHR2SREC -40,45,-10,75 XWAIT 10 XBRN SAMPLX XEOF .END 100H TE 09] .DEFINE XPNT [X,Y]=[ .BYTE 0AH,X,Y] .DEFINE XPNTR [X,Y]=[ .BYTE 0CH,X,Y] .DEFINE XCRS [X,Y]=[ TA BASE .LIST .RADIX 10 ; SUBLOGIC UNIVERSAL GRAPHICS INTERPRETER PREAMBLE ; FOR USE WITH TDL MACRO ASSEMBLER. ; THE .BYTE 42H] .DEFINE XCBSM =[ .BYTE 43H] .DEFINE XSYNC =[ .BYTE 44H] .DEFINE XCHR1L [CHAR] = [ .BY .BYTE 20H,INSIDE] .DEFINE XREC [W,X,Y,Z]=[ .BYTE 21H,W,X,Y,Z] .DEFINE XSREC [W,X,Y,Z]=[ .BYTE 22H,W,X,Y .BYTE 0EH,X,Y] .DEFINE XCRSR [X,Y]=[ .BYTE 10H,X,Y] .DEFINE XCON [X,Y]=[ .BYTE 12H,X,Y] .DEFINE XCONR [X MACROS HERE EXPAND INTO STANDARD UGI FORM AND ; SHOULD BE SELF-EXPLANITORY .DEFINE XERS =[ .BYTE 01] .DEFINE XNRTE 34H,CHAR+20H,10H,12,0] .DEFINE XCHR2L [CHAR] = [ .BYTE 30H,CHAR+20H,10H,6H,0] .SALL .LIST .DEFINE XCHR1D [CHAR] = [ .DEFINE XCIR [X,Y,R]=[ .BYTE 25H,X,Y,R] .DEFINE XSCIR [X,Y,R]=[ .BYTE 27H,X,Y,R] .DEFINE XPGN [N]=[ ,Y]=[ .BYTE 14H,X,Y] .DEFINE XRAY [X,Y]=[ .BYTE 16H,X,Y] .DEFINE XRAYR [X,Y]=[ .BYTE 18H,X,Y] .DEFM =[ .BYTE 02] .DEFINE XINV =[ .BYTE 03] .DEFINE XEOF =[ .BYTE 04] .DEFINE XWAIT [N]=[ .B .BYTE 10H,0,-4,34H,CHAR+20H,10H,12,4] ;PROGRAM CAN START HERE ############################ NOP SAMPLX: .BYTE 29H,N] .DEFINE XCHR2 [CHAR]=[ .BYTE 30H,CHAR,10H,6,0] .DEFINE XCHR2S [CHAR]=[ .BYTE 31H,CHAR,10H INE XBRN [LABEL]=[ .BYTE 1DH .BYTE (LABEL-.-2)/256 .BYTE LABEL-.-2 -(LABEL-.-2)/256*256] .DEFINE XHYTE 05,N] .DEFINE XLIN [W,X,Y,Z]=[ .BYTE 06,W,X,Y,Z] .DEFINE XUPL =[ .BYTE 08] .DEFINE XMID =[ .BY NOP XERS .BYTE 47H,02 ;PUT INTO COLOR MODE XCOL 12H ;RED ERASE XERS XCOL 13H ; ***** GODBOUT DEMO PROGRAMS ***** .XLIST .INSERT UGIGB.ASM ;PUT UGI TEST PROGRAM IN SAMPLE: .BLKB 0 ;SAMPLE DA,0,6] .DEFINE XCHR1 [CHAR]=[ .BYTE 34H,CHAR,10H,12,0] .DEFINE XCOL [C]=[ .BYTE 40H,C] .DEFINE XSBSM =[ LIN [XS,XE,Y]=[ .BYTE 1EH,XS,XE,Y] .DEFINE XVLIN [YS,YE,X]=[ .BYTE 1FH,YS,YE,X] .DEFINE XBND [INSIDE]=[ ;BLUE REC XREC -90,-35,90,100 XCOL 20H ;YEL REC. XREC -70,-15,70,83 XCOL 16H ;GREE XWAIT 0 XBRN CLOOP .END 100H XWAIT 0 XCOL 20H XLIN 20,-10,-20,72 XWAIT 0 XCOL 12H ;LINES 6,9 `i"^ XWAIT 0 XCOL 12H XLIN 20,72,-20,-10 ;LINES 2/5 XWAIT 0 XCOL 20H XLI>/ 0N COMPUPRO XCRS -48,85 XCHR1 'C' XCHR1L 'O' XCHR1L 'M' XCHR1D 'P' XCHR1L 'U' XCHR>/ 0 XLIN 41,13,-41,52 XWAIT 0 XCOL 20H XLIN 0,-14,0,75 XWAIT 0 XCOL 12H g DM!V xN 45,31,-45,31 XWAIT 0 XCOL 12H ;LINES 3/6 XLIN 31,62,-31,0 XWAIT 0 XCOL 8 1 'P' XCHR1L 'R' XCHR1L 'O' XCRS -48,-30 XCOL 13H ;BLUE SPECTRUM XCHR1 'S' XCHR18 (";LINES 7,10 XLIN 31,0,-31,62 XWAIT 0 XCOL 20H XLIN -20,-10,20,72 XWAIT 0 :w 20H XLIN 41,13,-41,52 XWAIT 0 XCOL 12H ;LINES 4/7 XLIN 41,52,-41,13 XWAIT }lg:p 'P' XCHR1 'E' XCHR1 'C' XCHR1 'T' XCHR1 'R' XCHR1 'U' XCHR1 'M' ; DISPLAY LOOP XCOL 12H ;LINES 8,11 XLIN 20,-10,-20,72 XWAIT 0 XCOL 20H XLIN -31,0,31,62 XCOL 20H XLIN 31,0,-31,62 XWAIT 0 XCOL 12H ;LINES 5,8 XLIN 45,31,-45 CLOOP: XCOL 12H ;LINES 1/4 XLIN 0,75,0,-14 XWAIT 0 XCOL 20H XLIN 41,52,-41,13 p+q+"X #N#F"X r#s#< V#^> }lg:u oT])) z 2} ~~~~~~~~}}}}}}||||{{{{zzzyyyyxxwwwvvvuuttssrrqqppoonnmmlkkjiihgffedccba`_^]]\[ZYXVUTSRQPNMLJIGFDCA?><:8641/,*'# "