mim/mim/mimlib/debugr.msubr

   1 <PACKAGE "DEBUGR">
   2 <RENTRY EVAL-IN EVAL-OUT>
   3 <ENTRY MDEBUG DEBUG DEBUG-IN DEBUG-OUT STOP START HELP DEB-LEVEL DEB-IN DEB-OUT
   4 INDENT-INC INDENT-DIF INDENT-MOD SELF-FAST FORM-FAST OUT-FAST OUT-UNIQUE>
   5 <USE "INT">
   6 <GDECL (DEB-LEVEL) FIX>
   7 <INCLUDE-WHEN <DEBUGGING? "DEBUGR"> "DEBUGRDEFS">
   8 <USE "TTY">
   9
  10 <SETG \1adebug-IMSUBR #IMSUBR [|AAAJAPCOH\AEACDAAAAAAGDAAAAAAGCCE_CCE_BMH]AAAAAFGHCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUBAAYBACQBCDMAAA]BCH]AAAAAACACCERBCDMAABEBCH]AAAAABCBCCERBCDMAABMBECRBOAKDHCOBEASBEDKAAAECKCCDHCEBLCIAAAMBLCAAAAICKDNAAACDGAAAAGMCOFYAAFUBMHMAABQBMHMAABUBMGABMGIDQACBADMAAB]COFYAAF[COFYAAFUBMHNAAAIBMHNAAAMDQABBADMAACECOFYAAF[DAAAAAEYBMH]AAAAAICCBMH]AAAAAAGEBMGNBMHNH`H]DMAEBNCNH`H]BLCIAAAMBLCAAAAICLGWDQAADAAABCGSCOFYAAFUBMHMAACIBMHMAACMCOFYAAFUDQAABADMAACUCOFYAAF[CSEIBCDMAAC]BCH[H`CMBCEIBMH[H`CGBMGIDQACBADMAADECOFYAAF[COFYAAFUCOFYAAFUBMHMAACIBMHMAACMBADMAADMBMGYBMGQDQACBADMAADUCOFYAAF[BCDMAAD]BCGABCEIBMGABMGIDQABBADMAAEECOFYAAF[BADMAAA]BAH[H_H[BAF]AAAAAAABCKDNAAACDHDABMH[H`CWBMH]AAAAABDEBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAAAGCCOFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BMH[H`BEBMH]AAAAABE]BMGNBMHNH`H]DMAEBNCNH`H]BLCIAAAEBKEACLGWDQAADAAAAAA[BADNAAAEBAAVCOHYAAFOBQD]AAABBAB[H_EGCOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBADMAAA]BAH[H_DMCCEQBADMAABMBCCQBOAJDHBABCARBCDJAAAECKCBDHAWCOFYAAFUBADMAAD]BMGYBMGQDQABBADMAAEUCOFYAAF[COFYAAFUBMHMAACIBMHMAACMDQABBADMAAE]COFYAAF[BADMAABEBAHMAAFABAFMAAFEBADMAAFMBABMAAFICOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBIBMAAFUBAB[H_AIBQD]AAAACOFYACFYBIBMAAF]BAB[H^HYBQD]AAAACOFYACFYBADMAABMBCCQBOAJDHAKBCARBCDJAAAECKCBDGBABMH[H_BYBMH]AAAAACECBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH^EMDAAWCOFYAAFUBADMAAD]BMGYBMGQDQABBADMAAEECOFYAAF[BADMAABEBAH[H^E_CCEQCOFYAAFUBMHMAACIBMHMAACMDQABBADMAAGECOFYAAF[BADMAAA]BAH[H^DSBAF[H_DYBQD]AAABBAB[H^DGCOHYAAFOAAAABMH[H^B]CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUBAAYBACQBCDMAAA]BCH[H^B[CCERCOFYAAFUBCDMAAGMBMGZBMGRBLCIAAAEBKEADQABBADMAAGUCOFYAAF[FQD]ABCBDHA[COFYAAFUBMGABMGIBMGVBMHNAAAEDQACBADMAAG]COFYAAF[DABYCOFYAAFUBMHMAAHABMHMAAHEBMGVBMHNAAAEBLCIAAAMBLCAAAAIDQACBADMAAB]COFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMAACECOFYAAF[BADMAAA]BAH[H]F]BAF[H^GCBQD]AAABBAB[H]FQCOHYAAFOCOH\AEHWDAAAAAAKDAAAAAAKDAAAAAAKCCE_CCE_CCE_CCE_BMH]AAAQADACCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYBCDMAAAUBCAZBCCRBMH]AAASADBCBMGBBMGJBEDMAAHMBMGKBMHMAAHQBMHMAAHUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBMH[H`GKBMHMAAFABMHMAAFEBCDMAAH]BMGJBMHMABAABMHMABAEBMHZA`H`H`HYBMHJAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBDCKAAAEBCCNCKFJH`H]DLAEBCDJH`H]BMH[H`EGBMH]AAAMACGCBMGJBEDMABAMBMGKBMHMABAQBMHMABAUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCIAABMCOFYABA[BADMAAA]BAAYBACQBOAIDGAOBADMAAFEBAB]AAAKADCCDAAAACE_BADNAAAMFRHMABA]DGAAABAYCOFYAAFUBMHNAAAQBMHNAAAUBMHMABBABMHMABBEDQACBADMABBMCOFYAAF[BOAIDGAAACDOCOFYAAFUBMHNAAAQBMHNAAAUBMHMABBQBMHMABBUDQACBADMABBMCOFYAAF[BOAIDGAAACCKCOFYAAFUBMHNAAAQBMHNAAAUBMHMABBYBMHMABB]DQACBADMABBMCOFYAAF[BOAIDGAAACBGCOFYAAFUBMHNAAAQBMHNAAAUBMHMABCABMHMABCEDQACBADMABBMCOFYAAF[BOAIDGAAACACCOFYAAFUBMHNAAAQBMHNAAAUBMHMABCIBMHMABCMDQACBADMABBMCOFYAAF[BOAIDGAAABG_COFYAAFUBMHNAAAQBMHNAAAUBMHMABCQBMHMABCUDQACBADMABBMCOFYAAF[BOAIDGAAABF[COFYAAFUBMHNAAAQBMHNAAAUBMHMABCYBMHMABC]DQACBADMABBMCOFYAAF[BOAIDGAAABEWCOFYAAFUBMHNAAAQBMHNAAAUDQABBADMABDECOFYAAF[DAAAABD]FRHMABDMDGAAABCQCOFYAAFUBMHNAAAQBMHNAAAUBMHMABDQBMHMABDUDQACBADMABBMCOFYAAF[BOAIDGAAABCQCOFYAAFUBMHNAAAQBMHNAAAUBMHMABBQBMHMABBUDQACBADMABBMCOFYAAF[BOAIDGAAABBMCOFYAAFUBMHNAAAQBMHNAAAUBMHMABCABMHMABCEDQACBADMABBMCOFYAAF[BOAIDGAAABAICOFYAAFUBMHNAAAQBMHNAAAUBMHMABCIBMHMABCMDQACBADMABBMCOFYAAF[BOAIDGAAAAHECOFYAAFUBMHNAAAQBMHNAAAUBMHMABBYBMHMABB]DQACBADMABBMCOFYAAF[BOAIDGAAAAGACOFYAAFUBMHNAAAQBMHNAAAUBMHMABBABMHMABBEDQACBADMABBMCOFYAAF[BOAIDGAAAAE]COFYAAFUBMHNAAAQBMHNAAAUBMHMABCQBMHMABCUDQACBADMABBMCOFYAAF[BOAIDGDYCOFYAAFUBMHNAAAQBMHNAAAUBMHMABCYBMHMABC]DQACBADMABBMCOFYAAF[BOAIDGCWBMH[HZF]BMH]AAAAAHAQBMGNBMHNH`H]DMAEBNCNH`H]BMHNAAAYBMHNAAA]BLCIAABUBLCAAABQCLHOH`HYDQABDAAAAHEWDABECOFYAAFUBMHMABDYBMHMABD]BCDMAAHMBEDJAAAEBMGSBMHKAAAEDQACBADMAAB]COFYAAF[BLCIAABUBLCAAABQBADNAABMCOFYAAG_G]H]H`EUBADNAABUBABNAABQCOHYAAFOAAAABMH[H]CICCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYCOFYAAFUBCDMABEEBMGZBMGRDQABBLCIAAAMBADMABEMCOFYAAF[FQD]ABCBDHAAAAEUBADMABEEBAAYBACQCCEHB_BNAAACBLCHAABEBLD[HYEAAABABLCIAAAUBLCAAAAQCOFYABGIDAAAAAAEDADIBCDNAAAEBLCIAAAUBLCAAAAQCOFYABGOBLCIAAA]BLCAAAAYFQCHDGAEFRGJDHBQBIBNAAAQBKBNAAAUCOFYABG[COFYABGIDAAAAAAEDAACDAGMBLCJAAAEBLCHAABEBLD[HYBIAABABLCIAAAUBLCAAAAQDAAYBADMABEUCSFIAAAEBLCJAAAEBLCHAABEBLD[HYAIAABADABUBMH[HYDMBMH]AAAAAIC]BMGNBMHNH`H]DMAEBNCNH`H]BADMABAMCOFYACFSBMGABMGICLHOH`HYDQABDAAAA[FWBCDMABEUBCGABCEIAMDNAEABAAACDGBKCKFNAAAEDHBEBADNAAAEBOBIAAAEAMDIADCCAAACDGAUF_FMABE]DGAOBCDIH`H]BAAZBACRBLCIAAAEBKEABADMABEEBAGVBAFNAAAEBADMABFEBAAYBACQBLCAAABABOAIDGAAAFGSBCDMABEUBCAZBCCRBEDMABFMBEA[BECSFTGKDGB_BCDMAAA]BCAZBCCRFTH]AAAAAAADDHAQBCDMAAA]BCAZBCCRFTH]AAAAAAAEDGA_BCDMABFEBCHMAAFABCFMAAFEBADMAAFEBLD[H\E[AABABLCIAABEDAAAAFEABCDMAAA]BCAZBCCRFTH]AAAAAAACDGAAABCYCOFYAAFUBCDMABEUBMGZBMGRBCDMABFUBCAZBCCRBLCIAABEBLCAAABABAABBACJCOFYABGOBMGABMGIDQACBADMABF]COFYAAF[BLCAAABAFQD]ABCBDGAAAFBQBCDMABFUBCAZBCCRBLCIAABEBLCAAABABAABBACJCOFYABGOBCDMABEUBCAZBCCRBLCJAAA]BLCBAAAYBLCIAAAUBLCAAAAQFRGJDGAAAAFCFQCBDGAAAAE]COFYAAFUBMGVBMHNAAAECOFYAAFUBADMABFUBMGYBMGQBMH[HWEKBMH[H`DCDQACBADMABGECOFYAAF[BMGABMGIDQACBADMABGMCOFYAAF[FQD]ABCBDHC_BMH[HWGQBMH]AAAAAJH[BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAIFMCOFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BIAABKAIBQD]AAAACOFYAAGABLD]AAAAABABAABABLCIAABEDAAAAEC[BADMAAA]BAH[HWACBAF[HXAIBMH[HWDGBMH]AAAAAKDEBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAGHWBLCAAABADAAAAEAYBCDMAAA]BCAZBCCRBLCIAABEBLCAAABAFTH]AAAAAAAFDGCSCOFYAAFUBCDMABGUBMGZBMGRDQABBADMAAEMCOFYAAF[FQD]ABCBDHBWBMH[HVH]BMH]AAAAAKGOBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAGEMBLCAAABADAAAADFOBADMAAA]BAAYBACQFRH[H_AADGAAABE_COFYAAFUBADMABEUBMGYBMGQBADMABFUBAAYBACQCOFYABGOBMGABMGIDQACBADMABF]COFYAAF[BLCAAABAFQD]ABCBDGAAADDMBCDMABFUBCAZBCCRBLCIAABEBLCAAABABAABBACJCOFYABGOBCDMABEUBCAZBCCRBLCJAAAUBLCBAAAQBLCIAAA]BLCAAAAYFRGJDGB_FQCBDGB[COFYAAFUBMGVBMHNAAAECOFYAAFUBADMABFUBMGYBMGQBMH[HUGKBMH[H^FCDQACBADMABGECOFYAAF[BMGABMGIDQACBADMABBMCOFYAAF[BOAIDGBMCOFYAAFUBADMABEUBMGYBMGQBADMABFUBAAYBACQCOFYABGOBMGABMGIDQACBADMABG]COFYAAF[FQD]ABCBDHCCBADMAAA]BAH[HUDWBAF[HVD]BMH[HUG[BMH]AAAAALHQBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAFDKBLCAAABADAAAACEMBADMABFUBAAYBACQCOFYABGOBCDMABEUBCAZBCCRFRGJDGAEFQCBDHASBQD]AAAABLD[HUBEAABABLCIAABEDAAAACC_BMH[HUDWBMH]AAAAAMCUBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAGCSCOFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BIAABKAIBQD]AAAACOFYAAGABLD[H^FGAABABLCIAABEDAAAACACBADMAAA]BAAYBACQFRH[HUFQDHASBQD]AAAABLD[HTFIAABABLCIAABEDAAAABHCBMH[HTH[BMH]AAAAAMGQBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAEEKBADMAAA]BAAYBACQFRH[H\HWDGAAABDABAB]AAAAANCOBACNCKFIH`H]DLAEBADIH`H]BMH[HWGUBMH[HXCOBMGIBCDMABHEBMGJBMH[HTBOBMGABMHZA`H`H`HYBMHJAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBDCKAAAECOFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BCDMABHEBEDJAAAECCFKAAAEBEF[HSHKDAAAAAGCBADMAAA]BAAYBACQBOAIDGBMBCDMAABEBCHMAAFABCFMAAFECOFYAAFUBMHMAACIBMHMAACMBLCIAABEBLCAAABADQABBADMAAE]COFYAAF[DABUBCDMAAA]BCH[HSFGBCF[HTFMBCDMAABEBCH[HSFGCCERCOFYAAFUBMHMAACIBMHMAACMBLCIAABEBLCAAABADQABBADMAAGECOFYAAF[COFYAAFUDQAABADMAACUCOFYAAF[BCDMAAC]BCAZBCCRBLCJAABEBLCBAABAFTGJDGAAAAGCFSCBDGAAAAF]COFYAAFUBADMAAC]BAAYBACQBLCIAABEBLCAAABACTEIBMH[HSBWBMGIDQABBADMAACUCOFYAAF[DAAAAAESBCDMAAA]BCAZBCCRBOAJDHAMBCDMAAA]BCH[HSASBCF[HTAYBIAABKAIBQD]AAAACOFYAAGABLD[H\HIAABABLCIAABEDACEBADMAAA]BAAYBACQFRH]AAAAAAAGDHAQBQD]AAAABLD[HRHKAABABLCIAABEDABEBADMAAA]BAH[HRGOBAF[HSGUBQD]AAAABIB[HRGOD[AACOFYAAGABLD[H\FCAABABLCIAABEBLCIAABEBADNAAAMCOFYAAG_G]H]H`G]BADNAABEBABNAABACOHYAAFOCOHYACB[AAAACCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBMH[HRHEBMH]AAAAAOHEBMGNBMHNH`H]DMAEBNCNH`H]BADMABAMCOFYACFSBMGABMGICLHOH`HYDQABDAAAAUBOBCDMABEUBCGABCEIBADMABHMBAGVBAFNAAAEBADMABFEBAAYBACQBOAIDHCABADMABEUBAAYBACQBCDMABFMBCAZBCCRBLCJAAAMBLCBAAAIFRGJDGBEBADMABFMBAH[HRAOBAF]H`H`H`H`BADMABFEBAH[HRAMCCEQBQD]AAAABAB[HRACCOHYAAFOBADMABFEBAAYBACQBOAIDGAAACAEBCDMAAA]BCAZBCCRBLCIAAAUBLCAAAAQFTH[HRG[DHAAAAFUBCDMAAA]BCAZBCCRFTH[HZE]DGBQCOFYAAFUBCDMABEUBMGZBMGRBCDMABFUBCAZBCCRBAABBACJCOFYABGOBMGABMGIDQACBADMABG]COFYAAF[FQD]ABCBDGDUBADMAAA]BAAYBACQFRH[HZBADGBMCOFYAAFUBADMABEUBMGYBMGQBADMABFUBAAYBACQCOFYABGOBMGABMGIDQACBADMABHUCOFYAAF[FQD]ABCBDGB[BADMAAA]BAAYBACQFRH[HYHWDGDKCOFYAAFUBADMABEUBMGYBMGQBADMABFUBAAYBACQCOFYABGOBMGABMGIDQACBADMABG]COFYAAF[FQD]ABCBDHB_BADMAAA]BAH[HQASBAF[HRAYBMH[HQDWBMH]AAAAAQCUBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAIFCCOHYAAFOBADMAAA]BAAYBACQFRH[H[A]DGC[COFYAAFUBADMABGUBMGYBMGQDQABBADMAAEMCOFYAAF[FQD]ABCBDHB_BADMABH]BAHMACAABAFMACAEBMH[HQAOBMH]AAAAAQF]BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBADMABEUBMGYBMGQCLHOH`HQDQACDAAAAIB[COHYAAFOBADMAAA]BAAYBACQFRH[HYAWDHA[BADMAAA]BAAYBACQFRH[HYBWDHAMBQD]AAAABAB[HPC]COHYAAFOBADMABFUBAAYBACQCOFYABGOBCDMABEUBCAZBCCRFRGJDGAEFQCBDHAMBQD]AAAABAB[HPBUCOHYAAFOBADMACAMBAAYBACQBOAIDHBWBMH[HPEABMH]AAAAARCSBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBCDMABEUBMGZBMGRBLCIAAAUBLCAAAAQCLHOH`HQDQACDAAAAIAUCOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYAMDNADCCAAACDGBGBADMACAMBAAYBACQBOAIDGA[BADMAAA]BAAYBACQFRH[HYH]DHAMBADMAAFEBABMAAFACOHYAAFOBIBMAAF]BAAVBADNAAAECOFYACFYBMH[HOH]BMH]AAAAARGOBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMCLHOH`HQDQACDAAAAAGYBMH[HOGOBMH]AAAAARHWBMGNBMHNH`H]DMAEBNCNH`H]BADMACAMBMGYBMGQCLHOH`HYDQABDAAAAJE]BCDMAAA]BCGABCEIBADMAAA]BAAYBACQFRH[HXAGDGB_BOBNAAAMCSEHBMH[HOA_BMGHBMGVBMHNAAAEBIB]AAAAACCHD[ACCOFYAAH]BCDMABFUBCGABCEIBADMABFMBAHNAAAIBAFNAAAMBADNAAAMBAB[HNHOCOHYAAFOBADMAAA]BAAYBACQFRH[HWD]DHA[BADMAAA]BAAYBACQFRH[HWD_DHAMBQD]AAAABAB[HNGSCOHYAAFOBADMABFMBAHNAAAIBAFNAAAMBMHNAAAIBMHNAAAMBMGVBMHNAAAEBIB[H`ESD[ACCOFYAAH]BCDMABFUBCGABCEICOHYAAFOAAAABMH[HNEMCCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUBAAYBACQBOBNAAAMBLCHAAAUF_F[HODIDMAGD]ABBLCGAAAUBCDMACAUBCAZBCCRBMAJBKBNAAAUCMCGCYAEBCDMACA]BCAZBCCRBMAJCMAGCIAACOFYAAFUBMGABMGIBMHMACBABMHMACBEBLCIAAA]BLCAAAAYDQACBADMACBMBLCEAAAUCOFYAAF[BCDMACBUBCAZBCCRERGJBLCIAABEBLD[HMH_AABAFRHNAAAUDMAEBLCIAAAUBADMABH]BAHMACAABAFMACAECOFYAAFUBMHNAAAQBMHNAAAUBMHNAAAYBMHNAAA]DQACBADMACB]COFYAAF[COFYAAFUBMHNAAAIBMHNAAAMBMHNAAAYBMHNAAA]DQACBADMACCECOFYAAF[BADMAAA]BAAYBACQFRH[HWHKDGBKBMH[HNAEBMH]AAAAATF_BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAACCYCOHYAAFOBADMACCMAMDIABCBAAACDHAAABBMAMDNAEABAAACDGAAABBCCKFNAAAEDHAAAAGGBADNAAAEBOBIAAAEAMDIADCCAAACDGAIF_FMACCUDHAAAAFOBOBIAAAEAMDIADCCAAACDGAIF_FMACC]DHAAAAE[BAAVD_ACD]AABLCGAAA]BLD[HMAYAAAYBKAIDHBACTEHCSEGCKEHDNAKBADIH`H]BAB[HVHMDAHABSD]AAAABLCJAAA]BLD[HMAAAAAYBLCHAABEBLD[HLHKAABAAMFNAAAAAAACAAA]DGD[AMDNAACAAAA[DGDSBCDNAAAEBMBJAAAEAMDJADCCAAACDGAGF]FMACDEDHASBMBJAAAEAMDJADCCAAACDGCQF]FMACDMDGCKBOBJH`H]BECHBLCKAABEBLD[HVEKAABAAMDKADCCAAACDGBSBLCIAABMBLCAAABIBMH[HLHWBMH]AAAAAUGMBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAACA[COHYAAFOBMH[HLGMBMH]AAAAAUHWBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAABBACOHYAAFOBADMACCMAMDIABCBAAACDHB[AMDNAGGCAAACDHAIAMDNAHACAAACDGBKBMH[HLEGBMH]AAAAAVB]BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAABFKCOHYAAFOBADMACCMAMDIABCBAAACDHBYAMDNABABAAACDGBQCKFNAAAEDGBKBMH[HLCCBMH]AAAAAVEABMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAABDGCOHYAAFOBADMACDUAMDIABCBAAACDHC[AMDNABABAAACDHCSAMDNACCHAAACDHCKAMDNAHGGAAACDHCCAMDNAEABAAACDHB[AMDNAHACAAACDHBSAMDNAGGCAAACDHBKBMH[HKG]BMH]AAAAAVHGBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAACBUCOHYAAFOBMH[HKFSBMH]AAAAAWAQBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAAAGCOHYAAFOBMH[HNEMCCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYBCDMAAAUBCAZBCCRBMH[HNESBMGBBMGJBEDMAAHMBMGKBMHMAAHQBMHMAAHUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAECOFYAAFUBMHMACDYBMHMACD]BCDMAAHMBEDJAAAEBMGSBMHKAAAEDQACBLCIAAAMBADMAAB]COFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMACEECOFYAAF[COFYAAFUBADMAAHMBCDIAAAEBMGRBMHJAAAEDQABBADMAACECOFYAAF[BADMACAMBAHMAAFABAFMAAFEBADNAAAMCOFYAAG_G]H]H`G]BADMAAFEBABMAAFACOHYAAFOBMH[HMF]CCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYBCDMAAAUBCAZBCCRBMH[HMGCBMGBBMGJBEDMAAHMBMGKBMHMAAHQBMHMAAHUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAECOFYAAFUBMHMACEIBMHMACEMBCDMAAHMBEDJAAAEBMGSBMHKAAAEDQACBLCIAAAMBADMAAB]COFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMACEECOFYAAF[COFYAAFUBMHMACEQBMHMACEUBADMAAHMBCDIAAAEBMGRBMHJAAAEDQACBADMAAB]COFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BCDMABH]BCGABCEIBADMABH]BAAYBACQBIBMAAFUCOFYACFYCOFYAAFUBADMABH]BMGYBMGQDQABBADMACEECOFYAAF[COFYAAFUBADMAAHMBCDIAAAEBMGRBMHJAAAEDQABBADMAACECOFYAAF[BADMACAMBAH[HICCCCEQBADNAAAMCOFYAAG_G]H]H`G]BQD]AAAABAB[HIBMCOHYAAFOBMH[HLEICCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYBCDMAAAUBCAZBCCRBMH[HLEOBMGBBMGJBEDMAAHMBMGKBMHMAAHQBMHMAAHUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAECOFYAAFUBMHMACEIBMHMACEMBCDMAAHMBEDJAAAEBMGSBMHKAAAEDQACBLCIAAAMBADMAAB]COFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMACEECOFYAAF[BIBMAAFUBAAVBADNAAAECOFYACFYCOFYAAFUBADMAAHMBCDIAAAEBMGRBMHJAAAEDQABBADMAACECOFYAAF[BADMACAMBAH[HHDGCCEQBADNAAAMCOFYAAG_G]H]H`G]BQD]AAAABAB[HHCQCOHYAAFOCKFZA`H`H`HIDHAECOFYABBYBADMACAMBAAYBACQBOAIDHCABIBMAAFUBAAVBADNAAAECOFYACFYBMH[HHECBMH]AAAAAZCIBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMCLHOH`HQDQACDAAAAAA_COHYAAFOBADMACAMBAHMAAFABAFMAAFEBADMAAFEBABMAAFACOHYAAFOBMH[HKB]CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYBCDMAAAUBCAZBCCRBMH[HKBWBMGBBMGJBEDMAAHMBMGKBMHMAAHQBMHMAAHUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBCDMACAUBCAZBCCRBOAJBMBNAAAMCMCHDIAFBCDMACA]BCAZBCCRBOAJCMAHCYAACOFYAAFUBCDMAAHMBEDJAAAEBMGSBMHKAAAEBMHMACBABMHMACBEDQACBLCIAAAUBADMACBMBLCFAAA]BLD[HGBEAAAYCOFYAAF[BCDMACBUBCAZBCCRERGJBLCIAABEBLD[HGAMAABAFRHNAAA]DMAKBLCIAAA]BLD[HFH]AAAYBADMACE]AMDIABCBAAACDHBIBADMABH]BAAYBACQBLCIAABMBLCAAABIFRHNAAAEDGASFQDNAAACDGAMBQD]AAAABAB[HFGWDAAAABAECOFYAAFUBMHNAAAYBMHNAAA]BADMAAHMBCDIAAAEBMGRBMHJAAAEDQACBADMACB]COFYAAF[COFYAAFUBMHNAAAIBMHNAAAMBADMAAHMBCDIAAAEBMGRBMHJAAAEDQACBADMACCECOFYAAF[COFYAAFUBMHMACFABMHMACFEBADMAAHMBCDIAAAEBMGRBMHJAAAEDQACBADMAAB]COFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMACEECOFYAAF[COFYAAFUBADMAAHMBCDIAAAEBMGRBMHJAAAEDQABBADMAACECOFYAAF[BADMACFMAMDIABCBAAACDGAOBADMAAA]BAAYBACQFRH[HGA]DHAOBADMAAA]BAAYBACQFRH[HPCQDGBQBMH[HFDKBMH]AAAAA\C[BMGNBMHNH`H]DMAEBNCNH`H]BMHMAAFABMHMAAFECLHOH`HYDQABDAAAAABYBCDMAAA]BCGABCEIBADNAAAEBAAVBCDMABH]BCGABCEIBLCIAABEBLCAAABABADNAAAUCOFYAAG_G]H]H`G]BADNAABEBABNAABACOHYAAFOCKFZA`H`H`HIDHAECOFYABBYAMDNABCBAAACDHAAAAH]BADMACFUBAAYBACQBOAIDOA_BMH[HEHKBMH]AAAAA\GQBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAAAG_BADMACFUCTFIAAAEBADMAAA]BAAYBACQBOAIDGAMBQD]AAAABAB[HECICOHYAAFOBADMACF]BAAYBACQFRH]AAAAAAAODGAMBQD]AAABBAB[HEBMCOHYAAFOBADMACF]BAAYBACQFRH[HMHYDGAMBQD]AAACBAB[HEASCOHYAAFOBADMACF]BAAYBACQFRH[HSAYDGAMBQD]AAADBAB[HDHYCOHYAAFOBADMACF]BAAYBACQFRH]AAAAAAALDGAMBQD]AAAEBAB[HDG]COHYAAFOBADMACF]BAAYBACQFRH]AAAAAAAQDGAMBQD]AAAFBAB[HDGACOHYAAFOBADMACF]BAAYBACQFRH]AAAAAAAYDHAMBQD]AAAABAB[HDFQCOHYAAFOBQD]AAAGBAB[HDEYCOHYAAFOBADMAAA]BAAYBACQCOHYAAFOCCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUBAAYBACQBLCIAAAEBKEACOFYAAGGDAAAAAAOBLCAAAAIBLCIAAAMDAAAAGBCBMH[HDCOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBMH[HGFOBMHMACGABMHMACGEBADMACGMBMGIBMHMACGQBMHMACGUBMHZA`H`H`HYBMHIAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBBCKAAAEBACNCKFIH`H]DLAEBADIH`H]BMH[HGDKBMH[HGHEBMGIBEDMABAMBMGKBMHMABAQBMHMABAUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAEBKF[HGFOCOFYABA[CKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBADMACG]BMGYBMGQDQABBADMACHECOFYAAF[BCDMACGMBEDJAAAEBEASBEDKAAAEBLCIAAAMFQD]AAEADGDKFUF]AAAAH`H`DPDCBMAIF]ASDHAYGUF]H`H`AAAACSEKFUF[H`HKDPAEBACGDAHIBLCGAAAMDACECOFYAAFUBCDMACG]BMGZBMGRBLCGAAAMBLCAAAAIDQABBADMACHMBLCKAAAUBLCCAAAQCOFYAAF[BQD]AAAABCDMACF]BCHNAAAIBCFNAAAMBLCIAAA]BLD[HLHCAAAYDAAAABBSBQD]AAAABSD]AAAABLCJAAAUBLD[HLGMAAAQBLCIAAA]BLD[HLGCAAAYBLCAAAAICKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBADMACG]BMGYBMGQDQABBADMACHUCOFYAAF[COFYAAFUBCDMACG]BMGZBMGRBLCIAABEBLCAAABADQABBADMACHECOFYAAF[BCDMACGEBCBMACGABLCIAAAMFQD]AAEADGAAAAECFSF[H`BCDPD[BMAIF]ARDHAWGSF[H`BECSEJFSF[H`AQDPAEBACGDAHKBLCGAAAMDAC_COFYAAFUBEDMACG]BMG[BMGSBLCGAAAMBLCAAAAIDQABBADMACHMBLCJAABMBLCBAABICOFYAAF[BADMACF]BAHNAAAIBAFNAAAMBQD]AAAABIBNAABABKBNAABECOFYAAGACKFNAAA]DGAMBLCIAAA]BLD[HKHWAAAYDACGBCDNAAAUBDCIH`H]DAB]BQD]AAAABIBNAABABKBNAABEBLCAAAAICOFYAAGACKFNAAA]DGAMBLCIAAA]BLD[HKGGAAAYDAAIBCDNAAAUBDCIH`H]BLCIAAAUBLD[HKFSAAAQDAAAH_HSBADMACF]BAAYBACQFRH]AAAAAAA\DGAAAAGECOFYAAFUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQABBADMAACECOFYAAF[BADNAAA]BABNAAAYBLCIAABMBLCAAABICKFZA`H`H`HIDHAECOFYABBYCKFNAABMDHAAH^G]BADNAABMBCAQBCDIAAAECOFYAAFUCOFYAAFUBMGBBMGJDQABBADMAAEMCOFYAAF[BIBMACH]BLCIAAAUBLCAAAAQCOFYACFYBMHNAAAQBMHNAAAUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQACBADMACCECOFYAAF[COFYAAFUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQABBADMAACECOFYAAF[BADNAABMBADIH`H]BLCIAABMBLD[HJG_AABIDAAAH`DMCOFYAAFUBADNAAAEBCAQBCDIAAAEBMGBBMGJBMHMADAABMHMADAECOFYAAFUCOFYAAFUBCAQBCDIAAAEBMGBBMGJBMHMADAIBMHMADAMDQACBADMACBMCOFYAAF[BMGABMGIBMH[G`FIBMH[HIEADQACBADMADAUCOFYAAF[BMGABMGIDQADBADMACBMCOFYAAF[COFYAAFUBADNAAAEBCAQBCDIAAAEBMGBBMGJBMHMADAYBMHMADA]DQACBADMACBMCOFYAAF[CKFNAAA]DGAYBADMACFUBAH[G`C[BAF[HADABADMADBEBABMADBACOHYAAFOBADNAAA]BABNAAAYD_ABBMAIDHAQCTEHCKEHDNBQBADIH`H]BAB[HJAYDAHMBCDNAAA]AMDJAACAAAACDGA[BMBJAAAEBCDMACFUBCH[G`AUBCEGBADMADBEBABMADBACOHYAAFOBCDMACF]BCAZBCCRFTH[H\BODGAAABBSBCDNAAA]BCBNAAAYD_ABBMAJDHAQCTEHCKEHDNBSBCDJH`H]BCB[HIGEDAHMBADNAAA]BEAYBECQBADMABGUBAGCBAEKBADMACFUBAH[G_GABAF[G`GGBADMADBEBABMADBACOHYAAFOBADNAAA]BABNAAAYD_ACBMAIDHAQCTEHCKEHDNCCBADIH`H]BAB[HID_DAHMBCDNAAA]AMDJAACAAAACDGBMBMBJAAAEBEDMACFUBEH[G_D[BEEGBEDJH`H]BCASBCDKAAAEBEDMABGUBEGBBEEJBADMADBEBABMADBACOHYAAFOCOFYAAFUBMHMADBIBMHMADBMBCDNAAAEBEARBEDJAAAEBMGCBMGKBLCIAABMBLCAAABIDQACBADMAAB]COFYAAF[COFYAAFUBMHNAAAYBMHNAAA]BADNAAAEBCAQBCDIAAAEBMGBBMGJDQACBADMACCECOFYAAF[COFYAAFUBMHMADBQBMHMADBUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQACBADMAAB]COFYAAF[COFYAAFUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQABBADMAACECOFYAAF[DAAAH\BSCOFYAAFUBMHMADBYBMHMADB]BCDNAAAEBEARBEDJAAAEBMGCBMGKBLCIAABMBLCAAABIDQACBADMAAB]COFYAAF[COFYAAFUBADMACF]BMGYBMGQBADNAAAEBCAQBCDIAAAEBMGBBMGJDQACBADMAAB]COFYAAF[COFYAAFUBMHMADBQBMHMADBUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQACBADMAAB]COFYAAF[COFYAAFUBADNAAAEBCAQBCDIAAAEBMGBBMGJDQABBADMAACECOFYAAF[DAAAH[E_BADNAAAMBABNAAAICOHYAAFOAAAABMH[G^BACCE_CKFZA`H`H`HIDHAECOFYABBYD_AABLCHAAAMCKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMGVBMHNAAAEDQABBADMADCECOFYAAF[FRHMADCMDGAMBADNAAAMBAB[G]G_COHYAAFOCOFYAAFUBMGVBMHNAAAEDQABBADMADCECOFYAAF[FRHMAAEMDGAECSFNAAAMCOFYAAFUBMGVBMHNAAAEDQABBADMABAUCOFYAAF[BLCIAAAEDAEWAAAACKFZA`H`H`HIDHAECOFYABBYBADMABEUBAH[G]EMCCEQBADMABFUBAHMADCQBAFMADCUBADMABH]BAHMACAABAFMACAEBADMABHMBAHMADCYBAFMADC]BADMABEEBAHMADDABAFMADDEBADMAAA]BAH[G]CSCCEQBADMABGUBAHMAAFABAFMAAFEBADMABFEBAH[G]CICCEQBADMABFMBAH[G]BSBAF[HLBEBADMACF]BAH]AAAAAAEABAF]AAAAAABABADMACFUBAH[G]AWCCEQBADMACAMBAHMAAFABAFMAAFEBADMAAFEBABMAAFACOHYAAFOAAAA| debug-IMSUBR %<GBIND DEBUG-CHANNEL T>  %<GBIND
  11 DEBSTATE T>  %<GBIND DONT-ENABLE-EVAL? T>  DEB-HANDLER
  12 "The Debugger is already loaded" PRINC CRLF "EVAL" INT-LEVEL %<GBIND
  13 DEBUGR-INT-LEV T>  CLASS %<GBIND MAINLOOP T>  HANDLER %<GBIND DEB-HANDLER T>
  14 ON EVAL OFF DISABLE T "OFF" DEBUG-OUT DEBUG-IN ENABLE %<GBIND DEBUGR-HELP T>
  15 L-OPEN FILECOPY "No help available?" OUTCHAN CHANNEL LISTENING ANY
  16 LERR!-INTERRUPTS FRAME EVAL-IN <STOP> =? <SETG DEBSTATE ,OPHF> <HELP> <START> <
  17 DEBUG> DEBSTATE ,OPHF EVAL-IN-DISPATCH EVAL-OUT <SETG DEBSTATE ,NEXXT>
  18 "FOO!!!!" %<GBIND DEB-IN T>  STRUCTURED? %<GBIND DEB-LEVEL T>  STACK %<GBIND
  19 MACRO-FLAG T>  %<GBIND MACRO-LEVEL T>  %<GBIND INFO T>  G? NTH MEMBER %<GBIND
  20 PREDICATE T>  L? UNWIND %<GBIND DEB-OUT T>  L=? %<GBIND LO T>  LO %<GBIND
  21 INFULL? T>  %<GBIND INDENT-MOD T>  %<GBIND INDENT-INC T>  PAGE-WIDTH CHANNEL-OP
  22  %<GBIND INDENT-DIF T>  INDENT-TO PRIN1 %<GBIND FORM-FAST T>  FUNCTION QUOTE
  23 LVAL GVAL %<GBIND SELF-FAST T>  "=> " &1 ":  " " = " %<GBIND OUT-UNIQUE T>
  24 "<= " %<GBIND OUT-FAST T>  %<GBIND REPEAT-COUNT T>  %<GBIND LAST-CHAR T>
  25 "\10\ e\ 6\v\ 2\18\e" READ-BREAKS STRING %<GBIND INCHAN T>  NEXTCHR READCHR READ
  26 LAST-OUT HOR-POS-CURSOR PAGE-X - CLEAR-EOL FOO "Too many arguments: "
  27 " try again" "Unknown command: " FUNCT LISTEN [0 '()] DEB-OUT DEB-IN ]>
  28 <SETG \1aDEBUG #MSUBR [debug-IMSUBR DEBUG ("VALUE" ANY "OPTIONAL" "QUOTE" ANY) 0
  29 ]>
  30 <COND (<GASSIGNED? DEBUG> <SETG MDEBUG ,DEBUG>)>
  31 <SETG \1aSTOP #MSUBR [debug-IMSUBR STOP ("VALUE" STRING) 436]>
  32 <SETG \1aSTART #MSUBR [debug-IMSUBR START ("VALUE" FIX) 548]>
  33 <SETG DEBUGR-HELP "DEBUGR.HELP">
  34 <SETG \1aHELP #MSUBR [debug-IMSUBR HELP ("VALUE" FIX) 724]>
  35 <SETG \1aMAINLOOP #MSUBR [debug-IMSUBR MAINLOOP ("VALUE" ANY ANY ATOM ANY
  36 "OPTIONAL" ANY ANY) 904]>
  37 <SETG \1aEVAL-IN-DISPATCH #MSUBR [debug-IMSUBR EVAL-IN-DISPATCH ("VALUE" <OR
  38 ATOM FALSE FIX <LIST ANY> <VECTOR FIX ANY>> ANY) 1880]>
  39 <SETG \1aEVAL-OUT-DISPATCH #MSUBR [debug-IMSUBR EVAL-OUT-DISPATCH ("VALUE" ANY
  40 ANY) 3748]>
  41 <SETG \1aINPUT-PRINT-BREAK #MSUBR [debug-IMSUBR INPUT-PRINT-BREAK ("VALUE" <OR
  42 ATOM FALSE FIX <VECTOR FIX ANY>> ANY FIX) 4440]>
  43 <SETG \1aINPRINTER #MSUBR [debug-IMSUBR INPRINTER ("VALUE" <OR ATOM FALSE> ANY
  44 FIX) 4772]>
  45 <SETG \1aNORMAL-PRINTER #MSUBR [debug-IMSUBR NORMAL-PRINTER ("VALUE" ATOM ANY)
  46 5652]>
  47 <SETG \1aQUICK-PRINTER #MSUBR [debug-IMSUBR QUICK-PRINTER ("VALUE" FALSE ANY)
  48 5860]>
  49 <SETG \1aSELF-PRINTER #MSUBR [debug-IMSUBR SELF-PRINTER ("VALUE" FALSE ANY) 6168
  50 ]>
  51 <SETG \1aOUTPUT-PRINT-BREAK #MSUBR [debug-IMSUBR OUTPUT-PRINT-BREAK ("VALUE" ANY
  52 ANY FIX) 6388]>
  53 <SETG \1aOUTPRINTER #MSUBR [debug-IMSUBR OUTPRINTER ("VALUE" ANY ANY FIX) 6500]>
  54 <SETG \1aREADER #MSUBR [debug-IMSUBR READER ("VALUE" <OR FALSE FIX> <OR FALSE 'T
  55 >) 7056]>
  56 <SETG BUFFER <ISTRING 100>>
  57 <SETG \1aREAD-INPUT #MSUBR [debug-IMSUBR READ-INPUT ("VALUE" ANY) 7340]>
  58 <SETG \1aFRAME-COUNT #MSUBR [debug-IMSUBR FRAME-COUNT ("VALUE" FIX FRAME) 8976]>
  59 <SETG INDENT-INC 2>
  60 <SETG INDENT-MOD 10>
  61 <SETG INDENT-DIF 20>
  62 <SETG SELF-FAST T>
  63 <SETG FORM-FAST T>
  64 <SETG OUT-FAST T>
  65 <SETG OUT-UNIQUE T>
  66 <SETG \1aINITIALIZE #MSUBR [debug-IMSUBR INITIALIZE ("VALUE" <OR FALSE ATOM>)
  67 9108]>
  68 <ENDPACKAGE>