p@9 %  L$MUST BOOT FROM SLOT 4, 5 OR 6CJJJJ \  i=l x ? L N9 +i C* ɭЅ?0ȱ L Ѕ?iȱi L CPlƁƂ6&06ˡ6áƁ8:9" &8(2ȡ4'*4 ?4 3-bi ö >(4ȡ &ǀǏȡ &20(FCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED8L (PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC 9 SYSTEM.SYNTAX@ 6500.INSTRS ABSDIS.CODE DISASSM.CODEGG.TEXTr 86 SYSTEM.EDITORGGWORKK3 SYSTEM.PASCALb936 FIXDIS.CODE6: PCODE.INSTRS:C PROCNUM.CODECa SYSTEM.FILER9aSYSTEM.LIBRARY9SYSTEM.MISCINFOSYSTEM.CHARSET枊 SYSTEM.APPLEb+`FG8`0($ p,&" COPYRIGHT APPLE COMPUTER, INC., 1984, 1985 C.LEUNGh&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&    ') +!  &п  x) +莶莸L莸LNO FILE SYSTEM.APPLE SYSTEM.APPLEJ) (jJJ>Lx "?I  `  C x Nx G .x- `V0^*^*>` aI꽌ɪVɭPress CONTROL-RESETC^ Íáɡ 럚肚X  šš ë  q8 "ˡ,8 )á á áaˡ á Nšá áÄ *@#5$$&ˡ 5 56%ˡ 5Jˡ 55ˡ+&ȡ 5& t&$&F5P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO /T! ȡ   צ0H" ġ 5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń5(   d˯7 H Pצצ22ȡ5233 ȡ 23aĩ3zȄ 23aA22š*á?%áצ:22ȡá;2á!2ȡ `1 b~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$  ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í2~ š˄ K7"á61 ɚ V %ɡšɡš  PꟚšw#ńE z 0šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@7"á1ꓡ삫Ú š ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿@1á6   Q lPš蕫š 쾿  /P ná " *  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ oɡa š  %4á0ȡ==> ?r??:@@AABB,CCDDDE&FFFGTGnGGH\JJxKL6M6NNNOrOOOOP^PPvQ```:צPascal system size is 128K;;ȡ1Copyright Apple Computer -ë0zY 000á'6á 0z00 rT\   áá  T& "ˡ  J    00áQP 0á0 é000+-Í'Press to continue) & Í ˫N V(&:0:azȄaA:)~áë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡ë 쓡ת!!9 D*驁&F+}צUnknown run-time error-צValue range error-צNo procedure in segment-table-צExit from uncalled procedure-Stack overflowת-צInteger overflow-Divide by zeroת-צNIL pointer reference-צProgram interrupt8 ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á" r 2ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ !۞   ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ  šۢ ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE8FNo user programתP8F0ERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> 8:E&*E$ á"ˡ"& E ##&Eá 9'29:Eá.0:: ,S0b:,SI Fb ˡ?ء "ˡ7ߕނ߂ɡ F b7} š.ö}Ä-D8W2EEHצE#  9 *,.0246 I/O error #  d4ˡ.$  š t@5,á/š ġ 5,+á"š ġ Z |6?š?Put in :P?FP'&then press RETURN *q# 2צS# أ , P# أ צ, I# أ \3צExecution error #   á&ˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡  16!~?^Fצfile-, } .}ˡ2Error writing exec file-} l/E2:Eá *0  š迶Ŷ} / š/áá-`,3# , , ,//~6\-}ˡ2Error reading exec ed by user-צSystem I/O error- unknown causeת-צ parity (CRC)-illegal volume #ת-צillegal I/O request-צdata-com timeout-volume went off-lineת-צfile lost in directory- bad file nameת-no room on volumeת-volume not foundת-צfile not found-duplicate directory entryת-file already openת- file not openת-bad input formatת-צdisk write protected-illegal block #ת-illegal buffer addressת-xצPLE7:::% š tWelcome ?, to Apple II Pascal 1.3Based on UCSD Pascal II.1צCurrent date is C -C'Version 1.3 of SYSTEM.PASCAL cannot runצ&with a non-1.3 version of SYSTEM.APPLE@9988)The 128K version of SYSTEM.PASCAL cannot צ(run with the 64K version of SYSTEM.APMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת6!צ  HצTתP%%@99ˡ|  7 :9CONSOLE:ת(:9צSYSTERM:(8:98 6øצ???JanתצFebMarתצApr1٦׷)צ: ܢܢH d    0&תת.ת??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT{B77::9988:9  6 ۪*ʁd ضá0?ʁd*SYSTEM.STARTUPת(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C "á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&<́b́cʁcȡ~ؤ́dʁdתʁdس0ʁdʁd؞&"á>ʂ>ʂ>ʂ>ʂ>ʂ>ʂ>88ʂ>  תʂ>ʂ>ʂ>̂?Ƃ?Ƃ? Ƃ?ʂ>ˡdتٞ&ʁ =ʁ"*ʁ+̂=ʂ=Gʂ=Hʂ=Iʂ=%O tƁ&̂=ʂ=ʂ=ʂ=ʂ=%̂>8ʂ>ʂ>ʂ>ʂ>ʂ> ʂ>ʂ> ʂ> ʂ> ʂ>  ʂ>ʂ=̂>ʂ>ʂ٢ š٢ ٢٢ 4$88ؗ(/88ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƁƁ!must read a multiple of 512 bytes-Nצunknown ProFile error-0({gO8#tLצ I/O error: -Unimplemented instructionת-Floating point errorת-צString overflow-zצProgrammed HALT-bצProgrammed break-point-CCodespace overflowת-( |`>'t^A<0.|t openת-bad input formatת-צdisk write protected-illegal block #ת-illegal buffer addressת-xצ!must read a multiple of 512 bytes-Nצunknown ProFile error-0({gO8#tLצ I/O error: -Unimplemented instructionת-Floating point errorת-צString overflow-zצProgrammed HALT-bצP-C ;;ȡצPascal system size is 128K;;ȡ1Copyright Apple Computer 1979,1980,1983,1984,1985צCopyright U.C. Regents 1979%System re-initialized` 6:v#z,H"   P  Welcome ?, to Apple II Pascal 1.3Based on UCSD Pascal II.1צCurrent date is C -Cá(+(.TEXT888Ä8 "ˡ$ Can't find <<9 ƀ:ײ9 ƀ<צSYSTEM.SWAPDISK&<(7,צ*SYSTEM.WRK.CODE[*];(áצ Assemblingצ Compiling...á999'<<<צ:<&<(áAssembleCompileצ! what textfile ( to exit) ? (ׯ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ   ۤ    áۤ  R   88inking...ݡ #צMust L(ink first|Ɓ2ƀ¼:צ.Conflict between intrinsic and user segment(s)0ƀ¼ 2 2 Ɓ_& ۤ ́ŕsʁśtʁtˡ  צ not codeʁs2ʁt"ˡצ Bad block #0ڡmƀ ˡ`SYSTEM.COMPILER RFORTRAN: .  is not version 1.3ړ22Ɓ2 bޡ: LA?̃Aʃȡ@A|A:'A צ @@@áAAM5 r  ߪPƁ_Ɓ6 PƁ6ƁcƁgƁoƁp!́qƁcʁq ת "ˡCܡ>"áצIllegal file nameNo file  Ƃ;P Bń"CB̃CʃȡDC)CC Ƃצ*SYSTEM.LIBRARYPƂ?:צ-Error: Required library files are not present ?צ3Error: These required intrinsic(s) not available: @:ڢ̡d?kt d;.2>!2+2š$2צ.CODE 22 š22 ;.צ:2.LIBP۪PB?D)؞D)ؿ؂پáپ$áڸBBBi ȡؾaġ زؾ $ 2dd;"ákt"áFLIÄ*LIBRARY FILES:ׯá`?kt"á 8צ Warning: צ is not used?צ&Warning: Cannot open the library file dRپáپ$ò$ÄiȡXP  ٲ`ݤۼ: T $ ȡ\q٤زضؗ ٤d n | تPdd"آڤ á4á/آ*Í]  hޢ ȡWڤ ˡD۳-ܢ0ۤ ݢ`ڤá ^| ȡ2ݤˡ"ޢڳ@@YyÍ, 4ۢڤ ɡ?š2ڪP-19:!1ׯ)Illegal filenamenT(ˡ-C ;;ȡצPascal system size is 128K;;ȡ1Copyright Apple Computer 1979,1980,1983,1984,1985צCopyright U.C. Regents 1979%System re-initializedצ(To what codefile ( for workfile) ? (צáצHá<$88š8(8+,,"ˡd;": I/O Error #:  occured while opening ,;   áث 7b7T 7 š, š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5ġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  king...ˡ& Restarting... U not allowedQáPצ-Do you wish to exit the Pascal system? (Y/N) YyÍQZQIÍ-Qá6OK7AX0bM=3 C(,.*u Cjp6$ h  <$((T2&^ 66!.j2쓡 צ Linking...ˡ& Restarting... U not allowedQáPצ-Do you wish to exit the Pascal system? (Y/N) YyÍQZQIÍ-Qá6O, C(omp, L(ink, X(ecute, A(ssem, ? [1.3]P')%?áZFDCommand: U(ser restart, I(nitialize, S(wap, M(ake exec, Q(uit [1.3]תP')% 6!.j2쓡 צ Lin98:9á/)*SYSTEM.ATTACH  áá(צ*SYSTEM.STARTUP %áá 6   HˡFצDCommand: F(ile, E(dit, R(un]ˡ([8]+("á%צ Terminator=צ , change it?)צNew terminator:} ȡ/,-Z N:0Í1Í2Íسs2ø1öRצ to exit): P+! Vf%צ:!צ Running...vצSwapping levels:צ 0 = system is not swapp%צ what file ( to exit) ? Pšš+00.0.0ȡ#+.//a/zȄ +./ ..+צEXEC/eVP+"á(.}צ.CODE.  "á.צNested exec commands illegal"צError opening execd 6~}6 "ء HP\צExecuteá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟ˄~ݤ ת   ١  n ١ á9 ٓ/! !!١SLDC 64 SLDC 65 SLDC 66 SLDC 67 SLDC 68 SLDC 69 SLDC 70 SLDC 71 SLDC 72 SLDC 73 SLDC 74 SLDC 75 SLDC 76 SLDC 77 SLDC 78 SLDC 79 SLDC 80 SLDC 81 SLDC 82 SLDC 83 SLDC 84 SLDC 85 SLDC 86 SLDC 87 SLDC 88 SLDC 89 SLDC 90 SLDC 91 SLDC 92 SLDC 93 SLDC 94 SLDC 95 SLDC 32 SLDC 33 SLDC 34 SLDC 35 SLDC 36 SLDC 37 SLDC 38 SLDC 39 SLDC 40 SLDC 41 SLDC 42 SLDC 43 SLDC 44 SLDC 45 SLDC 46 SLDC 47 SLDC 48 SLDC 49 SLDC 50 SLDC 51 SLDC 52 SLDC 53 SLDC 54 SLDC 55 SLDC 56 SLDC 57 SLDC 58 SLDC 59 SLDC 60 SLDC 61 SLDC 62 SLDC 63 SLDC 0 SLDC 1 SLDC 2 SLDC 3 SLDC 4 SLDC 5 SLDC 6 SLDC 7 SLDC 8 SLDC 9 SLDC 10 SLDC 11 SLDC 12 SLDC 13 SLDC 14 SLDC 15 SLDC 16 SLDC 17 SLDC 18 SLDC 19 SLDC 20 SLDC 21 SLDC 22 SLDC 23 SLDC 24 SLDC 25 SLDC 26 SLDC 27 SLDC 28 SLDC 29 SLDC 30 SLDC 31 ꩂȡWP ީޓ.Wצ W Wš)Wצ W Wצ WPWߥߦRߥWQߪPW[ëݩݡAצ%>>> ESCAPE READ; TRANSFER TERMINATED!WPݥ ޹ צ lines converted gb + ꩂȡWP ީޓ.Wצ W Wš)Wצ W Wצ WPWߥߦRߥWQߪPW[ëݩݡAצצ#*** SHORTEN A DISASSEMBLER FILE *** Input file: .P.צ.צ Output file: Pצ B@FIXDIS 24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ3ܾܾ ܾ ɡ?š!!Ȅ!!P!x!P &(8L@JBGD> Z`dhdޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ3ܾܾ ܾ ɡ?š!ݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ0ˡ) ! 767䚹 :V\28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ ÄSLDC 96 SLDC 97 SLDC 98 SLDC 99 SLDC100 SLDC101 SLDC102 SLDC103 SLDC104 SLDC105 SLDC106 SLDC107 SLDC108 SLDC109 SLDC110 SLDC111 SLDC112 SLDC113 SLDC114 SLDC115 SLDC116 SLDC117 SLDC118 SLDC119 SLDC120 SLDC121 SLDC122 SLDC123 SLDC124 SLDC125 SLDC126 SLDC127 ABI ABR ADI ADR LAND DIF DVI DVR CHK FLO FLT INN INT LOR MODI MPI MPR NGI NGR LNOT SRS SBI SBR SGS SQI SQR STO IXS UNI LDE 1CSP 2LDCN ڳ *ȡ۾.áצ.TEXT á ˡ-Pascal I/O ERROR  &á1,צEnd of INCLUDNumber Program * Version צAugust 29, 1984T|&:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8XͶSource file : ܦׯáצDestination file : "ˡ)Pascal I/O Error  áq     צ*Pascal Procedure ʂ̀"ʀ˩ˍ ʂʂ ƀʂʂʂʂʂʂʂʂ%  lت̀ƀƀ ƀ >ńá" Pá۞!T (8 ʀšʀ ʀʂʂšʀ̂eʂ ʂʂ ̂ʂġʂʂ ̂+ʂʂʂƀʂʂʂʂʂ ʂʂ̀"ʀ˩ˍ ʂʂ ƀʂʂʂʂʂʂʂʂ%  lت̀ƀƀ ƀ >ńá"ܢت̂ʂʂʂ Í̀ʀń/  ̀ʀšʀ ʀʂʂšʀ̂eʂ ʂʂ ̂ʂġʂʂ ̂+ʂʂʂƀʂʂʂʂʂ ʂ,"-,˩ˍ--Vpئתō2"˩ˍ ܢܢá,ܢ  ܢ  š ۞ۂ ܢP(še (٢P  > تP- ˡ-"쩁ˡ-!--,"-,˩ˍ-- -VxتP- ˡ-"쩁ˡ-!--BBBVPPROCNUM FASTIO STARTUP SLDL 9 SLDL 10 SLDL 11 SLDL 12 SLDL 13 SLDL 14 SLDL 15 SLDL 16 SLDO 1 SLDO 2 SLDO 3 SLDO 4 SLDO 5 SLDO 6 SLDO 7 SLDO 8 SLDO 9 SLDO 10 SLDO 11 SLDO 12 SLDO 13 SLDO 14 SLDO 15 SLDO 16 SIND 0 SIND 1 SIND 2 SIND 3 SIND 4 SIND 5 SIND 6 SIND 7 IXP 9RBP 7CBP 2EQUI GEQI GRTI LLA 4LDCI ALEQI LESI LDL 4NEQI STL 4CXP 9CLP 2CGP 2LPA 5STE 1??? EFJ 3NFJ 3BPT 4XIT NOP SLDL 1 SLDL 2 SLDL 3 SLDL 4 SLDL 5 SLDL 6 SLDL 7 SLDL 8 ADJ 2FJP 3INC 4IND 4IXA 4LAO 4LSA 5LAE 1MOV 4LDO 4SAS 2SRO 4XJP 6RNP 7CIP 2EQU 2GEQ 2GRT 2LDA 8LDC 5LEQ 2LES 2LOD 8NEQ 2STR 8UJP 3LDP STP LDM 2STM 2LDB STB E fileá á  ń ͹ 쾫( 0ꩁ'Í ꓩ ÄP*)áNצ}á<(No file name provided in INCLUDE option! ,::צInclude file -->,,ˡ  $ák+˩-˄Dá 8צ(Attempt to INCLUDE from an INCLUDE file!צ ? (Y/N) - -F&צ ?  ɡ& Invalid #P  ˄I&Remove all files on Gצ : ? (Y/N)Z ٪ # ת á 1 0 áY 0(" ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-ˡ[ ġR&    3,=9 ,0vKoġ#(צ expected1(& Ş"˶ I/O error # 4!צ Filer error # ء '\T&)ed(צNo directory on volume(No workfile to saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Illegal file/volume nameת(צ&Illegal change (Volume file) name([Bad destination for files foundת(Code file lostת(צ File found(Blocked volumeת(צUnblocked volume( File nameת(File/(unblocked volume)ת(File/(blocked volume)ת( File/volumeת( Volume nameת(Output file fullת(צWorkfile is sav errorת(Volume went off-lineת(צFile lost in directory( Bad file nameת(kNo room on volumeת(QNo such volume on-lineת(2צFile not found( yeM0ٹVolume already on-lineת(צText file lost(Gצצkת{צcתת(WצSתԦת(KצOת  n`Äצ(ڹצParity (CRC) error(Illegal volume numberת(Bad I/O operationת( TimeoutFCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED69 FILEHAND *.02468:<>XHJLNPRTVXZ^`bdfhj𥀠T $E*,%jp8f&h צ: PROGRAM ׯ K צS# צ P# :     šš+ á á  EXIT s5l# g "$&J{ 쥀ꓡꓡš   I S#  P# צ: PROGRAM ׯ K צS# צ P#6ڞ ٶ٢٢ض(á%٢٢8ꩁͳꓡP _ɄꩁͳڞD?+˩-˄.CU& +7"$=ؓ*é}Íء  ꓩ*˄ꩁ)Í"$ 0  ꓩ}˄ 'á {á (Ȅ *á ء,ˡ   ߓ`&צPut  : in unit  ء ߓ  ٨š5K ˡ*   ġ" ء " N۪ڪƁK""áN׷9& צ ? " ڪ٪ت&:&Pɡ(š --> ڕš"قܡCצC#ÄÄ~Íj%á*Put in G:'Insert destination disk %š "צRemoveǀ RemoveE+Gޤ removed%á % ń,&Update directory ? צ Ɓ3" d,,[,["𥀈{á򥀿Dá" G"+!+~G?KÄ?G;K;GK,,G,:, ׯ>[ Remove oldRƁ-צChangeChange to what׷{צSW,,W,צ:,(,,(,{A,(*צChange*[")ǐ ),,OGˡ iiK ׷Ȅff@ Զ ުݪ"צPWkKGˡ jjšצɄS{cpڥs[KG2G:=P="="=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 =gPܓÄ)jjSj:jˡjj(jAj(ܓ8fá volumeצ ?  , gg#š=jgjPg?=ɍ :g=#g=ɍ+=*á =*=%á=۲jjj:j($hh=ɡX="#šan string 'צ volume name Q<%ۡ9á    - character maximum >- Illegal formatTH=ڲ= ݪצf&1צ what fileצ whatá á1 9U~&gڲ= ggۓ$=?'ز=g(=g=&=g&Pɡۡצ ...too long <ٹIצ file name @ sc &"&& & ܡ&'&k'{[{ c󓍄E''S'צ:'{!'0'c?'(&K& not processed 0ު(áܲ~ %&ܥKO &&ȡu ''k'ȡKk'k-'' ܡšڡK N Y˄ ˡ  .  sآWצ:آ(Yצ\& آצ ? ) áYø۪    MJLN0A$6\ۡ &Pɡ צ, áצ áצ nܪ(G[!nء CGGá+á &"ˡ~[צ[4ثضÍצ$*á-:á?::á ;&Pġ - عEXå[ׯGC81(* ݢÄݢÄ ۡ "ˡ ݢ ڶ /ݢ0/0 /0/0 0 òCń /C"ݢݢ///://tLצTransferTo whereׯ󓄡{ׯ00ji˄j˄i˄&צ2Number of blocks on the destination volume is not צthe same as the source volume!Do voluƅ0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ ƃ ƃƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files<ƃצצ Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/ʅ- ʅ/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ڶ+šڸ+*ڂ*ŶB < UNUSED >     -p.ƃƅ'Directory listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅( Cצ The date is C -C-C 6 ),%ö,ÍP$&,􍓡~%K:, %,,,|-ٕptional) New date :  +Cػ*škGGȡ"GؾAĥGؾZȄ GإGؾAa ȡ$GCػ*c+C ػ?צ:@Ä&*- ȡ%ܾz ܾ0ŶȄ: \+Cˡ_ Today is C -C-C צ-Date format: dd-mmm-yy (month, year o&ؓń=.צ.TEXT.  צ.CODE ..Ȳ.׷:.TEXTצText ײ&(צ.CODEצCode (١%צNo  file loaded& '-   ء&צWorkfile cleared%f & ݪܪ  : .  ǀá@ .  ڲ צ& * (&Getצǐ%G.[.ژ$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemoveText file saved  & 0צCODE  "צCode file saved62!o.צצ not named2 Workfile is :.񄓡 (not saved) No workfile. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!.[G&TEXT&  "hKצ*..CODEOld code removed, צ *SYSTEM.WRK.,C:[., #[.GC .צE&Save as :&G:[ madeצT  ߪ Ɓ8 55 *SYSTEM.WRK. 5 5 4454=5  d66.6.6 65ݪ   p "٪me transfer anyway? (Y/N) H3Transferצblocks# of blocks to transfer צTransferׯh(*ivƁ-צMakeǐh"))** **" , ƃʅ( ƃצ blocks usedƃצ, ƃʅ* ƃצ unusedƃ, ƃʅ+ ƃ in largest"١ ƃƃ"ƃ +  T,!Volume # - Volume Name - # Blocksȡ &Gȡ~ צH צ:  Y0N "áA צצצ ȡEx filenames byצl;G& Prefix is ;:$ /3045)|Tצ2TšHT HTTצP9BZ2^R d(|h(0=OX%ȡ~٤ܦ׷~ȡqܲ~ؤ_Warning - volumes # צ and # צ have the same name.,,'&!צ Prefix is ;:Prefir E(dir R(em T(rans C(hng D(ate P(refix K(rnch Z(ero V(ols Q(uit ?7-צ(Filer: L, E, R, T, C, D, P, K, Z, V, Q,?7?áiA:Filer: M(ake W(hat N(ew S(ave G(et B(ad-blks X(amine [1.3]7%צ Filer: M, W, N, S, G, B, X [1.3]7ڡ$&B צback  ġ ɡ6 G : crunched#צPlease re-boot{ Z5تPFP')xR87תTצMFiler: L(di " ġ  6צCrunch@צFrom end of Volume, blockצStarting at block # 2 % forward ת  ȡ'  š 6 T#VV צBad blocks markedH`4 ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š  "š$צ (files will be removed !)צ (Y/N) YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0ʂeʂeoTTT TWT ɡTTW blocks.4"á dV"Ɓdd  may be okz is badV2ˡYV šOUVˡ9TTTM šTVTVVUVVá41Mark bad blocks ?RSSRō4%SVR̂dVʂdȡ V2VVš(1Fix bad blocks? Ǡ  T USVR̂dVʂdȡBlock V ƁdVƁdV"áIצ/Disk is write-protected. Cannot examine2צBlock  צ is badۂġ צ bad blocks1 3צExamine blocks onצH&Block-range ? S  SRR  RRˡR ġ  ȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad block scan ofצHScanצblocksScan how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ9 CK ": zeroed~0šצFile(s) endangered:Mȡl\ؤ áצ Directoryڢڢ  v 1ˡZצblocks on the disk# of blocks on the disk .Enter new volume name ( for no change) : ׷g 饀:ˡ!:DG : correct ? Gˡ.ǀ צSystem volume is - ?:Prefix volume is - ;:/ Zero directory ofצH צ Are there@ˡ}צ&Version 1.3 of SYSTEM.FILER cannot runצ'with a non-1.3 version of SYSTEM.PASCAL8G8&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶצ0???JanFebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto  (Dɞ(ń?Í~!YT(.&V j jthZ Z&##%&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ|} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-09Ȅ0ݡߑ ع      z  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L N E @d $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IFCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED n$LONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU #H)*h)&2&-8-*.-00$1x1D22p333344L4890p8.FILER cannot runצ'with a non-1.3 version of SYSTEM.PASCAL8G8&צSYSTEM.WRK.TEXT צSYSTEM.WRK.CODE &PĶ8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.1 ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L N E @dNTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:Ihhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1>  z Z   :    ( tV8z <| "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E URTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING) MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE5?. ????2 ?  ??  1?   ?=~@:?^>[Iq ~ ~>?  ȡ!? 5? f "0 ~5?. ????2 ?  ??  1?   ?=~@:?^>[Iq?  ġ+@ነ? ?> ??   Iq~~4?  ??;ܳ1?ܳ^; S> ?L=[?    ?tI$Iq>ߡڑ߳I@߳}:#9oL.6ZO$<=*     KYKK.2 4k/P/NEWC/C.CODE.CODE "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION N E 0TRšزTRPزTPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.3 of the Chainstuff unit cannot+run with a non-1.3 version of SYSTEM.PASCAL تPšH++H0تPRšT+R+PTPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  X E CHAR); $PROCEDURE WSTRING(S: STRING)L` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif áSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i J  h 2  ɡh h  h . آآآǿآآǿآآD ǻٚ SYSTEM.CHARSET!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8  ؂  ɡh h QZ|?ٽ RZ}?4 SZ~? TZ~? UZ? VZ?[` WZ?& XZ?ؽ YZ?  ZZ?2  Z Zá.ٹ#ؑi?޽ CZk?7 DZm?[ EZn? FZp? GZr?  HZs?yx IZt?hн JZv?D KZw?F LZx?Re MZy?Pp NZz?g OZ{?K PZ|?aI? 5ZL?Xs 6ZO? 7ZQ? 8ZT?; 9ZV?% :ZY? ;Z[?Lo <Z]?г =Z_? >Zb? ?Zd?  @Zf?] AZh? BZ 'Z!? (Z$? )Z'?| *Z+?+L +Z.?l ,Z1?ս -Z5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2ZD?v 3ZF?  4Z>? Z>ca Z>*r Z>aq Z>^ Z>9 Z? Z?ٽ Z?ƨ !Z ?vm "Z?F' #Z?ս $Z?y %Z? &Z?1>н ZC>oc ZT> Zf>Y Zw>g Z>탽 Z>K  Z>ȱ Z>z7 Z>ٰ Z>? Z>| Z>}̽ Z>  Z4تP+,+,ȡ+++V 0 Z Z^ Z ><0 Zl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'  ǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?0 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%).ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXNELL1 LEe8刅刪ʈ;.<0(0(099JH;HHH`Z310/$ T%&'( %U(`2<\X`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:. "hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhHHLM0`L+L10RATION: INTEGER);  "IMPLEMENTATION N E  $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DUSETPORT @=P l=7MAKEPORT|=P 7 ==L1TURTLEGR)RTCHEA=GA440 BS|== zjZ QH?\V n x x(,np< $8L. ~  L  DRIVE <<<FNAM =SETSINE1<<SETSINE2SETDEFAU=e*e+)*)fjfjfj+*fjfjfj8 8)eeL )` (J(F ((Lee L  )LT I1LT )QLT       hhhHH h )# " `' & 8 ! 0%ee8` !  e e8"#088$ % 0%ee8`$ %  e e8&'08HHL<  y B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p h hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhh 0&!"   #"  ` ` `SN-(' . hhhhhhHH `  y HH8H8  hhhL .+ rhh hehehehe8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &   6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>hhhHH)> `( $ `Q`) " Ȣ``H "ݠ h ڍ,,`lJI*I II `$p"0*nXw ؆ ڤ ڢ` ` (!/< ` ح0 ,10i0  I ,109,c$0 A[ $P0Jj)jj&UIL؈ )?LI@a Hb c0  hH َh$L hhh O靱`hhh(`hhhDEDD@+( `8][ ZD[E`&ʩˠhhѱʅE[ʅDZȑ`8Hh`HH(x h(`HHH*LfF0 9ݐ9 Lo٥")jR )LB֠BȱB֭J `JB)BC ֐+/ @( ` ֌֢`0&J}iʰ ֥͝֐` حBCJuJ DE 9ؽFG ְU0ЬЧJ2DEϐ8 (ֹO H֥ +ֹW H H)*Ȫ`FG8` 7 `0($ p,&"VU>)Q>jj`l ! a hx ץH( h ֥HH`:ֈ`֙:`JJJJ C֩B8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( _֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  Hֈ k( F G  Wj0 خ $Ӱ4 xH ߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹,hhJiЍ L֢ hLh )hJ¥jJJhhihhhhhhb\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH``P@ߠ ߮.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !`) ؊H "h ɢ` ع)`H B "ݠLfڠ0* )` ]Hh` } p pۢ` ێ` ح`2`) ! ` عJ` " MȽ` B "HLf ݠ }ۑ p0 ۩J*L ݢ(,LZ ݘJJ )  LJI)LZܩLZ܊) 9ݐ)LZ܊JȩآL ݠ؈hxJiЍI*EJ F؅GF G ӝ4ȩآL ! ֑ȭ֑ Lܢ ȥ噑8񆅔ȥ񆅕 8 iiLG꥖ 奘 奔 хх ,쥀iƄLrs\t]uʱrtusLꦌLrt~8儅ƛ8儅ƛi揥8Ɓ8ƏƄа~ŊŋL!쥊8Ƌ8񊪥񊅋i8劅勅8\包\]卅] E8`a8\刅]剅 , 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ Lm 8챆e`ȱea8嘩~&~m@mA@6ȱ@18\@\]@] E\8]^`Lъ8`a ~8`儅a8bcL`a8Ə , 1+Ŋ勰Œ哐勰HHH~ 9~H 1[HZH ;楙HHHH ~ 'ņŇ0 L-8ƇL-8厪HHLhhhhTLGץT8~U~8~Xȥ~YT VLҍRSLȱȱLѥ8Ɓ8F$Lө HHHH`HHHHHH  < `) ,1P `*0 1)J# JJN`i iIHHDHCH JO#II) l JJԬَП8ƋȱHHHH`HHHHHH  < A~BaƁ)J# JJ~ȑ~~i~e~ȱe~ȱ~ȱ~~i~iиM`N\)\]H\H0 X\\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][LѥXeXYLҥ~i~H~HLThrhshthuXs&trȑtLҠrrtLڱrtLL-Һ~~LLҠ UhehheiHHLҠ UIiHHLhhhh @إHHLh~hhhE0Ń)ŀ!0E0~łLLѥ^~_~`~Xȱ~Y`~ȱ~~L x٥XYXYXXYL x٥XYXYX悥q~m\8傅\]h"IiIiIiIi ץHHLҺHHLנnoL ҥIiIi攥IiIiƔ8吥呰 ` of"f fofn8no8&&`ffofn&&`hhhh @إIi[8\Z][LL h~hZ~ȥ[~Lh~h~Zȱ~[&'LҩlLhh0HHLҨIiIiHHLҺ}}LhIihIiHHLҺ8Lҩonff nenoeofofnff`hh0 hhL(hL==LҺLhhIHIHLҍXXhhQX0XŗiX`0\XE0XLXŖC?8XX&XeYei无8XYLҥXiXYL h~hhh~&Zȥ[Ze~Z[ehh~ȥLҍXȘ ~X)XYXHXHXe~XYLҍX~ 8倐~hrhsrHrHLLэX~e~e~tu~LhththhLҺh}~h}~Lhhh~hhe~~he~Lhrhshthu Umo nHnHL{ҍX Ѡ Uѥhelniemoni nooHnHL{ҍX Ѡ Uѥhelniemo hnhnL{ҍX Uѽeh~ei~H~HL{ҍX Uѽeh~eih~h~L{ҍX UѽeheiHHL{h~hȱ~H~HLh~h~YLҩHHLҠXHXHL{飨RHRHLҠ zeRneSo nHnHLҠ zeReSi HHLҠ zeRneSo hnhnLèPHPHLҠ zePneQo nHnHLҠ zePeQi HHLҠ zePneQo hnhnLҍX Ѡ Uѥhelnie[,($  abc    !8TU 8X再4Y凍5T.V0/1LXiX0Y,XiX#YHHXYX ҍlXYX ҍlh)hLhX0 eXXYLeT~eU~8~X%ֻu%%\H~%%%%%%%)0>N%LXiXYX h&i` hi`XXYX *` `RlSml~ȱlm~l`&'`Z'[&'`1~LHD&'Z\]bb{)`ݡv5Sެ*A4؞ԽoԒ f۪ՎvBT2og_kc[CҝRՇջN?H,eٚԮ%%FG׮ӁӁӁӁӁӁӁӁӁӁӁӁӁӁӁӁ ҹHH`qM`LL;LLLL'LLLLLLCLXL?LXLLLhLLLL?hiZhihh ҭHH`l(8L/0 ]^@[ MNP]^@zhH)ۥhi ץheheHHLҍXXhh @&heheHHHHeHHL{hhhhhhȱ80 iff =߅=HHLh~hhhhh ߅%~~߅%80~~i ~&&hhȱI%~I%ȥLhhh heȄ Ȅ~l |ܦ8e h9 0 ʚL |ܦņ hI9ʚL |ņ0sing result type in function declaration 124: TREESEARCH and IDSEARCH no longer supported  125: Error in type of standard procedure parameter 126: Number of parameters does not agree with declaration 128: Result type does not agree with declaration 129: Tard reference 119: Re-specified params not OK for a forward declared procedure 120: Function result type must be scalar, subrange or pointer 121: File value parameter not allowed 122: Result type of forward declared function cannot be re-specified 123: Mis109: Type must not be real 110: Tagfield type must be scalar or subrange 111: Incompatible with tagfield part 113: Index type must be a scalar or a subrange 114: Base type must not be real 115: Base type must be a scalar or a subrange 117: Unsatisfied forwIdentifier declared twice 102: Low bound exceeds high bound 103: Identifier is not of the appropriate class 104: Undeclared identifier 105: Sign not allowed 106: Number expected 107: Incompatible subrange types 108: File not allowed here 'Implementation' expected 24: 'CODE' expected 50: Error in constant 51: ':=' expected 52: 'THEN' expected 53: 'UNTIL' expected 54: 'DO' expected 55: 'TO' or 'DOWNTO' expected in FOR statement 58: Error in factor (bad expression) 59: Error in variable 101: d 12: ']' expected 13: 'END' expected 14: ';' expected (possibly on line above) 15: Integer expected 16: '=' expected 17: 'BEGIN' expected 18: Error in declaration part 19: Error in field-list 20: ',' expected 21: '.' expected 22: 'Interface' expected 23: 1: Error in simple type 2: Identifier expected 3: 'PROGRAM' expected 4: ')' expected 5: ':' expected 6: Illegal symbol (maybe missing or extra ';' on line above) 7: Error in parameter list 8: 'OF' expected 9: '(' expected 10: Error in type 11: '[' expecteO^HiHLҩHHLҩHHL?? vXLiLLL   UFifhLߠ Uhhh~hXYhL߱~р~iLOLSLKhh)fjjj)?~Ōe~99 pHHLҦpHHL @hhHHHHhhhhLߥ)L8内凅L ߥ) fj~) fj8~߅߅HHHH9;߅9<߅HH~ HH hʚL҅~Ƃ~eʥƂFHHLҍX hh&ŎL0eeƎLҥ8包Ŏ 8吪8吪ƌLhh&eȹȹp)1ype conflict of operands 130: Expression is not of set type 131: Only tests on equality are allowed 132: Strict inclusion not allowed 133: File comparison not allowed 134: Illegal type of operand(s) 135: Type of operand must be boolean 136: Set element type must be scalar or subrange 137: Set element types must be compatible 138: Type of variable is not array 139: Index type is not compatible with the declaration 140: Type of variable is not record 141: Type of variable must be file or p * TXSTXATSXTYATAYTAX STYSTXSTASEISEDSECSBCRTSRTIRORROLPLPPLAPHPPHAORANOPLSRLDYLDXLDAJSRJMPINYINXINCEORDEYDEXDECCPYCPXCMPCLVCLICLDCLCBVSBVCBRKBPLBNEBMIBITBEQBCSBCCASLANDADC @ @@@@@ @uI@@@@@I@@@@@@t[@@@@Y[@'@@@@%'$@pg@@@@@@@gd@ @@@@& @sM@@@@@@@M`@@@@@@@6@oV@@@@@@@Vv@7@@@@27@qw@@@@@@@wQ@!@@@@@!@ma@@@@@@@aX@8@@@@@8@lx@@@@@@@xP@le SYSTEM.INFO 405: Error while reading library 406: Include file not legal in interface nor while including 408: (*$S+*) needed to compile units  409: General Compiler error 500: General Assembler error nt empty 399: Implementation restriction 400: Illegal character in text 401: Unexpected end of input 402: Error in write to code file, maybe not enough room on disk 403: Error while opening or reading include file 404: Bad open, read, or write to Linker fi 301: No case provided for this value 302: Not enough room for case jump table  350: No data segment allocated 352: No code segment allocated 353: Non-intrinsic unit called from intrinsic unit 354: Too many segments for segment dictionary 355: Data segmesource line 203: Integer constant exceeds range 250: Too many scopes of nested identifiers 251: Too many nested procedures or functions 253: Procedure too long 254: Procedure too complex 273: No such unit or segment  277: String too long rary 191: No private files in unit 192: 'Uses' must be in interface section 194: Comment must appear at top of program  195: Unit not importable (interface text not available) 201: Error in real number--digit expected 202: String constant must not exceed ction 185: Segment declaration not allowed in unit 186: Labels not allowed in interface section 187: Attempt to open library unsuccessful 188: Unit not declared in previous uses declaration 189: 'Uses' not allowed at this nesting level 190: Unit not in lib168: Undefined label 169: Base type of set too large 175: Actual parameter max string length < formal max length 182: Nested units not allowed 183: External declaration not allowed at this nesting level 184: External declaration not allowed in interface sesuch variant in this record 159: Real or string tagfields not allowed 160: Previous declaration was not forward 161: Forward declared twice 162: Parameter size must be constant 165: Multidefined label 166: Multideclared label 167: Undeclared label lar 149: Index type must not be integer 150: Assignment to standard function is not allowed 152: No such field in this record 154: Actual parameter must be a variable 155: Control variable cannot be formal or non-local 156: Multidefined case label 158: No ointer 142: Illegal actual parameter 143: Illegal type of loop control variable 144: Illegal type of expression 145: Type conflict 146: Assignment of files not allowed 147: Label type incompatible with selecting expression 148: Subrange bounds must be scaABSDIS #  š .򥁋 0ǀɡ  d   צ,Xצ,Y '" >@DFHN^`bLá ár   á 8t} át 0 @ ,X",Y (. 򥁋 AtȄt"e 0 ꓡ L t } Kצ: ȡ؂t á   > ٟáڶڢڢٚɡ٢ š٢J6צ .BYTE  .צ .ASCII "$ |  D ؟ˡ0     Ǚ + Ǚ -á        צÍá1[X lת0á á $á -á ȡCڛ צá# 뗜 -á   *** *á* LÍ;**ȡ% LOCKREAD ERROR! Pascal I/O error  h   $ $ 헜엜뗜 ~ "**ˡ.á-++P+.CODEU+P"**ˡOצ Pascal error *  accessing *á; Code file = 8 $"ˡVצ"BCONSOLE:תP.צ.á++P+צ.TEXTU+P"**ˡO Pascal error * צ accessing *á Name of code file: Pצ} } } } } } } } } } } } } } T +Name of OUTPUT file (default is CONSOLE:): PצƁ.rƂצ#4:̂ƂƂƂ 6500.INSTRSƂ" á<Ƃ#5:ת̂ƂƂƂצ 6500.INSTRSƂ"ˡ\צ Pascal error  צ opening  6500.INSTRS ٨ ٢r@@Pascal/6502 ABSOLUTE dis-assembler ** (C) 1986 Dave Tribby Ke^Wǀɡ! DMQZ\bOXacLölÍ@Í`Í @8 צ3Starting block number in file (0 is first block) :  ɡt!Number of blocks to disassemble:  ɡšRצSorry, but I can only handle   blocks. 6Starting address for disassembly (hex prefix = "$") : | D ȡš--ة-ۄP饃ɡ/-ġj  $ $ ک&"**ˡOצ Pascal error *  accessing *á襁 Code file = : *"ˡXצ"BLOCKREAD ERROR! Pascal I/O error  "**ˡO Pascal error * צ accessing *á Name of code file: Pצ"**ˡ.á-++P+.CODEU+P accessing צ PCODE.INSTRS0ʂƂƂd+Name of OUTPUT file (default is CONSOLE:): PצCONSOLE:תP.צ.á++P+צ.TEXTU+Pru u u u u u u u u u u u u u Ƃ̇ƇƇƇצ PCODE.INSTRSƇ"ˡ_ Pascal error  ƂƃƁ.rƇצ#4:̇ƇƇƇϦ 6500.INSTRSƇ" á<Ƈ̦#5:ת̇ƇƇƇצ 6500.INSTRSƇ"ˡ\צ Pascal error  צ opening  6500.INSTRS٨٢B@0Pascal/6502 dis-assembler ** by David M. Tribby F(DISASSEM  :צ>> FREE SPACE = (  צJump addresses צSubroutine addresses צBranch addresses צAccessed addresses צIndexed addresses Indirect addresses ! (Vvf  F @L" :צ>> FREE SPACE = (  צJump addresses צSubroutine addresses צBranch addresses  ` צ0123456789ABCDEF 🫂ퟫ쟫 צ(APPLE PASCAL/6502 ABSOLUTE DIS-ASSEMBLERצ VERSION: April 14, 1986צ .ORG  צ)Print hex codes with instructions? [Y/N] @Yë ˡKצOnly   blocks read from code file!ޢښޢYšޥYx - 驄- 驄-ٚ-ȡ'ۢ)The following library bytes are non-zero:Njȡ<{Njˡ' :{Nj 򥁃׷(""}- b  ȡ,Y ("  UWY  <!צHOST REF POINTER۶ צ .REF POINTER޶ ۮ  צINTERNAL REL POINTER ۮ áض @0 @  צ,X!צ,Y '-򥁃A򥁃# .򥁃Rǀɡ    [ ,X@ u ȡض ؂@   Gצ .WORD ض @ض @  á𥁃8 ض @u  Hض áR   1ضáXضáH0ضá1ˡצ+0C á/צ.INTERPˡצ+0  צ: ض 6צ .BYTE  .צ .ASCII "  ض @  Ȅ ض @  "m ض á ۪Pō ** ERROR:  ( ) ISN'T BETWEEN   AND  R ڶ ڶ ÍڶÍڶÍ"= parametersgצNext base location = <  &IujB5QZnb0z@@>s = צ parameters7 (Separate procedure) P # < צ expects = צ parameters7 (Separate function) P # < expects  (Constant value) = < 7צ (External procedure) P # < expects = parameters7צ (External function) P # < צ expectlobalPublicצPrivateצSepprefצSepfrefצConstant7צ (Global definition) P # < צ, I # = 7 (Public definition) I # < 7+ +ȡ,,,ض @ض @,...,,š$,,,     = [ب   @7 ;UNITצG+צ byteU+PE<á!++P+צ wordU+P++P+ ??S+P7 (צ reference), Size = > צ, = צ references=š7 =  רY ũ@ÍIMPLEMENTATIONׯ G r  š*      <تP<á ++P+ bigT+Pm<á!++Pض@aIJzȄض@ n | ,ض@ ~ Tةá Cةá<šض@ ȡ  צ.INTERP POINTER  צCode length =   צ bytes with  צ .INTERP fixups,   צ .REF fixups,  צ host fixups, and  צ internal fixups.  .ɡɡ  -    :  š ȡ!ض @  ɡ  information?@Yá Decode   machine code?@Yá -!^ !צ0123456"-..ȡ- ..///..////"YšbDecode   text?@Yá šxDecode   linkerurtlegraph)𥁃 (Turtle data)𥁃 (Applestuff)𥁃צ (Chainstuff)r (Transcendal)V (Longinteger): (Pascal I/O) lR8쥁 =;=*AC vers. )צ , length =  צ bytesy襁)These SYSTEM.LIBRARY intrinsics are used:ȡy 򥁃 (Tata segment תPeG. צ is iI`  e (old codeתPl (P-code(+)תPWצ (P-codePEצ (Assembly?P0 (6502 asmbתP lZG79l>$ 0Iצa linked segment Pa host segment תPצa segment procedure Pצa unit Pan external module תPkצan unlinked intrinsic PKצlinked intrinsic P0a dńINDEX INTO CODE@@ @ Disassembly for procedure #  ; Lex level =   START OF CODE áš6 צ procedures are externa@šdצSorry, only machine code up to @  bytes can be decoded@צ ** # PROCS =  , SEGMENT # = @ 叕 צ, parameters =  , data =  צ bytesצ; Jump table =    words  ٓ  "J ب #   )   , P-code procedure    áLض @ǭ˩ض @˄ض @˄ Ʉ   Code =    bU      Ȅ򥁃צ Jump table: ȶ   : ض @ ض @  .WORD R  צ (Entry@BDFHJLNPRT  ؂ ؂؂ڕڕȡ1צ,R ؂ ` L AD  "+9;68:<>@B^ ǀق,"ȡض ܂@"ڂ   ȡ%,  ]V k "$&(*,.02468:<>0š  š, ض @ض @ض @0ݹǀ9Íǀض @ǀġǀ789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$(0  0:^2ddz \!!p"".##$%D"Decode   machine code?@Yá -!^ !צ01234566צ .BYTE  .צ .ASCII "  ض @  Ȅ ض @  "m ض á 00 .WORD R34 (Entry # -10) SLDC 28 45: 9E 15 CSP 21 47: B9 F4 UJP -12 49: C1 00 RBP 0 Jump table: 52: 32 00 .WORD R2 (Entry # -12) 54: 14 SLDC 1 35: A1 02 FJP 2 37: B9 F6 UJP -10 39: 1C SLDC 28 40: 9E 16 CSP 22 42: B9 05 UJP 5 44: 1C 22: A1 0A FJP 10 24: D7 NOP 25: A6 02 47 47 LSA 2,"GG" 29: CD 1C 02 CXP 28,2 32: B9 05 UJP 5 34: 01 5 18: 9E 22 CSP 34 20: 00 SLDC 0 21: CB NEQI LAO 3 8: 00 SLDC 0 9: C7 00 02 LDCI 512 12: C7 10 01 LDCI 272 15: 00 SLDC 0 16: 9E 05 CSP e # 1; Lex level = 0 P-code procedure 1 Code = 51, parameters = 4, data = 512 bytes; Jump table = 2 words 0: B9 2A UJP 42 2: CD 1C 01 CXP 28,1 5: 04 SLDC 4 6: A5 03 Code file = GREMLIN:SYSTEM.STARTUP The following library bytes are non-zero: PROTECT is a linked segment (P-code vers.5), length = 70 bytes These SYSTEM.LIBRARY intrinsics are used: 28 (Chainstuff) ** # PROCS = 1, SEGMENT # = 1 Disassembly for procedur789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$(  Hض áR   1ضáXضáH0ضá1ˡצ+0C á/צ.INTERPˡצ+0  צ: ض @ u ȡض ؂@   Gצ .WORD ض @ض @  á𥁃8 ض @uata segment תPeG. צ is iI`  e (old codeתPl (P-code(+)תPWצ (P-codePEצ (Assembly?P0 (6502 asmbתP lZG79l>$ 0Iצa linked segment Pa host segment תPצa segment procedure Pצa unit Pan external module תPkצan unlinked intrinsic PKצlinked intrinsic P0a dńINDEX INTO CODE@@ @ Disassembly for procedure #  ; Lex level =   START OF CODE áš6 צ procedures are externa@šdצSorry, only machine code up to @  bytes can be decoded@צ ** # PROCS =  , SEGMENT # = @ 叕 צ, parameters =  , data =  צ bytesצ; Jump table =    words  ٓ  "J ب #   )   , P-code procedure    áLض @ǭ˩ض @˄ض @˄ Ʉ   Code =    bU      Ȅ򥁃צ Jump table: ȶ   : ض @ ض @  .WORD R  צ (Entry@BDFHJLNPRT  ؂ ؂؂ڕڕȡ1צ,R ؂ ` L AD  "+9;68:<>@B^ ǀق,"ȡض ܂@"ڂ   ȡ%,  ]V k "$&(*,.02468:<>0š  š, ض @ض @ض @0ݹǀ9Íǀض @ǀġǀ internal fixups.  .ɡɡ  -    :  š ȡ!ض @  ɡ  צ.INTERP POINTER  צCode length =   צ bytes with  צ .INTERP fixups,   צ .REF fixups,  צ host fixups, and  צ,Y ("  UWY  <!צHOST REF POINTER۶ צ .REF POINTER޶ ۮ  צINTERNAL REL POINTER ۮ áض @0 @  צ,X!צ,Y '-򥁃A򥁃# .򥁃Rǀɡ    [ ,X;=*AC vers. )צ , length =  צ bytesy襁)These SYSTEM.LIBRARY intrinsics are used:ȡy 򥁃 (Turtlegraph)𥁃 (Turtle data)𥁃 (Applestuff)𥁃צ (Chainstuff)r (Transcendal)V (Longinteger): (Pascal I/O) lR8쥁 =6צ .BYTE  .צ .ASCII "  ض @  Ȅ ض @  "m ض á ۪Pō ** ERROR:  ( ) ISN'T BETWEEN   AND  R ڶ ڶ ÍڶÍڶÍ"= parametersgצNext base location = <  &IujB5QZnb0z@@>s = צ parameters7 (Separate procedure) P # < צ expects = צ parameters7 (Separate function) P # < expects  (Constant value) = < 7צ (External procedure) P # < expects = parameters7צ (External function) P # < צ expectlobalPublicצPrivateצSepprefצSepfrefצConstant7צ (Global definition) P # < צ, I # = 7 (Public definition) I # < 7+ +ȡ,,,ض @ض @,...,,š$,,,     = [ب   @7 ;UNITצG+צ byteU+PE<á!++P+צ wordU+P++P+ ??S+P7 (צ reference), Size = > צ, = צ references=š7 =  רY ũ@ÍIMPLEMENTATIONׯ G r  š*      <تP<á ++P+ bigT+Pm<á!++P789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$(0  0:^2ddz \!!p"".##$%D"Decode   machine code?@Yá -!^ !צ0123456789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$( information?@Yá Decode   machine code?@Yá -!^ !צ0123456"-..ȡ- ..///..////"YšbDecode   text?@Yá šxDecode   linker  Hض áR   1ضáXضáH0ضá1ˡצ+0C á/צ.INTERPˡצ+0  צ: ض @ u ȡض ؂@   Gצ .WORD ض @ض @  á𥁃8 ض @uata segment תPeG. צ is iI`  e (old codeתPl (P-code(+)תPWצ (P-codePEצ (Assembly?P0 (6502 asmbתP lZG79l>$ 0Iצa linked segment Pa host segment תPצa segment procedure Pצa unit Pan external module תPkצan unlinked intrinsic PKצlinked intrinsic P0a dńINDEX INTO CODE@@ @ Disassembly for procedure #  ; Lex level =   START OF CODE áš6 צ procedures are externa@šdצSorry, only machine code up to @  bytes can be decoded@צ ** # PROCS =  , SEGMENT # = @ 叕 צ, parameters =  , data =  צ bytesצ; Jump table =    words  ٓ  "J ب #   )   , P-code procedure    áLض @ǭ˩ض @˄ض @˄ Ʉ   Code =    bU      Ȅ򥁃צ Jump table: ȶ   : ض @ ض @  .WORD R  צ (Entry@BDFHJLNPRT  ؂ ؂؂ڕڕȡ1צ,R ؂ ` L AD  "+9;68:<>@B^ ǀق,"ȡض ܂@"ڂ   ȡ%,  ]V k "$&(*,.02468:<>0š  š, ض @ض @ض @0ݹǀ9Íǀض @ǀġǀ internal fixups.  .ɡɡ  -    :  š ȡ!ض @  ɡ  צ.INTERP POINTER  צCode length =   צ bytes with  צ .INTERP fixups,   צ .REF fixups,  צ host fixups, and  צ,Y ("  UWY  <!צHOST REF POINTER۶ צ .REF POINTER޶ ۮ  צINTERNAL REL POINTER ۮ áض @0 @  צ,X!צ,Y '-򥁃A򥁃# .򥁃Rǀɡ    [ ,X;=*AC vers. )צ , length =  צ bytesy襁)These SYSTEM.LIBRARY intrinsics are used:ȡy 򥁃 (Turtlegraph)𥁃 (Turtle data)𥁃 (Applestuff)𥁃צ (Chainstuff)r (Transcendal)V (Longinteger): (Pascal I/O) lR8쥁 = (Constant value) = < 7צ (External procedure) P # < expects = parameters7צ (External function) P # < צ expectlobalPublicצPrivateצSepprefצSepfrefצConstant7צ (Global definition) P # < צ, I # = 7 (Public definition) I # < 7+ +ȡ,,,ض @ض @,...,,š$,,,     = [ب   @7 ;UNITצG+צ byteU+PE<á!++P+צ wordU+P++P+ ??S+P7 (צ reference), Size = > צ, = צ references=š7 =  רY ũ@ÍIMPLEMENTATIONׯ G r  š*      <تP<á ++P+ bigT+Pm<á!++Pض@aIJzȄض@ n | ,ض@ ~ Tةá Cةá<šض@ ȡ )The following library bytes are non-zero:Njȡ<{Njˡ' :{Nj 򥁃׷(""}- b  ȡޢښޢYšޥYx - 驄- 驄-ٚ-ȡ'ۢ| D ȡš--ة-ۄP饃ɡ/-ġ789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$(0  0:^2ddz \!!p"".##$%D"Decode   machine code?@Yá -!^ !צ0123456789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$( information?@Yá Decode   machine code?@Yá -!^ !צ0123456"-..ȡ- ..///..////"YšbDecode   text?@Yá šxDecode   linkers = צ parameters7 (Separate procedure) P # < צ expects = צ parameters7 (Separate function) P # < expects = parametersgצNext base location = <  &IujB5QZnb0z@@> צ, parameters =  , data =  צ bytesצ; Jump table =    words  ٓ  "J ب #   )   , P-code procedure    áLض @ǭ˩ض @˄ض @˄ Ʉ   Code =    bU      Ȅ򥁃צ Jump table: ȶ   : ض @ ض @  .WORD R  צ (Entry@BDFHJLNPRT  ؂ ؂؂ڕڕȡ1צ,R ؂ ` L AD  "+9;68:<>@B^ ǀق,"ȡض ܂@"ڂ   ȡ%,  ]V k "$&(*,.02468:<>0š  š, ض @ض @ض @0ݹǀ9Íǀض @ǀġǀ internal fixups.  .ɡɡ  -    :  š ȡ!ض @  ɡ  צ.INTERP POINTER  צCode length =   צ bytes with  צ .INTERP fixups,   צ .REF fixups,  צ host fixups, and  צ,Y ("  UWY  <!צHOST REF POINTER۶ צ .REF POINTER޶ ۮ  צINTERNAL REL POINTER ۮ áض @0 @  צ,X!צ,Y '-򥁃A򥁃# .򥁃Rǀɡ    [ ,X@ u ȡض ؂@   Gצ .WORD ض @ض @  á𥁃8 ض @u  Hض áR   1ضáXضáH0ضá1ˡצ+0C á/צ.INTERPˡצ+0  צ: ض 6צ .BYTE  .צ .ASCII "  ض @  Ȅ ض @  "m ض á ۪Pō ** ERROR:  ( ) ISN'T BETWEEN   AND  R ڶ ڶ ÍڶÍڶÍ"@šdצSorry, only machine code up to @  bytes can be decoded@צ ** # PROCS =  , SEGMENT # = @ 叕ńINDEX INTO CODE@@ @ Disassembly for procedure #  ; Lex level =   START OF CODE áš6 צ procedures are externa%>>> ESCAPE READ; TRANSFER TERMINATED!WPݥ ޹ צ lines converted gb + ꩂȡWP ީޓ.Wצ W Wš)Wצ W Wצ WPWߥߦRߥWQߪPW[ëݩݡAצצ#*** SHORTEN A DISASSEMBLER FILE *** Input file: .P.צ.צ Output file: Pצ B@FIXDIS 789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$(0  0:^2ddz \!!p"".##$%D"Decode   machine code?@Yá -!^ !צ0123456789ABCDEF  APPLE PASCAL/6502 DIS-ASSEMBLERצ VERSION:  July 27, 1982/   !/! BZ$( information?@Yá Decode   machine code?@Yá -!^ !צ0123456"-..ȡ- ..///..////"YšbDecode   text?@Yá šxDecode   linkerurtlegraph)𥁃 (Turtle data)𥁃 (Applestuff)𥁃צ (Chainstuff)r (Transcendal)V (Longinteger): (Pascal I/O) lR8쥁 =;=*AC vers. )צ , length =  צ bytesy襁)These SYSTEM.LIBRARY intrinsics are used:ȡy 򥁃 (Tata segment תPeG. צ is iI`  e (old codeתPl (P-code(+)תPWצ (P-codePEצ (Assembly?P0 (6502 asmbתP lZG79l>$ 0Iצa linked segment Pa host segment תPצa segment procedure Pצa unit Pan external module תPkצan unlinked intrinsic PKצlinked intrinsic P0a dꩂȡWP ީޓ.Wצ W Wš)Wצ W Wצ WPWߥߦRߥWQߪPW[ëݩݡAצSLDC 0 SLDC 1 SLDC 2 SLDC 3 SLDC 4 SLDC 5 SLDC 6 SLDC 7 SLDC 8 SLDC 9 SLDC 10 SLDC 11 SLDC 12 SLDC 13 SLDC 14 SLDC 15 SLDC 16 SLDC 17 SLDC 18 SLDC 19 SLDC 20 SLDC 21 SLDC 22 SLDC 23 SLDC 24 SLDC 25 SLDC 26 SLDC 27 SLDC 28 SLDC 29 SLDC 30 SLDC 31 CCOUNT.DATA'); ,FOR INDEX:=0 TO NUMTRANS DO .BEGIN 0ACCOUNT^:=TRANSACTIONS[INDEX]; 0PUT(ACCOUNT) .END; ,CLOSE(ACCOUNT,LOCK) *END; &WRITELN('SO LONG!') $END; { QUIT } $ "{******************************************************************} " "BEED:BOOLEAN; 1NUMTRANS:INTEGER; 1TRANSACTIONS:TRANSARRAY); " $VAR ACCOUNT:FILETYPE; $ INDEX:INTEGER; $ $BEGIN { QUIT } &IF NOT ACCOUNTCLOSED (THEN *BEGIN ,WRITELN('YOUR ACCOUNT IS BEING UPDATED . . . '); ,WRITELN; ,REWRITE(ACCOUNT,'MASTER2:A*BEGIN ,REWRITE(ACCOUNT,'#5:ACCOUNT.DATA'); ,CLOSE(ACCOUNT); ,WRITELN('YOUR ACCOUNT HAS BEEN PERMANENTLY REMOVED.') *END $END; { CLOSEACCOUNT } $ "{*******************************************************************} % "PROCEDURE QUIT(ACCOUNTCLOSCH:CHAR; $ $BEGIN { CLOSEACCOUNT } &WRITE('YOU ARE ABOUT TO PERMANENTLY REMOVE YOUR '); &WRITELN('ACCOUNT FROM MEMORY.'); % WRITE('ARE YOU SURE YOU''D LIKE TO GO ON? (Y/N) '); &READ(CH); &WRITELN; &ACCOUNTCLOSED:=CH='Y'; &IF ACCOUNTCLOSED (THEN ANSACTION NUMBER ',TRANSNUM,'? (Y/N) '); (READLN(CH) &UNTIL CH<>'Y' $END; { CHANGETRANS } " "{******************************************************************} * "PROCEDURE CLOSEACCOUNT(VAR ACCOUNTCLOSED:BOOLEAN); " $VAR ACCOUNT:FILETYPE; $ RITELN('TRANSACTION NUMBER ',TRANSNUM,':'); &WRITELN; &REPEAT (MAKECHANGE(TRANSACTIONS[TRANSNUM],CHANGE); (IF CHANGE<>0 *THEN ,FOR I:=TRANSNUM TO NUMTRANS DO .WITH TRANSACTIONS[I] DO 0BALANCE:=BALANCE+CHANGE; (WRITELN; (WRITE('MORE CHANGES FOR TR4ELSE CHANGE:=(OLDAMOUNT-AMOUNT); 0END ,END *END &END; { MAKECHANGE } 0 ${****************************************************************} & $BEGIN { CHANGETRANS } &GETNUM('WHICH TRANSACTION WOULD YOU LIKE TO CHANGE? ', -NUMTRANS,TRANSNUM); &WSLDL 9 SLDL 10 SLDL 11 SLDL 12 SLDL 13 SLDL 14 SLDL 15 SLDL 16 SLDO 1 SLDO 2 SLDO 3 SLDO 4 SLDO 5 SLDO 6 SLDO 7 SLDO 8 SLDO 9 SLDO 10 SLDO 11 SLDO 12 SLDO 13 SLDO 14 SLDO 15 SLDO 16 SIND 0 SIND 1 SIND 2 SIND 3 SIND 4 SIND 5 SIND 6 SIND 7 IXP 9RBP 7CBP 2EQUI GEQI GRTI LLA 4LDCI ALEQI LESI LDL 4NEQI STL 4CXP 9CLP 2CGP 2LPA 5STE 1??? EFJ 3NFJ 3BPT 4XIT NOP SLDL 1 SLDL 2 SLDL 3 SLDL 4 SLDL 5 SLDL 6 SLDL 7 SLDL 8 ADJ 2FJP 3INC 4IND 4IXA 4LAO 4LSA 5LAE 1MOV 4LDO 4SAS 2SRO 4XJP 6RNP 7CIP 2EQU 2GEQ 2GRT 2LDA 8LDC 5LEQ 2LES 2LOD 8NEQ 2STR 8UJP 3LDP STP LDM 2STM 2LDB STB ABI ABR ADI ADR LAND DIF DVI DVR CHK FLO FLT INN INT LOR MODI MPI MPR NGI NGR LNOT SRS SBI SBR SGS SQI SQR STO IXS UNI LDE 1CSP 2LDCN SLDC 96 SLDC 97 SLDC 98 SLDC 99 SLDC100 SLDC101 SLDC102 SLDC103 SLDC104 SLDC105 SLDC106 SLDC107 SLDC108 SLDC109 SLDC110 SLDC111 SLDC112 SLDC113 SLDC114 SLDC115 SLDC116 SLDC117 SLDC118 SLDC119 SLDC120 SLDC121 SLDC122 SLDC123 SLDC124 SLDC125 SLDC126 SLDC127 SLDC 64 SLDC 65 SLDC 66 SLDC 67 SLDC 68 SLDC 69 SLDC 70 SLDC 71 SLDC 72 SLDC 73 SLDC 74 SLDC 75 SLDC 76 SLDC 77 SLDC 78 SLDC 79 SLDC 80 SLDC 81 SLDC 82 SLDC 83 SLDC 84 SLDC 85 SLDC 86 SLDC 87 SLDC 88 SLDC 89 SLDC 90 SLDC 91 SLDC 92 SLDC 93 SLDC 94 SLDC 95 SLDC 32 SLDC 33 SLDC 34 SLDC 35 SLDC 36 SLDC 37 SLDC 38 SLDC 39 SLDC 40 SLDC 41 SLDC 42 SLDC 43 SLDC 44 SLDC 45 SLDC 46 SLDC 47 SLDC 48 SLDC 49 SLDC 50 SLDC 51 SLDC 52 SLDC 53 SLDC 54 SLDC 55 SLDC 56 SLDC 57 SLDC 58 SLDC 59 SLDC 60 SLDC 61 SLDC 62 SLDC 63 GIN { MANAGECHECKACC } $OUTPUTTITLEPAGE(ACCOUNTCLOSED,OPTIONS,NUMTRANS,TRANSACTIONS);  REPEAT &OUTPUTMENU(OPTIONS,CHOICE); &CASE CHOICE OF (1:MAKETRANS(NUMTRANS,TRANSACTIONS); (2:OUTPUTTRANS(NUMTRANS,TRANSACTIONS);