TRTSS͋^AA[CRËKKYQÉ͋^AA͊FAQ͊FrA͋VAA͋^AASR{͋Ns[ uAA͋N\Z[*Ȉ* uSAA@[ZRSR8[4[܋([S"[ uS[^ [KR[ZCZ[^R[u/y*C7RKK7KCCC7KKt[ZS[u$yZRRCCKKCCtZCt[SS[Rj[SS[R^S[ZCL[ZE[Z"ÈÈ"Lj3[Z ÈÈ Lj"[Z2ÈÈ2Lj[ [߳[Z[C[K[CCZ[)[ x ЈLjЈC[C^ڇ[K[ЈLjЈCZ[QٻۇۇrtY~PۇۇrC)rBXtÈЈˆЈBxЈňЈPAXxÈٻ P{Xr[ZQYR[ZQr xwYSRPr ؈Lj؈È؈ƈ؈XtÈZY^S ,KPXYPXsYRC[ ǻtC1Qň*ˆƈYxZ[[Z[Z)ӈ ûtCZ[4Z[Z*ˆ$÷ u ՈFCBIÈˈYZ^YˈZY^ӈ uCIYjZ[QAY[a[CC݋^C݋^C?[Ӊ͋^AAQC=Y͋^AA͋VAAQ0Ӌ͋^Y[)ډ[ۇӋ)ӋCRӋCCKK[ZQň*ˆƈYx͊FA͊FňRS͊FA͊FA[[uSKK^s2xAA[ډC^K7K^Q)Yx AA[KK [CCC͋NSSSK[͊FA t ͋Nt(͊FA2É͊FPAXt2uct͋F)AA͋VAAs)B͊FS͊F2t ACtr[uˆr sR͊FA tAAtAAtAAAA͊FrA *NC[ZQY[ZQYxT!T? TzT_T >q6>d,T T T 'wT'T w6 q  T: q TATQo TA@  "q -; ;  1"  6EE  T.  1 ,;  1E  * 1" ( q >>>>T}6>^^h ^j ' ^^P >5 ^ c    M  : >d5 "   c   '' '18 6 T? TmT   e  T? TmT  "     TT , T? T}T? T}  1: >E" ^ 'C T'YO,wO? TmC T? TmT ^ >5 w  c  " y : >Qӱ`CڇYQ5 E[آM[CӏEGQIK:u KCCCC u*ˆƈŋG*rوG*CňCCӈRӻrӋCCCCC^ں&ڇӋEM t Z3^ tڱ uGK[EGrCEM uGM uKECC)CCCCsG ubSC*ڠM t6hY<u&IىICCCCC/&ڇӋEYQӋEYCCCCC/YM tISKS: > > >TT c>G=B<T65 m: MT KT AGM>:i15 }: O865 }: >T T E ;O;4T TTT O>I  y>"y>Ja T Ba > T zy,'@ T T T 1 , T T^yT@y   [>c^T_M O>f ET yJy>T y>4kRe>܇ӻڇQSR ՊFՈFCBtZ[ x ՊFՈFCBtӈ u< s0÷YZ^P,y>;m'm'> +T-yJ'mJmTdmJ>T y>T yJmJmT>T yTT>T yT-yECtc'J;JmJJmTJmTJ@BmJmJ'mJmTdmJ> \JmJmT>T  \T>[ZQ uC uYSproc DOSCAN SRF3%__uCBF2$_t Z[CBy$Z[t SC[YS"proc DOSCND 865 431/-+) zxXV Usa * ERROR * 4"2va CONTINUE LOAD (Y/N)? DT_TY AaINPUT IGNORED UNTIL ; dD$;;PUSH Ta *** CLI RESUMING r2"_4e7f "S2TA}TAUK_D>"- \ a$STACK UNDERFLOW ... RESETTING STACK.va STACK EMPTY.D>' 5aCANNOT OPEN FILE "v>f >]a FILE READv>ya FILE WRITEv>,D>,_>>>z2, a(TOO MANY LOAD LEVELS ECOUNTERED AT FILE "v 2"_728> uDKۺڊC7R{E[ t"[2"_7;28E2j< A<AA8DaT<A<LD<  'T E[ u@[$S5 uq ug[S< r'< t 3+DE< t EyE5S V O-\T yyE' "' ,> >SC$u,a IS NOT A 7TH EXECUTABLE WORD"vE CC7Z[S/ZC7C/ /ZC/[Z$l0aaWORD a CANNOT BE FOUND IN DICTIONARY'v>K7KRՊFˆrBC7}c>[Qٻ܊7KKR7KRӻu SR ՊFՈFCBtZ[YYY*Z[r ^C^9D=',T" " , T" ]aSYMBOL a IS UNDEFINED'v7T߿TH TT߿TO @T߿TQ @T߿TB " J1' T+  ''4T- 4 ''1' ,T, _6"6,'T0E;T߿J;;6;1686;NN6+@aSYMBOL a IS UNDEFINED'v66'>H>d,LDIJLDILDIB> SEZ[SJFJNrnfjrJ l9>SEZ[<(t <)tt5d>]TT" T\ #T\ T!T!;(T\ ##911J],,#T ]T ]##9J]> >jLDIS(((>R=2A<  'T  niZ >">`>}xslU! #a WITH DO NESTING LEVEL < T0 a/ ENCOUNTERED WHILE DEFINING WORD 1v>a5CONTROL STRUCTURE ENCOUNTERED OUTSIDE WORD DEFINITIONv>a/ ENCOUNTERED WHILE DEFINING WORD 'v>aILLEGAL CONTROL STRUCTUREf >kK"!#a! ENCOUNTERED OUTSIDE A DEFINITION"v>0 1!#a ENCOUNTERED IN LOMODE"v>\!#aENCOUNTERED IN HIMODE"v>Ko!f s!3!>KP!F"K8!>K"P!!% !F! !>XJK8KP""% "F" "> 3"->ޏl"Da** WARNING * aF IS MULTIPLY DEFINED DO YOU WISH TO RE-DEFINE THIS WORD?(Y OR N) T_D$N"v,~#aWORD a CAUSED DICTIONARY OVERFLOW'v=#  ">݈>ci# c#-'> ~#@#,u!">#^! > ,>w!@!BRZ>b!Tu!BRZ>F $BRT!"F$TT !"" D$-> d$T!"$T !"" $-> $T$Ju!">!T!Ju!BRZ>l $BRJ!"0%TJ!" %-"" ,%->#^!"u!"5"TCOLON" f%->ۚ T>'!p%%SRET%TTHREAD" %->[!RRET>K3!'!p%TX;PUSH" &->3!'!p%>#^!T5"TVLOAD" c&->'^!T5"T,VLOAD" &->#^!"u!"5"TXTASK"TCOLON">Eڏl'H'aSYMBOL a" CANNOT BE FOUND IN THE DICTIONARY'v>!&> >'XDEFAU''&>'XDATAU''& '-'>Hl'H#FP>T#^!T5"T'(LVLOAD" (-=(VLOAD" =(-'Y('>؃'8>؃'8>!XENTR'>!XEXIT'>!T@u!U8XDO">d!T@!U8">H؇XLOOP(>9؇X+LOOP(>)!XDOEXIT>!XDOI>!"XDOJ>!'XDOK>!X:EXIT> 3!TCOLON" )->5"T )->^5"T )->4aILLEGAL SYMBOL #a ENCOUNTERED IN IF[ OR END[ LIST'v>ևXIF[$(e*++$]*$**++$"*$*''*)++$THRU*$*"9*)++$ +')++$!+%+9"O*>!Tu!?*>!@!?*>#^!"$]w+x,$(+t,$BYTE+'t,$WORD+'t,$LENGTH+"t,$NOLENGTH+"t,$", , ,t,$'''R,$''2,&N, H,-'d,`,d,,r,t,c+T5"TVLOAD" ,->#^!"5"l,aSYMBOL a IS UNDEFINED.'v  'c>)!Ju!>!J!Ju!XOF>!J!Ju!BR">!J!-"w->!J!Ju!DUP?*>>zӏ$(-$ENDIF->[.$(-$ OTHERWISEENDIF->+ӏl?.aCan't forget - word not foundv~7q.a!Can't forget system/attached defsv.T  VLOAD .'7 7.....>7Ғ'KUi?#>3! >#/TJJT ,'i/T/'aASSEMBLER REGISTER ERRORf >#/''/aASSEMBLER CONSTANT ERRORf >o',/>ZT'JT/,,/>2T'JTY0TP 60TJTPJTX Q0TXJTu0JTi0,,/>Н;/@_>Н#/>#/>TT',/@0T0, 0T0>Н#/JT/>ϝ#/>ϓ#/>ϝ#/" s1->ϝT",/E 1"1T>ϝ#/'T" 1->a#/T u!'T><#/,!T 2"2'T" :2->#/J!Ju!'T>aCODE^!u!"5">TTT{TvTqTlTgTbT] T$@ H:8P4X'~y,$4 <OtKuGrCs?z;{7x3y67u3t/s+r'{#zyx<8u4t0s,r({$z yx*"2 |:?u;t7r3s/{+z'y#xT,/T',/EL4"T@_4Em4"T@_4@_TT>T,/E 4J4TJT/>xTJT4,,/T>QTJT4,T,/@_TJFT>TJT15,T,/@_TJFT>JJ^>J)>J)>J)>J>J)>J)>J)>J>vJJF>aJ>VJ>KJJN>6J>+JJV>J> J>JJ^>J>J>J>JJ^>J >JJ^JA>je`[VQu" 6'_;>Vʏ 6-'>9ʃ666-" > t7 66>->ɯ6>77>ɯ6{{>}TT0T97;7>]T77>M77>@ɚ 6_>/l8>" 6aLVLOADaVLOADaXTASKaCOLON64g886"W8"7 T 9a 7 7T 7 7T 7 8-T89 8- '1'496"_ 9 8a#:TVL T 77T 7"Y9 M9-'7l9,4l9T 7c9T 77,o8a 76;> 67796;a PHASE ERRORv776767777 767-6D'6D6;>" 67776767777 767-76_'6_6;>"J ,  >Qa Dictionary space left: ~\a Definition space left:  ;;6=;\ ;a Cross mode Start Stopa Code: -6\a \a Data: \a 6\D>i>^>7Y[ uS5 Y[ uS%ŏ>ŏ9>ŏ0:> ">@<endfileG<endprocT<a<mB<{>64<<<>jh,ñ[ZՊF:PCBXuS[t("\a ===> start of codeD5" B<g=B<;TTHREAD `>-"`"\a ===> end of codeD>o< >>o< >>> !$!C !Eproc BANNER ͻ ̹ 86 ͼ Original CP/M80 version (c) 1982 United Controls Corporation United P.O. Box 4620 Controls Huntsville, Alabama, 35802 Corporation ͼ 205-837-6144 ͻ MSDOS translation by M.F.Buchan. ͻ EGA graphics, shell to DOS, ͹ Hong Kong and other extensions added (1988) ͹ ͺ ͼ Polytechnic Released to Public Domain by permission of UCC Electrical Engineering Dept. ͼ Version 2.02 Comprehensive user manual $25 from UCC $BANNER>logo>cload>ctload>CsLOAD >DOLOADg=STEST:=LXWRD=FBUFF<LXSTRG<RBYTE<FIND[t<CTFLAGo<IBUFFh<SLASTc<NTRYSTRG\<EOFSTRGO<FCBADDB<RECURSE)<ISAVE <ILOAD<FLOAD<<-L;->L;[[;]];STATUS:STOPMAP:PIMAGE0:GIMAGE9MAP#8%MFIND8%MPRINT7%MHEX47%MHEX27%MHEX17%MWGET7%MWPUT7%MPUT7ORGv7UNCROSSK7 CROSS-COMPILE6PATCH6SAVE6%MLINE6%MEXA6%MFCB6OLDLUM6OLDHEAD6CROSSTOP6LDAXHB,6or-bcbc,~6 mov-hl[hl],i6 mov-[hl]de,^6 mov-hlde,S6 mov-[hl]bc,H6 mov-hl[bc],36 mov-hlbc,(6 mov-de[hl],6 mov-de[bc],6 mov-bc[hl],5 mov-bc[bc],5 mov-bcax,5 mov-axhl,5 mov-ax[bc],5 mov-axbc,5 sub-hlde,5 sub-hlbc,5 sub-dehl,5 add-[bx]de,5 sub-[bx]de,{5 sub-axhl,p5 sub-axde,e5XTHL,P5STAX,5LDAX,4LXI,4MVI,4MOV,4WHILEP4WHILEM4WHILEPO4WHILEPE 4WHILENC4WHILEC4WHILENZ4WHILEZ3CMP,3ORA,3XRA,3ANA,3SBB,3SUB,3ADC,3ADD,3ENDP3ENDM3ENDPO3ENDPE3ENDNC3ENDC3ENDNZ3ENDZ3ENDU3IFP3IFM3IFPO3IFPE3IFNC3IFC3IFNZ3IFZ3STA,3LDA,3popw,3pushw,3dcxw,3inxw,|3LHLD,w3SHLD,r3CM,n3CP,j3CPE,f3CPO,b3CC,^3CNC,Z3CZ,V3CNZ,R3CALL,N3JMP,J3OUT,F3IN,B3CPI,>3ORI,:3XRI,63ANI,23SBI,.3SUI,*3ACI,&3ADI,"3PCHL,3SPHL,3CMA,3XCHG,3RAR, 3RAL,3RRC,2RLC,2POPF,2PUSHF,2EI,2DI,2CMC,2STC,2DAA,2HLT,2NOP,2RET,2RST,2POP,2PUSH,2DCR,2INR,2DAD,2DCX,2INX,2M2H2D2B2SP2L2E2C2PSW2A2CODEj2%XACL8,>2%XACL6,1%XACL5,1%XACLCL1%XACL7,w1%XACL44,R1%XACL4S,E1%XACL4,81%XACL3,"1%XACLZSS0%XACLZS0%XACLZ2B0%XACL2,0%XACL15w0%XACL130%XACL11/%XACL1C/%XVAVAL/%XVAREG,/%XVALVL#/ICOM.FORGET.IFTRUE- OTHERWISE-ENDIF-OF[-ENDCASEl-ENDOF<-OF-CASE -SYNONYM,DATA[V+END[G+IF[1+TSTLIST?*BADTL)DACLS2)DACLS):ENTERu):EXIT])KI)J5)I!)EXIT )+LOOP(LOOP(COMLOOP(DO( EXIT-FRAME( ENTER-FRAME( OLD-CONTEXTp( NEW-CONTEXT[(BLOCK'GETFP'CONTEXT'''''t'STDFSU' [COMPILE]J'GTDFA&TASK&,CONSTi&CONST2& ;NOTHREAD!&;PUSH%RETURN%;%CLRFINDp%:2%ENDWHILE$WHILE$REPEAT$THENJ$ELSE#IF#END#ASM# IMMEDIATE#BEGINk#XDATAH#REDEFINE?#DEFINE5"GETLOC"CNVPOP!CNVCHK!CNVPSHu!CMPERR3^!LOMODCHK3!HIMODCHK!LVLCHK CMPERR2 CMPERRf CMPERR1% DOLVLCHKolastINITLUMINITHEAD%ERNUMREDEFLUMDICTION~DDSsdepth`ICLITOPDICT""HEAD"PROCESS(())CLIDEBUGCLIWORDNUMBERJVAL9GVALGVALESC%DS+%DS*XDEFASTRIMcXDFDOITHEADB!HEAD!STORIT%ASMCHKGETIMMEDCHARS]GCLOADPRINTLOC PRINTLOADSYSWBYTESYSRBYTE{SYSWRITE_SYSREADDSYSCLOSE;SYSOPEN DSERMSGv DEBUGERMSGsONnOFFi %WORDFORWARDd %CLIFORWARD_SYSLASTZDOLVLUCNVMAXPCNVNUMKCNVSTKFCONIPACONBUF<FCBS7CURCHAN2BASE-STRING(ATOM#HIMODEOLDLASTLASTHEADCROSS NLLINMAYPLOCMAYPRNTCLISPCLICSPDOSCNDDOSCANfindlDISPLAYN,.H(,..HB.H\.P.L%LST2DOUTmSPCS\SPCRCRLFD.Cy."QUIT5INITIOGETLINLBKSPGETCHRPUTLINPUTCHRyPC1TCOLCNTOGETSTSGLGC1CBUF CTRLPFLAGGETCLIWRITEREAD%RWCOM %DIO# CLOSEf %CLOSE OPEN ADDFCBS %IBUFSM %DIOSET? UNLOCKIO: LOCKIO5 IOFLAG0 PFN%PFNERR%UPCMON1}MON2m%DTMPhSYSFCBcFCBSIZE^RECSIZEYNUMFCBSTRECOFSO10J9E8@7;66514,3'2"10-1XIF[$XDOEXITXDOK XDOJXDOIX+LOOPXLOOPXDO4%CSPSH##CSPICKXEXITXENTRLVLOADFP$!FILLwMOVEcMOVE#LU>70>->== ><RELAT#0=*/~%MPYU#E/MOD"/%CDIV#SGNDE#SGNBC#NEGDE#%DIVU#*_-1*N+!8ABS -2+1-1+ +SHL8SHR8XORORANDB!!SP@B@DUPB@@DUP@INSRT_XTRCT#ROTPOKEPICKSWAP?DUPDUPKILLDROPOVERXOFBRZBR,LDIvLDISaLDIBTLDIJX:EXITEEXECDSRET>RRET=COLON6POPBC#)PSHBC#CSPvload thpat threadx;push?C