HRQ-R5.1yDOS  WINBAS - CASDRV *y CD - CF - CO - DT - M0000  M2D00 - M5700 W M6700 "g PASIO 1 CASTST +p TIMETEST CASETTE ,y CASBAS / CLOCK 1 BCLOCK 2 ROMRCVE 4 L2BASIC 5 RATS N HYBASIC O- ASMB i @ INIT v EQU w PROG y PARITY z PSOR { CATASM } CATBAS  CATBIN  FREAKY  DBACK  DIGITIZE SUBCAT  DISKCAT  CATBARS  CAT100  SETUP  CASEY AA ALL  ALLCAT  MERGE  PICTURE  HISTO  PASIOB 9 MERGE3  DIG  PARTY  BOARD1  BINARY  WSOR1  WBIN1  WDIG  WDIGB  WDIGX ! WDIGXB & WORKS ' WORKSB , CATBINX - CLASS1 . CLASS2 : CLASS3 < "MERGE" > MER B AMD9511 F AMDSINE H AMDATAN J M MER2 S  5 4))~)o)×"F$#å#b&y"q"U*1c >2 >!"c 5 ['yg> gy?O  2&{2& ͮ!{¥ : >!! ~Y(!(!*&~}OG<=͗!:5 0"!@{!: ! >wG#7wG# ! >!Wr!0O>!/!×!:{!:>! ::!:Ù!͗!:!0:&!͙!!: y2 :&_͙! ͗!:@!>!@{!: "!!+"G#+"G# " #!>!::3":;"::&R":I~_G#~_G# T"X*& >?1&&1c :&+"6& RE-BOOT">T1&01&&>D1&y?01&&>S1&%v"", V$, >2&!&+6 "T]t&7 ",7 , #7w#t&"A&t& 7:/ !&O:&o&'>" , {@#×!:+ ;#:&2&> >"d##Gy@O:&c 2&x2&6#:&҄#=S#*&:&!&h&)T]))o|g:& !9"&#/$#_#y?##x##7#!$!$g} W /2&h"&"&M\N#*&*&|E.#} W\MN#yW:4 6$>FD"&2&~ ""د2&>2/ !"&~$:& h$7*&y2&* !%" !/ :&O:&o&'>" "  :/ $!':&%$# $~ $,&N#F !&̈́&$"&¸$<"  :/ 2/ Ã$~ $:&Q%:&Q%=N%%6& , 8%&:3 =2&F&# Q%,&%&,&~r%)%&Sʃ%D&o&%~£%&#,&%& $, PRESS RETURN TO CONTINUE"0%%%0%%%/"U*%*U*x&:&G& :&  & &s#r#^#V#G "1&6&t&]& A&0, , , Oy2&S&}2&:3 2&>W$*&~ ʂ&#"&#z+{"O,&,&~怱O~#, {,&z*ڸ&-Ҹ&2&" *&> W*TEST NORTH STAR DOS 5.1DQ "COPYRIGHT NORTH STAR COMPUTERS, INC., 1979>!)c ['2&>! 6Y#=u'͗!>=„':'z2& :0 +'6&y"")) ))")>0I)T)>)xI)xx )\)> x)7>@!|’)gʥ)~w,’)$ʥ)|’)Ç)>A>>>7>7>0>`> h)!U*  *@*!*@&v"__4*4*@*&v"+*wG&  &#*q"SF PATCH 2900 t& u*!͖*, ))))ot& €*0:ҡ*0AG?7t&7 ʫ*!:, 0, T])))_t& ,ø*ͫ*, |, }t&D+ *S+, t&, !"" !q""- 2&+&*!W*"&*U*!H+ ̈́&##?+##.+q",&( CR*,DEt+GO&JP+RD+WR+IN,LI,TY+LF+SF+"++6 |+ u**&> "*, G~怰w·+u*#'&+ +":&O,&,&z, ~怱O{u*+" , +ͫ*,  ,,, A&u***xO}%,<+"V$, "V$, ͫ*, *&~Aܫ**x2&f,#|g}o:&O/$DM+ , , '&q#p#:&w#q&+w, A&*xOx/G!'6 #6 #¯,/$!> '" ,  =¿,*&~# ,#>,~#"&oA&b&"6010X/U..2@0j/U..2A0!@0/;/2>0b->2>0:A0OA/b-:@0OA/b-/U...Nb-Y'/> c-2?0*60~ /:?0-;/ʊ-:4 0F.^u/I.p.:B0 /!͵-/I./( "<0":0! > -y:@0!>0O* "80!#." 0*:0" :>0!A0O*80" *<00" /O*:0 *<0 }O|Gõ-..*80*:0i.}:>02>0-/"G3/I.*60~ I.p.!B0"60}o|g!B07/-/@ʉ.‘.@3/!/__ʤ.ʤ.°.3//+v.wG3/  3/#v./*60~ .#"60*60~"60 #"60.*60~#"60 . /0///ɯ 3/ 3/////I./( //'0/  : yW:4 H/>FDCOPY FROM DRIVE: "TO DRIVE: "LOAD DISKETTES AND PRESS RETURN WHEN READY."COPY COMPLETED."ERROR OCCURRED."ILLEGAL DRIVE SPECIFICATION."Y OR N ANSWER REQUIRED"COPY BOTH SIDES (Y OR N)? "TO COPY SIDE A ONLY, "CONTROL-C STOP""j2120//> ڣ0Oͻ/"2ͻ/"2ͻ/"2}Ć0:->22ͻ/"2*2*2a-͆0ʻ0͌0һ0/ n- a-0//> -22͆0-0/0:2Dʣ-S¯0:222"2ͻ/"2ͻ/"2:2-)*2:2-)zک0-{ک0Ö.1/0ã-2/0U."222!0:2 0"2*j2~ 5.,5. 5.#"j2.͆0-)1/0:2DU.S¯0:222*2:2g.):2Ov.#|g}o"2*2Җ.#ڵ0͆0ʵ0͌0ҵ0*2*2Ͷ/*2Ͷ/*2}G:2怰oͶ/*2Ͷ/ *2*2DM*2.1/r0( "2"2! > .y:2O2* "2!u/" *2" *2" :2O:2J/yJ/<J/=!2=>/6 #C/*22" O*2 O*2 }O|G.*2"  *2/}<:2/!2=ʪ/â/6 #zª//s#r#^#V#*j2~ /#"j2*j2~"j2 #/"G~0/*j2~ /0!2"j2}o|g!2͂00@0&0@~0.__9090E0~00+ 0wG~0  ~0# 00*j2~#"j2 Z0000ɯ ~0 ~0  : yW:4 “0>FDT10k101010?20101r0/.[20 FROM FILE: "TO FILE: "EXISTING FILE. WRITE IN SINGLE(S) OR DOUBLE(D) DENSITY? "NEW FILE. SINGLE(S) OR DOUBLE(D) DENSITY? "SOURCE FILE NOT FOUND."DESTINATION FILE TOO SMALL."ILLEGAL DENSITY SPECIFICATION."NEW FILE WILL NOT FIT."ERROR OCCURRED."FILE DIRECTORY FULL."COPY COMPLETED."EXISTING FILE. PRESS RETURN TO CONTINUE."NEW FILE. PRESS RETURN TO CONTINUE."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP""r313!"3%1->2q3]1233G:q323* ">4j-!U-" V4!:3O>" *>4" Á-*>4"  :323@!V86 #zu-5-2@4!36# xŠ-"3!2V.>232A4!V4 -~ ->Ͳ2~#+-ͪ2-͇2͇2!3ͪ2-!A44*3 ù-:3.:A423*3"3-:3!.:A4!..!@4~61̷2!3Ͳ2~6h&))))V4F_3# J.S3^*32o.:3O+1W2Q1:@4ʇ.1ͷ22:B4Y( 2B4%1ʸ.2ͷ22:B4Y¸.:3.O>V4!" !\/.##͇2~.:B4Y.++.û.:g3P/*m3\/͂2͇2"<4:3O~%1/>2323=/:B4Y=/y23zW{_++͂2~w"<4,0P0*<4û.$2ͷ2S3( "k3%1g/>2q3>2g3!"m3!"h3͏/ ~/7*h3* "o3!0" &iy2j3V4!3:q3O>" *o3"  :q3/!V4~ 0##~#0*k3ͪ2)00*m3ͪ20͇2"m32g3/<*o3"  :q32q3ã/!3:q3O:j3o&V4>" B:3O "3"3! > c0y:3OV4* ">4!0" *3" *>4" :3O:30y0<ҹ0=!V4=­06 #²0*3V4" O*3 O*3 }O|GP0*>4"  *32}<:3 1!V4=116 #z1É0: yW:4 21>FD:2Q1s2Q11S3ͷ2S3( LOAD DISKETTE AND SPECIFY DRIVE NUMBER: "THE FOLLOWING FILES HAVE CONFLICTS: "PROCEED WITH COMPACT IN PRESENCE OF CONFLICTS? "CONVERT TO DOUBLE DENSITY? "ERROR OCCURRED."CONVERT TO DOUBLE DENSITY? "COMPACTION COMPLETED."ILLEGAL DRIVE SPECIFICATION."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP"s#r#^#V#*r3~ ʚ2#"r3*r3~"r3 #ß2#z+{Ʌo$"G_3÷2*r3~ ͷ22!B4"r3}o|g!B4c3H1@22@_3W1__333_3N1+2wG_3  _3#2N1*r3~#"r3 33 B10B1B1B1ɯ _3 _3  1N0"ND8/:..2PDͪ.->2QD2RDGf-G/:..-D>-S.:PD2PDOͰ.b-"/:..-Yf-N/2QDm/".!"SD"UD͒-*UD"SD͔-/.*SD"UDu-:PDO>#!*SD|ND  ª-gª-"SD> "  //:QD-N.^N.- =-*ND~ .#"ND*ND~"ND #"ND.."G/..U.:SD /..( *ND~ .U.!SD"ND}o|g!SD/.@n.v.@//__ʉ.ʉ.•./ /+[.wG/  /#[. /: yW:4 ·.>FD*ND~#"ND . .0...ɯ / ///////0//...(  BOTH SIDES (Y OR N)? "DRIVE NUMBER: "SINGLE(S) OR DOUBLE(D) DENSITY TEST? "LOAD DISKETTE THEN PRESS RETURN TO BEGIN TEST"ILLEGAL DENSITY SPECIFICATION."ERROR OCCURRED"CONTROL-C STOP"PASS COMPLETE "ILLEGAL DRIVE SPECIFICATION"Y OR N ANSWER REQUIRED."  (  _1!t1:2>> E@ʚ_ͫ*H * ʿVh_ʟʫʚ->*ڬ>?(>@Ë!~w>*G!~4!:~ 4*DMr:wx*p#"!222!"*6 !T]"22:!G{5x*+"~-:2:N>?͉ډ-͉_-G*~ {#~p͉{x{-:!74*~ ʑ#"ʉ!:{>ͫ>%*!~>#>"22/<G/<O!'###~<#~#^#V!p#>/I<<2FMMMoSMCMTMDHDA JPILOS ODIDDSixyy҇~#|  Ñ<2ɷ<2͆p#ïw2:"¿́~h7#xw>2ÿ>**. ~>-Ay~U_UVy7f#6Gsx0:|h}hi ʳ́~h h́"#Ï͆:G#́ "#~  #xz{}o|g͆x2O > G:~#> > :H>__:>: :!> 7G?4*~#"/GTi0m i2 m?nx*~ /pp <IڡEO|طy7"7/G/"7I?<<,- 7+I!T]"VVoaDMaa cO cITAHHG:x7:K:RI?Y)>2)>2Ͷͪ}DMͶç<çͶͪ!͈<p#,ʓ!s <}1* |*}N>KLWGOL9HG  , Hp>AOp#$p#> K~~h>= _{́* G>x#, H$MONITOR 5.1 (C) 1978 NORTH STAR COMPUTERS INC. -  (  _14!t4114:424->>11 E-@ʚ-_.ͫ-*-.H. *- ʿ.V.h._.ʟ-ʫ.ʚ--->*-.ڬ->?11.-(->@Ë-!4~w>*-G!4~-4!4:4-~ -4*4DM4r/:4-wx*4p#"4!440242424!4"4*46 !4T]0"42424:-!4G{-5x1*4+"4~.--:424:41N.->?11͉.ډ---͉._.--1G*4~ {-#~p.͉.{-x{.--:4!474*4~ ʑ.1#"4ʉ.!4:4{->ͫ->%*-.1!4~>.#>"4.402424/2<.G/2<.O!'/###~<.#.~.#^#V!-p2#>/2I2<.<.24FM/MMo/SM0CM0TM1DH/DA 0JP3IL-OS -OD/ID/DS3i3xy/y҇/~1#|/1 1 Ñ/<.24ɷ<.24͆3p1#ï/w324/:40"2¿/́0//1/1/1~h0170#/1xw3>24ÿ/>1*0/1*0/.01 1~>-A0y1~U0_U0V0y117f0#60Gs0x0:11|h0}h01i3 ʳ0́0~h01 h01́01"21#Ï0͆34:4G0#00́0 0"21111#0~ 1 1#0xz{}o|g͆3x24O1 1> G:4-1~#11> 1> 1:4-H.2>_1_1:-1>:4 -:4!4> 7G2?4*4~#"4/2GTi20m2 i224 m2?n2x*4~ /2p2p2 <.2I2ڡ22EO|طy7"7/2G/2"7I2?22<.1<.2,2-2 72+2222I2!T]"4V3V3oa3DMa3a3 c3O c3I23TA3HH3G:4x7:4K3:4R3I2?Y3)>24)>24Ͷ2ͪ3}3DMͶ2ç32<.ç3Ͷ2ͪ3!4͈2<.p#,ʓ3!4s <.}314-* -|*4}3N4>K42L2W4GO2L294HG2 4 4,4 H.p1->AO3p#1$43p#13> K4~~h0>=113 4_1{31́0*4 4G>1x#,3 H.$43MONITOR 5.1 (C) 1978 NORTH STAR COMPUTERS INC. W4__( o__1^!t^[1^:^2^W>>[[ EW@ʚW_XͫW*WXHX *W ʿXVXhX_XʟWʫXʚW-W>*WXڬW>?[[XW(W>@ËW!^~w>*WG!^~W4!^:^W~ W4*^DM^rY:^Wwx*^p#"^!^^Z2^2^2^!^"^*^6 !^T]Z"^2^2^:W!^G{W5x[*^+"^~X-W:^2^:^[NXW>?[[͉XډW-W͉X_X-W[G*^~ {W#~pX͉X{Wx{X-W:^!^74*^~ ʑX[#"^ʉX!^:^{W>ͫW>%*WX[!^~>X#>"^X^Z2^2^/\/\I\2^ÿY>[*ZY[*ZY.Z[ [~>-AZy[~UZ_UZVZy[[7fZ#6ZGsZx0:[[|hZ}hZ[i] ʳŹZ~hZ[ hZ[́Z["\[#ÏZ͆]^:^GZ#ZŹZ Z"\[[[[#Z~ [ [#Zxz{}o|g͆]x2^O[ [> G:^W[~#[[> [> [:^WHX\>_[_[:W[>:^ W:^!^> 7G\?4*^~#"^/\GTi\0m\ i\2^ m\?n\x*^~ /\p\p\ 2^)>2^Ͷ\ͪ]}]DMͶ\ç]\K^\L\W^GO\L\9^HG\ ^ ^,^ HXp[W>AO]p#[$^]p#[]> K^~~hZ>=[[] ^_[{][́Z*^ ^G>[x#,] HX$^]MONITOR 5.1 (C) 1978 NORTH STAR COMPUTERS INC. "__ __"_>0I_T_>_xI_xT_> x7 g  (  _1n!tnk1n:n2ng>>kk Eg@ʚg_hͫg*ghHh *g ʿhVhhh_hʟgʫhʚg-g>*ghڬg>?kkhg(g>@Ëg!n~w>*gG!n~g4!n:ng~ g4*nDMnri:ngwx*np#"n!nnj2n2n2n!n"n*n6 !nT]j"n2n2n:g!nG{g5xk*n+"n~h-g:n2n:nkNhg>?kk͉hډg-g͉h_h-gkG*n~ {g#~ph͉h{gx{h-g:n!n74*n~ ʑhk#"nʉh!n:n{g>ͫg>%*ghk!n~>h#>"nhnj2n2n/l/lIl2nÿi>k*jik*ji.jk k~>-Ajyk~Uj_UjVjykk7fj#6jGsjx0:kk|hj}hjkim ʳj́j~hjk hjḱjk"lk#Ïj͆mn:nGj#jj́j j"lkkkk#j~ k k#jxz{}o|g͆mx2nOk k> G:ngk~#kk> k> k:ngHhl>_k_k:gk>:n g:n!n> 7Gl?4*n~#"n/lGTil0ml il2n ml?nlx*n~ /lplpl 2n)>2nͶlͪm}mDMͶlçmlKnlLlWnGOlLl9nHGl n n,n Hhpkg>AOmp#k$nmp#km> Kn~~hj>=kkm n_k{mḱj*n nG>kx#,m Hh$nmMONITOR 5.1 (C) 1978 NORTH STAR COMPUTERS INC.   (  _1!t1:2>> E@ʚ_ͫ*H * ʿVh_ʟʫʚ->*ڬ>?(>@Ë!~w>*G!~4!:~ 4*DMr:wx*p#"!222!"*6 !T]"22:!G{5x*+"~-:2:N>?͉ډ-͉_-G*~ {#~p͉{x{-:!74*~ ʑ#"ʉ!:{>ͫ>%*!~>#>"22//I<<2FMMMoSMCMTMDHDA JPILOS ODIDDSixyy҇~#|  Ñ<2ɷ<2͆p#ïw2:"¿́~h7#xw>2ÿ>**. ~>-Ay~U_UVy7f#6Gsx0:|h}hi ʳ́~h h́"#Ï͆:G#́ "#~  #xz{}o|g͆x2O > G:~#> > :H>__:>: :!> 7G?4*~#"/GTi0m i2 m?nx*~ /pp <IڡEO|طy7"7/G/"7I?<<,- 7+I!T]"VVoaDMaa cO cITAHHG:x7:K:RI?Y)>2)>2Ͷͪ}DMͶç<çͶͪ!͈KLWGOL9HG , Hp>AOp#$p#> K~~h>= _{́* G>x#, H$MONITOR 5.1 (C) 1978 NORTH STAR COMPUTERS INC. W zzW0 z 2 z!?z!?z!?z>yy>yh?*vgf_:+,~k}{+%]|%w_O۬bP2ɝu_}9ݞ_Z-s74YOtz$`|c!9-q#?{~9j0spD@ˁcO$]&7-ak2~qou~4^7wJz!q~y#p"rߌdÊ ᝛X~?Ӛi>:պ_$ Gn hDuz^::5riM{:Ik^!9D~ 0Ju*IN,i )t9-r~ۿ7x^/D$ 0^ i{Nk+_yokUMIKE < EOxpo!6שּׁ/.`+v*>!{??5:A_fY3׻vQy{Ww;K b{}~i#w޿+k&_?ݣm}~K/kj{M3gL-.աr_x㿟 s{#^]Bo9XW9\~2)&P""SPyıdF$XwEڬhǿ|5<;b.<*d3NY v/Tٷx:9o?߷_{K"$p(FGzsl咈>hk|w=">%Mh{u}0!r輺}6>rz#Uy>yh?*vgf_:+,~k}{+%]|%w_O۬bP2ɝu_}9ݞ_Z-s74YOtz$`|c!9-q#?{~9j0spD@ˁcO$]&7-ak2~qou~4^7w|?m@}r 3ҿ4Hs}d}JL;rn@wfXK2Z."~5w_rn~I}gԝ\#hQ@:,*GT~IFaF0V{j%^m20yѺs8v(ڇ=kF|66,c~|ʿ9 Z((^~ XSh BJz!~C~#y]ޫ55|{U=Ar0?swwzw[w´Ns>D`X`x)z^>V<I]9>Y͗&0Vt۹f]yY?w^zZ0z{4wq>7v~z=0Ȝ]HjnRATURDSEALLY SEXY GUY!!!!!>eT b! uO|_z{[8{__*{*1R arFy4zjlwbI'WcF-3\_ RSVξW2ڙx5q`8!`VP>F-P->2>F-2 ISSUE THE COMM "LF CLOCK 0000" DOS FIRST 3 THIS S THE INTERRUPT ROUTINE AND THE OTHER 6 MACHINE LANGUAGE RINES NEEDED THIS PROGRAM. ( )2 16) S TIME COUNTER 16 BIT) 4< 80) ENABLES CLOCK, ENABLES ERRUPTS, S &F 96) DISABLES ERRUPTS, S ,P 144) CLEARS TIME COUNTER ZERO Z /d 70H , DIS , M2D00 FOR CORRECT TIME ",A$ Y16) TYX TT.85197 TTA  H1T3600)  M1TH13600)60 M1M1) S1TH13600M160  S1S1) """ /,"THE CORRECT TIME IS - ",H1,":",M1,":",S1 6"" @ J >@>~>! w#|0 } >@>>7-ZUt@@ß@.@& @ @@@@@%@+ [   x 1:7<@!'!A6:#p#6,#"@-!RA6#s#r#6###!Bp1A͏!ͧ(ͳ8׷ !LC#|(~G/wp(Z—+>Fwp +Dz"@"@M!ͧ(MEMORY SIZERADIO SHACK LEVEL II BASIC ,âׯ>>(+J,+0J0O_zW{_yGx(y/O)ɱ͍ :@ X(2@2@>:>:_2@!! !! !!\!~#> +,{J=27!!!:=@2=@:?< 2?<A0AvGdWzW0  d>A >*2><2?<"@A1B >**ͳʗ/(O͓5U ~( 5 #,5x(< 5GO5w#O5(>C2><5o5g*@Z OA:@yd b3H2@:=@: @(?A+ɯ2@2@ͯA*@H 6*@+دX2@:@> ͜O ( > O (:@<_{2@y;!O3@nf!6@8 _s ,_zWy :8Gz@`001 W:@8((z`"p0@<800 A~wɯ!<:=@2=@+:=@(+6 :=@}?+@#}?:=@2=@#}o( 8O((((((((ʡ(7( 27 27 4~ݾy6:70>3HI 0% b()(m(4(+ (B(9 wx(~#3A0+~# x x+~ #+>3>3H/<_x> w#37> w3>3yG!@6== ':@8u1}@:7<u>27!776`F 27B>wN( BîÖxÐ%KIX<DOCPRP>!  ͂ x:$Aʴ 0 /<ͤ ʹ  g!!ATͷҖ#4ʲ.BG~_#~W#~OhcGy JTeox 2$A)zWyO}x\E(!$Aw0x!$AF#~怩Oô  4 â~_#~W#~O!%A~/woG}_}W}O8CZQ o-yOzW{_xGV"vE8U J!$A~5p͢!!͚͉1rU . y2OA"PAPX!e!i!!A~#($.gy0 *PA:OAOzW{_xG-| CZQOͤ ! ͱ U ʚ. 44+~2@+~2@+~2@AOW_2@}̀@?02@7y<={_zWyO)xG:@2@y !$A5 ò>.!-AN#G.x(}!$AGx6 ƀwʐ w+U /xòͿ xڲG!$A4ò:$A:#A/<!$AOp#6b͔ [ !#A~w͔ ogÚ U *!A||*!A*#A "!A`i"#A!!A^#V#N#F#!A:@Gw# !#A~7w?##wy7O!'A !'A !AAxU !^ U y!#Ay& #x+y+z+{z|_ ` }` !'A .AU !^ U O!#Ay## + O ^ *!A Թ !:$A0 "!A>2@ aj Ϳ x ! AFÖ*!A |Ui !"A"A>>ß âGOW_Ϳ g >|ܨz< U 7 ͂ 7 { 0(͎ !$A~:!A~ 6{yb!$A~ O+~+ !ʚ yͿ +6 !#A>i 2A !A~5#(!x(>)=')0 ='= |GQ y|Gz ͤ k Ï|ʚ E DM!>)8)0 & = | xM ( ͤ Gx  |GL | OoygÚ *!AQ | i !-A~w!.A~G+N$A 0/<#Fwx+ F+N9 #6G!-Ai :&A2Ax 3  4ʲ͐  E !%AW G:#A !AVwz# x x!A͗ x( !$Awx:A !%A~++w!A4# 4ʲ+6!'AA# !'AA# ~/w!AOyw# q8NsY+  W~w+ !#A~w# U 9q(G3 ͐ x  !#Ap   !'A :.Aʚ 449!QAqAJA!'AK ?8 JA!'A9 :#A<= !A͙ !JA͗ x !$A5 òy2-A+PA~q+ +~ڲww 4òx `h̚ ~-ʃ+(+).E(%#!D $!-++ڔ _{  { !ͣ Ã#ҷ̱ > M= ͉ M d w ͤ d { 0 0_2ý!$ͧ(͚ 4æ(4(6+͔ 6-{ #60:@W:@ښʒ=/!0AF :@_ (x* Aq(E(D( 0(,(. +60{(+6${+p2@!0A6 WW0͑60 ͤ+~0(. (>"w#6+6-/</ 0:#p#w#6!0A#z ڣ͉zi/{/ =i(p#6!/A#:@~ (*(+-+$0 #0 ++w((6%ڪ(I 2ͽ+6% U W_xi}ͤwđö_ybd{_xi}iy͔OiGOͤ *@=iPÿ ѯʰU 7yOzWO/< ͑/H 06 p#= !Aͱ  < ʹ ?͑Ϳ /{_#zW#yO++0ͷ#ʹ p#8>>͑N#F#*!A/}o|g0"!Ap#= ͑w1_cƤ~@zZrN vH Tʚ;@B''d ! ͤ !ͱ ͱ U x(<ʚyyͿ !@ |"#A"! Gͤ 8;G:$A1 @ ƀ1 ! A͂ !yͩJG@.tpO.wnz*|P~ͤ 2 Ϳ Gͤ ~#ͱ =G  |JͿ G! @ !@K&.)yO~w*@:@O-#%!e"@ >2@!%Ap+pOe! ͤ Iʹ ͤ͢ @ !U 7wU ! Ԃ !ÚId&X4#]Iͤ Gͤ ʹ AàU  :$A8 QY͢!!͚! J;xn{/|t1}=Z}~L~l 7 w '*' 9AG,RAXA^AaAdAgAjAmApA & *6(***a***NDORESETETLSMDANDOMEXTATANPUTIMEADETOTOUNFESTOREOSUBETURNEMTOPLSERONROFFEFSTREFINTEFSNGEFDBLINEDITRRORESUMEUTNPENIELDETUTLOSEOADERGEAMEILLSETSETAVEYSTEMPRINTEFOKERINTONTISTLISTELETEUTOLEARLOADSAVEEWAB(ONSINGARPTRSRRLRRTRING$NSTROINTIME$EMNKEY$HENOTTEPNDRGNNTBSRENPOSQRNDOGXPOSINANTNEEKVIVSVDOFOCOFKI$KS$KD$INTSNGDBLIXENTR$ALSCHR$EFT$IGHT$ID$85sA"!&!!9  A`.*lyA|AAAAAAAAAAAg [A,o .+)++ z,+Iyy||PF  w p x G $9 NFSNRGODFCOVOMULBSDD/0IDTMOSLSSTCNNRRWUEMOFDL3o|gxG>J@M@0LCB Error in READY Break!9~#N#F#i`z( l~ +*@ >>ƕo>8g9 $*@|<(:@" *@"@$*@"@"@*@Ú{K2@*@"@*@|<("@"@*@|!@( 56wY !ͦAW>?*~**!*@ͧ(t|<ħ>͋ͬA !)ͧ(:@S.!"@:@(7*@ͯ,>*8> *a02@*@80"@/>>*a3<=3Z+~ (#~ "@ͲAZů2@׷"@,+('*@ U"@t##s#r#*@w# ͵A]͸A3*@bk~##### s#r( O( O—*@DM~#+##~#fo`i~#fo??*@2@w#w#"@*@+"@!A6#2@og"@"@*@"@͑*@"@"@ͻA*@++"@##!@"@͋i!go2@*@>?*> *a2@O*@++~ [G"w}:@~[?>[~08<[O=~a8{0_wN#~ȹ 9Ox +#~a8_(Hy6:  # 6:#p# # :(N 2@YG~( (# !D DM*@+++|}~#x×>d2@!6  "@c*@Ͻ 7# ~+͞ "ͱ Ϳ QZ~> 8#ͱ Ϳ U OG*@3XĠ"@s@~:()—#~#~#^#V"@:A(><*ͯ>>*ր!<*O!" N#F#~: x 0 x0?<=*@+"@X`̄2@=<ô̻A"@!@"@!*@}<( "@*@"@͋ !0*@| ʢ*@"@>2A=AOG =AGx3Z*@#/,`i+â6"@¢"@#| :@!>:yHG~ȸ#"(֏ W &"@7#( (*!A#^#V*@0*@0*@0 >)C() %ύZz( *PY"@:@:@_ë+~G(ύ+K x`[,@ʠ<2@~( Zz<*@*@"@~ #####z<:@=ʾ+J=_-8&â (O(,*@(Z—|J"@2@"@37#~,xx+͔ (_  >2@Û A@ +J!<" @{?2@,# ̈́>2@+ i!ʽ,7!,!;d!7#(2ͽe(A*!A:@ (:@ :@G:@ ͪ(> *̪(Û :@> *AA:@!>,*K(:@p+!:@G:@ 040/#+?_)+A:@JS!:@:@/0 * à :@2@;A?REDO :@‘:@*ʢ!x!ͧ(*@((~A#2@~ ͓*@5w# (+6*@+"!"f(;ͪ(ͳھ#~+6,*@2@, &~,(&:@–":@ʢ>?*ͳھ#~+A WG"(:,+i(!Z"3C"le+(,!+!:@–A!"ħ(i!?Extra ignored  #~#ʢ#^#V"@ -" &"@6"@~#~#"ͱ  )####N#F#^#Vi` :@ʲr+s^#V#9 ( "@i`"@*@~,͹"(+c͟$"@*@~80Wڗ"@z#~"@_:@ʏ)!xVF#z#Q#!!A:@=== N#F##N#F##8!AN#F#N#FKG$*@:#ͱ ͤ  %xdd!%•#*!A%y2@x((:@`$Wxr$z |$! N#F*!A "A"Aʹ !:@O ~#fo 2@("!Aͱ !ͤ Ϳ "#A"!A ͤ à(ʢl=@%(.l2%"f(%&ʔA :@' *@f ( &)|J͚ 'ʝA'vA2ʝ/*UAN%5#)}:#*@{ &"!A OyA85#, *!A+,%} 8ܱ >% N#fi)~#N#F)^#N#F{zد< #(?` <͍ Z:# }/o|/g"!AF#:@07 'F {o|{o|+,&2@F=ڗO8=8 O8=0R&%$!#xA_!AV+z2@:@d&~(&2@*@*@(o  &>&|$(6C%(5O*@ U"@`i"@+6 s#s#rW_2$Ago"!A !("!A*@WE*@:@('# ~# ~>##^#V# :@¢ʕ'âw#_q#p#Oc##"@q#:@y 0q#p#ͪ = BK8l"@+6 W*@^) ++s#r#80GO~#^#V#='ͪ =DM :@DM)8)()' *@ɯ2@'*@!9 )(*@*@}o|gf :@ogÚ ͩA,%!:@)*@!O ͆%*@#|âͽe()+*~#Ϳ(N#FZ(o)Ϳ(!@w#s#r+"P#~ (( "x#yZ(@>*@"!A>2@ @"@~â#e()  * !*@*@/O #8"@#ʢ(*@"@!*@!@*@(J)*@*@(~### K)_*@k)~#  "@N #*@(?)ů#^#V#DM*@`i`i}+F+N+n& PY+DM*@Xq#pi`+(*!A͟$ ~*!AڢW())*@))!I#Ä(~#N#Fo,-  *!A)PYN*@ G "@*@+F+N+"@')W~'*J#^#V>W(+*@sÄ((+,7#)(+*{W(_(*@w# *O>~8xͿ(#F#fh DMZ(o))Ä(*~*J)(,+)i*=O~GC*'_#~#foFr~ep)Cz—A+2@͓@'+Ö@7# z+2@2@,7#+J+{>2@!"@N#F#xA͛N#F#"@ͯ> *~+*@u+ ~*#*@DM~#+  $ _!P~#+ (~#+,0T]J!)ͧ(!*@ `i"@̈́7#*>dad*@*@d ͓~ֲ(/#+>(7#*og"!AM*!A5 5( 7*@5_ !sl~# ,"@!)ͧ(*@!,ͧ(2><5 ͖BAD  ~'+,+8# ;*!A:@( 2@FJ#N#fiX~#%.  C>%I.*_WI.W~#!.#(7-+>(+~#.(@%( $(* x#8~$> #W(G~#.(#(, z@W~#>. # (%~##(-T][###xG#z+ x(~-( >W(P7#CxJz;ͧ(+7( 2@;(,—~#N#fi_x-I.*, )i!>I.(7# *!AAh*ͪ(*!AG> -*z>+*2@*@<O"@,`i##N#F#~+ͯ> **@>* ~# G̈́08 0 _zW!.».//(A18 !/@/#(?}/J/e//(x/(u/ e.~*# !_/7̈́__/~>/*ܡ/8#~  u+ |.~>!*~( *͡/ >!*~̈́w*# 6H /̈́}/( / >(*+}/ ~7ʐ#~+w#y8Đ o&DM#Xw*#}/x+>* u+ z<*@+7#ØD"rߌdÊ ᝛X~?Ӛi>:պ_$ Gn hDuz^*:5riM{:k^!9D~ 0Jt:IN,i )|9-r>ۿ7z^/D$ 0^ i{Nk+_yokg~`J?[k/po!6שּׁ/.`+v*>!{??5:A_fY3׻vQy{Ww;K bk}~i#w޿+k._?գm}~K/kj{M3gL-&աr_x㿟)s{#V]Co9XW90050 HUHA ORG 30H 0060 INTR JMP 0 0070 ORG 0 0080 PUSH PSW 0090 PUSH H 0100 PUSH B 0110 MVI A,0AH 0115 MOV B,A 0120 CALL 2954H 0130 MVI A,50H 0140 OUT 6 0150 POP B 0160 POP H 0170 POP PSW 0180 EI 0190 RET 0190-7!_!-PY-_^1][>2[#"["[>2[!yY"YX>2Y>2yY2Yң-*[~ʀ-h-*U![eHP-*[:[u-*[6 2%0."[:[ʝ-*[#PE*[eH.. 2-!-6-2!YzY:-6# »-HͧHD> 2YX:[*[62yYXQXgM>2Y!o>SHlM*Y!"["[2[:YP.*YZ͘K> !ZNH*Y*Y5"YZ IͮMOYKS.KlM:Z 5 .0x.:~Z5tT7 .5 2ͅ.-!Z"Y#H>!77#H !Y././././././.*["[6/././.*[+"Y.0.0:Y/*["Y*[KE 2[&/:Y&/:[SH:Y-*[DM^!YeHF/ o g{/!>SHZ͘K> !ZNH-3J*[ͪG:[o&3J*[ͪG2[*Y*Y"[*[###"Y6ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"!Z"YLK"Z*YZʹ1~]06);06,:06\?G 1#1>110~ ʫ1 #"0~ ʫ1 #"0,1x ,1,1,1,1{1{1{1{1{1{10ʹ1"YLK>D}*Y0  x ʹ1,0# {1> !~Zq+ # ~ ʷ1#mH͘K##~11 1!?#1~1#11#mH͘K1*[6"[*[6+"[*[#"Y!4G2YLKک.~4wʩ.![eHڻ." -7-͙MIJ|».}һ. ڻ.ͮM}*[w*[~~2I*["[>Â2*[2[>2[#H> ک.OPE##~.~怱O#~.*[62| 2" .73-#H> ҩ.5o&*Y#"Y~ 3 2LKک.>2[-3:[O:[*[" "YÝ3!/ 2[A3xGyO! a3.W_:4 X3.z!< .KE"[KE:[!/ w  ,  w#Ç352H[#H> ک.OPEPE~怱O~.#z:H[3 3=һ.w 3*[" .#H .́K.#H .Y1-g4> . HIJ9H>D4IJz»..2[!H[-3g4> .+6 ]4 ! "[!H[7 E> ! "["[LKڡ4"[9H¡4LKک.|ʻ."[#H ©.I*[~4###"Y+H ʲ4oKھ4Iھ4¾4*[*Y++KEþ4*[DM*[*[~#KE*U 4͙MLK>5}!:"- *yY% ͙M:-2[#H *[*[O5́K9HO5#H *[O5́K#"H[#H ©.lM~:yY‰5:[ʉ5=†5!u>SHKlM:-=2[Z1#NHvMlM!H[eH_5! "Y"YLK5"Y9H5LKک.|ʩ."Y H>2Y-2Y5o&Z͘K> NH!0SH*[*[ I#} 6$|LKک.)J HLKک.)J"[ H![eHҩ.*[~*U*[ I#DM U-:Y0.2Y2Y"["Y6!yY"ÝK.lM 2*[~20.+"Y"Y6 2Y2Y2[DXF6ʵ.HFG=0.!GHKEFè6###"YHͧHvM!9"Y*["Y7~F6:> 2Y2Y#H"Y/7.>+Ho&mHwEH> Ë́=êGIwE.Ḧ́=ͪGḦ́=>;Hz7!B͕G}7̈́=͸G*Y~F=r+s+r+s+6"Y"[GFV0*[.ʤ7¥77I2H[*[#~=#ͶF7}EeH=N#F:H[N~mH 8DM,A8"[mH~F"Y6HT8̈́=ͧGH:Yʻ8>2YoKE97*[RD+H..c>#mH###*[RDxʛ8zʶ8~++ ʃ8á8zʡ87!8!Y6A>"[88<á8#H"8+H#H ."8+H8 \oKһ8+Hʺ8»8»8>2YK8I*[#~="[oK.I)J### 8IJz».HoK. E9 H39I)Jq9I͸GoK.)J~FDMp+q+6###%8I*[#~=ʕ9ʦ9~9#^#V"[~ 8:#~Gy_>YWw#³9"[#~9RD~F9*[U"[+#̈́=~F9͕G#^#V"Y#~"[#^#V"[ͪG*[9I %:\oK#H ȸ+H%:>:F]:Gү.HIJʯ.H=E9H;:y OGү.H!GIJ!GKE9Hڕ:IJKw:HeEV:I~F:>2Y*Y*[!9"Y2yYgM!0SH#;HVIG9H:FGd0.wEG;H:ͪG;>" EG9H:oK*[)J+"YʹH͙M@;ͨFlMͨF,<%ʝ;Hx;̈́=ͧG*[0R;MGͮMlMSH9H@;lM*[RD"[zo;ͮMG;MlMFDM+Ä;H+HLK;D;![Z;@C; ;$;#<~wà;ʹHà;|.}!.2[+HI1;H͙M>";H<?DMK2[lMZwEʟ<2Sڸ<9Hڰ E"Y Æ2[i< INPUT ERROR-RETYPE " IF: IH0.IJ9HIJz».{>!=H[!H[wz».#s#6IJ9HIJsIͨF>o=oK.)J"[ HwE."[ HwE."[>2[ɯ2[QX*[g4Î2!@!9i0.2Y:Y=ͶFگ=}E.͕G==H='I=#HA_AYBʋB!@_#H=H>:Y.*Y->>>.+HÖ=> c>+H͇=~ͅG?>"[ DM!=#mH+H*Y-.c>Ḧ́=H/>O!@ READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "o65%225~2R6d2{423( 3655/7J71;7,8:L<:9O9w9;:::";6:<<1;%9=0=8VYWIU.s=D2P44==LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPA XC MNBNA O AA&^qA}AC&AAA_AAA A AAB0BQBA^1][B.Aw.Aw>Aw.Aw.Aw.Aw.Aw>?A ?APYDMg dAdA! dA# YA$wG> PYwG xAxABKxAwG!>zGHIJ9HºAIJ!A3JH=HwE.ÿAHHAwE.zʻ.n&ÿAABGx&BO&B$ "BB$ B%BK>NLJ>!=H[o&3JͧG*Y*[ I3JLJn ҢB!>͕GA~o&ÿALJͯX.W!3J#3J3J#3J0BP@ACBH@.@B)D>y[zGy[t[Oy[t[NBy[Mt[y[N=C!t[zGwTB@TBA hCPY!BzGJ CBC,AڠC͕GLJt[zGt[MÑC͕G1]!YͪGM[CCͅGBK(DMLJ+"n[C:-W0!G#C"n[ͧG*n[}-D?|g}oC"n[#3JͅGBK(DO!"n[eS`E"[zGM*["[N=4DŷH҆D.#HʻDDD>'IҨDwE.zʨD*[DM IG"[*[~ #zD¹D>;HYDHIJ͸GsHèDHIJ{ _D:-ʮ:DḦ́=HͧGʹH*[0RX"[ÆD*[SD*["[!9eH)EKE*[z~+2E! GKEs#r#^#V#!G## KEKKE##GͶF.FE#H>;HʝEGE!GE> OGUE##IJeHһ.##N#FxEK+ HðEH#HHG =EPE"[PE"["[>;H?SF_F![eHF».*[+"[9H>F_F![eH:F»."[H*[ I.#"["[7*[*[>=*[*[*[IJʻ."["["[+H\ ʘF!Y.:~F~?ڤF###"Y#H \!Y[GGhG?OͶF.>$;HyOFy@O:~F+H 7ȸȹF#H G+HFF/.ʵ.HxA*[#*UT]mH|=G~#*G##!G"["[KEq###>2Y7#HA[?rG#H0:?#"Y!B~+ |G*[ T]ͅGBK͸GzG<2Y!Y*[ "[zG*[G"[*Y*Y"Y"Y*YG"YvH!YeHG![eH0*[+"[.,H+HH)+H.+H+"Y*Y~# .H"Y>,+H+"Y7 HH UH"~G .DM#UH#z+{~#fop#zvH#H+H[GڔHhG+H"Y"$*["[*["[*["[*["[!#"[#H!Y2S"Y!YÕGH>""H;H*Y"[G~#I .H"Y*[:Y =:Y0.}o|gW>;HIF.Gڵ.PEH͸G6IwEIʋI͕G͸Gr+s+6̈́=ͪG+H,“II9HIUI> EwI).I>);HI͸Gr+s+w!9͸GxYS w +¾Ir+61yY>;H6w9I0."Y"Y*Y"Y*Y*Y*["[*[Ny7#"[eH+?*[*[ڻ."[ JI..\[͘K> !Y2SÕG̈́=ͅGAͧG~.O #~Jڻ. J~Jڻ. hJz̈́=ͅGBK(D,AҟJLJ{Z*[ͅG͕GJOͅGAͅG͕GLJͅGBKJMͅG DMNͧGLJ{%`C"[bk)))*[_zWYzGA,Ax5Kz».{Y:KX:K|».}gû.By K!T)FK @K#H"[.T?Jڻ..TZK*[+"Y>;H7#^#V#"Y#H *[LKک.I.ɯͽKͽKͽKͽKͽK>0"[ K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G'+OO|G>~͝NxNNpbN. ! "[![w+P6![cN![w+(P w+0P6[![͕PG![͕P*[w#"[ ?P͇NͲNgoAʓPP>PNNW{怲 7>'+ŸPژPNy"[G!i[6":[P+60.=P+6."["["[P+6 P"[+6!*[~cQAQ0Q QH RQQARQ#Q+~.-Q,-Q"JQ1Q!h[:[#uQ:[Q~0Q6 +uQ:[#Q#6"+~"[.®Q+~ ʩQ!®Q##60îQ>0Q*[~>-Q*[/G"Q>0QQ:[@Q![5Q6>,Q*[+W~!."[r*[#W~"R"[rz5cQ-Q>W>0x=_*[~+R0>2[>2[:[IʻR#ʋRER:[ͺP:[ dR~>+Q>$Q*[:[#~R#~ vR+T]"ÂR!"[~ʻRIRG+~®R~ʠRxARJMRJ.2[:[<ͺP>"2h[SR~2[RAw:[ͺP*[~.R#6E#:[+ SA S-/"SR2[2[2[>2[+[S[SVS-\S>2["[>+6=aS"["[.TڛS.€S.TډS7![5.TʂSSESS.TʘSکS.ʆSÔSDT![4.TکS.SES![@S![*[w*[:[G.TSDTSESS.TT+ T T- T€S2[.TҀS_.T!TJ.T:[{S/%;HgU͆JaX H>;H>&;HUHʵU͑Ẍ́=ͧG!Y~•U6~͘W#—U9HjU͑X>nWRD|##U͑X>͘W|͘WU͑X>͘W}͘W*["[zʤU~͘W+U͑XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ Hg4> .2H[PE###KEPE~.~!H[w4W)KEKEr:H[w9H3JwE.êG#HIJͯX?X~w/X*[~ wWw~#PE NW++~G nW q*[~怰?X PEKEW͛W/X*[W~~O#PEPEPEeHڻ.ʻ.PE!X" yWzW{_>" !." .!." .6 #6 #=$X*[~@~@wW~@~G~p WͯX?XTX*[~ eHʄXx„X{_eH?XKEw*[ ##F#~#N+ W\eHһ.z».{». KY~"[ͯX6X!."- !." COPYRIGHT NORTH STAR COMPUTERS, INC., 1978!! GGGG&HMMZZ(.7.PPPPPPPP yYZZcAPBYE S+23,D 3 Z S23,D #2" ",A$ R$(C(15-P)), BYE S+23,D 3 c! 11520""cc##BYYZh[h[T0Y Yc`!BzG],A!BzG],Aڻ.͕G͏G]M͏GBNͅGAͅG͕GͅGt[zGy[zGy[Ay[Nt[ ]My[t[Ny[N͏G]MͅGNͧGt[zGt[Mt[y[!!]>)Dt[~[!0]>)Dy[M~[N~[OBNBOͅG~wLJ{\/<{\]OM\<wPbCseQA)%FI=1b'vA$8C 2BDCA<]BOʻ..>@BK],A\]=ʻ.4t[zGBNBNt[BNt[Ot[zGt[M>y[!^)D>~[!^)Dy[M~[O]Nt[Mo&3J͏G]NͅGNçGdB1b'v@@)h1cIAg5`iBABK^N2[͕G͏G^O͏GBNͅGAͅG͕GLJ{d^:[2[ͅGt[zGy[zGy[Ay[Nt[^My[t[Ny[N͏G_MͅGNͧG͕G͏GM͏Gt[!_>)DͅGt[Mt[Mt[NͧG:[wpycA1AY&A1AAY&SX=ffW3Q>t&0;A@_!Bt[zGt[O!t[zGt[zGt[M> t[y[!_)Dy[Mz_y[ t_^N!y[_~ʉ_wzG@333#@'YE@w&g?D5u3"'C?q@IT>U>=GHwE3JH/>!AHIJ"_9H_IJ_R x,X,Y  S0  X32768,V) ( "WHAT IS YOUR NAME? ",A$ 2 A$"TEST" S1 &< "PRESS CONTROL-C TO GET PICTURE" F 82,192 P 80,36 Z I1 500 d n F x #2,126 L10 L215  S0 "LOWER STRETCH LIM2w:Wb!b1>2W!xu1͜#~:ڿͦxkASMB DEVELOPMENT SYSTEM !":__lBG }ʜ{6 #6 #6#ny!!syʯ+^ï گ[үG^w`y#ï͉q!n}!6 #!> G:w  ~:2~\|} :wx/:082w< ^ ^:*DM:**:H>2U\*DM**:Ogo#   !"""͋!#~ ?"; ?/@#~/0  > ;2B ? x?ͷ"!; ? x?ͷ"!; ? x?ͷ"!! T])))0 ?_à! ))))?؅oú0 !F^#F^!G>xw#xw0:!!F^#F^#F^!d2 20w6/44#F> ^#<EZAk CB( FGIOD:L!NPe RW!Ujͯ͢͞x* ‘x:q½::!:*|2_!*!~ #!b Fwx# :!*"g"i}62k!:S#!by2~A##A33##VF^ #Dbbx:='\#~+~##Y2b!§§"z2zzFULL CANNOT ~!#~0: "n#!n*iæ*g|m F+6": #F6*iT]"iF/~;`D` > > { )/# Uû>/ +û~#/û~ ʻ / 3>D> ))W3û~#/ 3U~/# I> /xf:‰!"*g*>~p*g+ #"~#~ʏœʿ# ʿʫÙ*#>~o$w#w+F#N#V#^s+r+q+p+ ȻZQH0Z######uI #(͞Z"!~N!"!n*ڜ"i6*g +}|> ړ+k+}|ڔ##ʉ#!nɸˆ2kp̂*"iq͞*g*"gͦx!bB͞*i*i6ùI #|}TyY~Y x!~!!u7 DISK ERROR *i6,**i#kw# 9!tڅ:[O:t*g" !u:Z~!:[ ##:tw#6 ~!u~NO ROOM #}o|g~ WRITTEN ͞**g!n"t####C B > #*}'_|'W*}o|g"ù'x x0w+*tw+"tx #"~0: A[ *~ #"> ; 2)2 G O !x:Fگ S ͧ "{*##"K™ !"{Tͧ ñ*!"͞f: *"*"`:E 2*{"2*"*g"*"*1~t% p": ͪ Ϳ !  ͍ | v C #͍ ʹ ! ͇ o | o !&͇ 5zڂ {ڂ !5ʹ #H*;#r 6 #6 #'ʯ :ʝ Ÿ <ɸw#Í 'ʡ w#æ  ô : : !xI <͋2!"~ ! | ͥg]8 g!~#  "":w#:w*#"͋; ڋ n‹n*~ :#";  C ʅ p w ښ t- 1: ": Ë D ;M :PD 1DM:U s !:#:"͋!"~ ! | ͥg!"8 g! ; ͋*~ͥ**} s+r"à  C ʅ ʖ w g > o*~,#"- Ϳ t.: *~r#~s\ :>P2.DM* "p! ; ' *~,#"w .: *"}_|W*">x3. }pvx}x?1x͵ }>Wx>_x@H͵ >}>Gx>Ox}G G }=  U >Gvx}2u31}= :u; }ڠ @ʽ 306ږ x.}x@ʲ }G J G )))?1}J 3vx.}x x.<6}x}93>!_>6x.}x?.}x}Nx?)))_*~,#"%{:t<2t}l {x.}Txzo:}*#"*w#"*##"!"USE IFORGSET EQUDBDSDWENDCPDRCPDCPIICPIRINDRINDINIRINIRETIMRETNEOUTDROUTDOUTIROUTIHLTvRLCRRCRALRARRETCMA/STC7DAA'CMC?EXXEXEIDINOPXCHGXTHLSPHLPCHLSTAXLDAX PUSHPOPINXDCX DAD INRDCRMOV@ADDADCSUBSBBANAXRAORACMPRSTADIACISUISBIANIXRIORICPIINOUTMVIJMPCALLLXILDA:STA2SHLD"LHLD*LDDRLDDLDIRLDINEGDRLDoRRDgSBCDCSDEDSSSPDsLSPD{LBCDKLDED[XTIXPCIXSPIXXTIYPCIYSPIYSIXD"LIXD*SIYD"LIYD*BIT@RESSTBSLCRLRRSRCSRA.SLA&SRL>CADJSBCBCOUTACIN@DJNZIMVJR PO PE(P0M8NZZNCC*H<͵ x͵ l.>xx>!>xl>/>x.|EDN*~t# c+N"#Q~Q#~Q#~IQ*y"!"~>ʜ‹ x:x.*͝++|}$22x2x}6)))2u }3;.}x:ux;:ux} 3;}xx;x͵ }O͵ })))x͵ }>Fx}-O2t!"ʓ  ʜ!xQ! ʟ!) ʟ!t ʟ! QL (-6>*ʜWʄ͚xW:ORzʜyJKC‹z!\2{_zW‹:!XÎ* "~N‹##~I‹#~F!Hc!~‹:G A[? !"o&ý)ʽͧ E+|<2>2!57?2EO:%y$ˆ#"*'´#"~ C'«#"~' CS_Ò0C:C*2:";ͥ͝C-:%*| HDÝ÷.>R2!>S>U'x>V>M2 >A'>O2x O>LJ!":"S! >D=! !"*`":¡ʖ##x> x:kͧ ~x!ux|xx!ux|x~*{*"y!"}*{*͝"y*"}*{"y*yê +ͪ DM*}"*T]>"#Bd*Nq#S>2v4:x2# *yDM*}~‘> G^#‰\~#~Y\\#v‡xI ÅSAVED SYMBOL TABLE ; "%*#~'#"+x:Ŀ !!6 !"~'# ~ 'xfZ#% p!u+I #+\\!_6xÜ>2_> w/#B!~ 2[FILE *g~#·+ͳ͝|<<2t͐^#V#~#n2Zg=*i"2:[O>G*" 3:=ͳ"iD#k~# "x!bB~# x8 ++~H+~N##ɪ)88888DB~B  !  A !!  A !!  A !!  A !! A0010 INIT ORG 20H 0011 MVI A,0C0H 0012 OUT 6 0013 EI 0014 RET 001480 EI 0190 RET T 01900010 FPADD:EQU 4EE7H 0020 FPSUB:EQU 4ED0H 0030 FPMUL:EQU 4DC5H 0040 FPDIV:EQU 4FF5H 0050 XTOY:EQU 4358H 0060 SQRT:EQU 42E8H 0070 FPINT:EQU 41F0H 0080 FPSGN:EQU 419EH 0090 FPSIN:EQU 5E26H 0100 FPATN:EQU 5F17H 0110 FPABS:EQU 4199H 0120 FPCOS:EQU 5E1CH 0130 FPLOG:EQU 5D31H 0140 FPEXP:EQU 5BE4H 0150 CMPAR:EQU 412CH 01502:qb!z1>2q!xu1͜#~:ڶͦxkASMB DEVELOPMENT SYSTEM !3":y_kAG }3ʜ{6 #6 #6#y!!2s_3yʯ+_^ï گ[үG^wy#ï͉q!}!6 #!: G:  ~+\\!_6xÜ>2_> w/#B!~ 2[FILE *g~#·+ͳ͝|<<2t͐^#V#~#n2Zg=*i"2:[O>G*" 3:=ͳ"iD#k~# "x!bB~# x0010 FPADD:EQU 4EE7H 0020 FPSUB:EQU 4ED0H 0030 FPMUL:EQU 4DC5H 0040 FPDIV:EQU 4FF5H 0050 XTOY:EQU 4358H 0060 SQRT:EQU 42E8H 0070 FPINT:EQU 41F0H 0080 FPSGN:EQU 419EH 0090 FPSIN:EQU 5E26H 0100 FPATN:EQU 5F17H 0110 FPABS:EQU 4199H 0120 FPCOS:EQU 5E1CH 0130 FPLOG:EQU 5D31H 0140 FPEXP:EQU 5BE4H 0150 CMPAR:EQU 412CH 0160 PROG ORG 7000H 0170 PUSH D 0180 POP B 0182 CALL FPSIN 0190 CALL FPMUL 0200 CALL FPMUL 0210 RET 0210""!u~#>Aʆ*E***PARITY ERROR*** 2w:Wb!b1>2W!""!u~#>Aʆ*E***PARITY ERROR*** 2w:Wb!b1>2W!xu1͜#~:ڿͦxkASMB DEVELOPMENT SYSTEM !":__lBG }ʜ{6 #6 #6#ny!!syʯ+^ï گ[үG^w`y#ï͉q!n}!6 #!> G:w  ~:2~\|} :wx/:082w< ^ ^:*DM:**0010 ORG 66H 0020 PARITY SHLD SAVHL 0030 POP H 0040 PUSH H 0050 SHLD 00H 0060 PUSH B 0070 PUSH PSW 0080 MVI B,14H 0090 LXI H,MSG 0100 LOOP2 IN 3H 0110 ANI 1H 0120 JZ LOOP2 0130 MOV A,M 0140 OUT 2H 0150 INX H 0160 DJNZ LOOP2 0170 MVI A,41H 0180 OUT 0C0H 0181 LOOP IN 3H 0182 ANI 2H 0183 JZ LOOP 0190 POP PSW 0200 POP B 0210 LHLD SAVHL 0220 RETN 0230 SAVHL DS 2 %0240 MSG DB '***PARITY ERROR***' 0245 DW 0D0DH 0250 END 02500000010 ORG 8000H 0020 DLOOK EQU 201CH 0030 DWRIT EQU 201FH 0040 DCOM EQU 2022H 0050 WINDO EQU 0F800H 0060 BASE EQU 50H 0070 WS0 EQU BASE 0080 WS1 EQU BASE+1 0090 WS2 EQU BASE+2 0100 WS3 EQU BASE+3 0110 WS4 EQU BASE+4 0120 RS5 EQU BASE+2 0130 RS6 EQU BASE 0140 RS7 EQU BASE+1 0150 JMP INIT 0160 JMP SET 0170 JMP CLEAR 0180 JMP READ 0190 JMP WRITE 0200 INIT MVI A,0F4H 0210 OUT WS1 0220 MVI A,20H 0230 OUT WS0 0240 MVI A,80H 0250 OUT WS2 0260 MVI A,00H 0270 OUT WS3 0280 OUT WS4 0290 RET 0300 SET MOV A,E 0310 ORI 80H 0320 OUT WS2 0330 RET 0340 CLEAR MVI B,10H 0350 SDED TEMP 0360 AGAIN MOV A,B 0370 DCR A 0380 ORI 80H 0390 OUT WS2 0400 EXX 0410 LXI B,07FFH 0420 LXI H,TEMP 0430 LXI D,WINDO 0440 LOOPC LDI 0450 DCX H 0460 JPE LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 RET $0550 DOIT LHLD ADDR ;GET DISK ADDR 0560 LDA UNIT 0570 ORI 80H 0580 MOV C,A 0590 LXI D,BUFR 0600 LDA COM ;GET COMMAND 0610 ANI 0FFH 0620 CZ COPY 0630 MOV B,A ;PUT IT IN B 00640 MVI A,04H ;# OF BLOCKS TO READ/WRITE "0650 CALL DCOM ;ISSUE COMMAND 0660 LDA COM 0670 ANI 0FFH 0680 CNZ REST 0690 RET $0700 READ MVI A,01H ;REEAD COMMAND 0710 STA COM 0720 CALL PAGES 0730 RET %0740 WRITE MVI A,00H ;WRITE COMMAND 0750 STA COM 0760 CALL PAGES 0770 RET 0780 PAGES MOV H,D 0790 MOV L,E &0800 MVI A,01H ;DEFAULT DRIVE #=1 &0810 CALL DLOOK ;SEARCH DIRECTORY .0820 JC EMPTY ;IF NO ENTRY, PRINT MESSAGE 0830 STA UNIT 0840 MOV C,M 0850 INX H 0860 MOV B,M 30870 SBCD ADDR ;GET AND SAVE INITIAL DISK ADDR 0880 MVI B,10H 0890 LUP1 MOV A,B 0900 DCR A 0910 ORI 80H 0920 OUT WS2 ;SET PAGE # 0930 PUSH B ;SAVE B '0940 CALL DOIT ;WRITE CURRENT PAGE 0950 LHLD ADDR 0960 LXI B,04H 0970 DAD B 70980 SHLD ADDR ;BUMP DISK ADDR BY 4 AND SAVE IT )0990 POP B ;RESTORE B (LOOP COUNTER) 1000 DJNZ LUP1 1010 RET 1020 EMPTY LXI H,MSG1 1030 MVI B,0DH 1040 LUP2 IN 3H 1050 ANI 1H 1060 JZ LUP2 1070 MOV A,M 1080 OUT 2H 1090 INX H 1100 DJNZ LUP2 1110 RET 1120 COPY EXX 1130 LXI H,WINDO 1140 LXI D,BUFR 1150 LXI B,0800H 1160 LDIR 1170 EXX 1180 RET 1190 REST EXX 1200 LXI H,BUFR 1210 LXI D,WINDO 1220 LXI B,0800H 1230 LDIR 1240 EXX 1250 RET 1260 ADDR DS 2 1270 TEMP DS 2H )1280 COM DS 1 ;TEMP STORAGE FOR COMMAND -1290 UNIT DS 1 ;UNIT # DETERMINED FROM NAME 1300 MSG1 DB 'NO SUCH FILE' 1310 DB 0DH 1320 BUFR DS 800H 1330 END 13300 END  800H 1380 END 00H 1380 END 1380" 3:=ͳ"iD#k~# "x!bB~# x8 ++~H+~N##ɪ)88888DB~B  2w:Wb!b1>2W!xu1͜#~:ڿͦxkASMB DEVELOPMENT SYSTEM !":__lBG }ʜ{6 #6 #6#ny!!syʯ+^ï گ[үG^w`y#ï͉q!n}!6 #!> G:w  ~:2~\|} :wx/:082w< ^ ^:*DM:**:H>2U\*DM**:Ogo#   !"""͋!#~ ?"; ?/@#~/0  > ;2B ? x?ͷ"!; ? x?ͷ"!; ? x?ͷ"!! T])))0 ?_à! ))))?؅oú0 !F^#F^!G>xw#xw0:!!F^#F^#F^!d2 20w6/44#F> ^#<EZAk CB( FGIOD:L!NPe RW!Ujͯ͢͞x* ‘x:q½::!:*|2_!*!~ #!b Fwx# :!*"g"i}62k!:S#!by2~A##A33##VF^ #Dbbx:='\#~+~##Y2b!§§"z2zzFULL CANNOT ~!#~0: "n#!n*iæ*g|m F+6": #F6*iT]"iF/~;`D` > > { )/# Uû>/ +û~#/û~ ʻ / 3>D> ))W3û~#/ 3 THIS PROGRAM DISPLAYS THE ENTIRE PATE OF THE ' 100, SEPARATED BY CARRIAGE S. 0 SEE PAGE 21 OF THE USER MANUAL DETAILS. ( 52 < F (P 32768,X) INITIALIZES THE 100 &Z 32771,V) SETS THE PAGE "V" .d 32774,V) SETS VIDEO BUFFER UE "V" n 5x USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 X32768,V)  I0 255 17  KI16) JK8) CK8J "LUM= ",J," HUE= ",C KI  X32774,K),K)  A$  I  bbbbbb%)EC LDI 0400 DCX H 0410 MOV A,B 0420 ANA A 0430 JNZ LOOPC 0440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0"(s|>Q> P>R>ST{RSx=R!+>xN.*:O:ƀG>" :Ԁ>2ͅ>2ͅbk> ڳ2N#FCx=RP* "! ʸ~#!!UNO SUCH FILE H FILE "3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3DUfw"3G1 L1 N0) K0 4 "YOU ARE ON THE SLOPES OF A VERY OLD, POSSIBLY" 1"EXTINCT VOLCANO. BEHIND YOU THE CRIES OF" 2"THOUSANDS OF SCREEMING HEADHUNTERS, WHO ARE" 8("PURSUING YOU, CAN BE HEARD. SUDDENLY, THE GROUND" 72"BEGINS TO SHAKE, AND A DEEP RUMBLING SOUND COMES" 8<"FROM DEEP DOWN INSIDE THE VOLCANO. THE AWAKENING" :F"VOLCANO FRIGHTENS THE SAVAGES--- THEY PAUSE, GIVING" P"YOU A CHANCE TO ESCAPE" Z } d A$"U" 0u 3n"POISED ON THE EDGE OF THE VOLCANO'S RIM, YOU" 3x"CAN BARELY SEE THE OUTLINES OF CRAGGY SLOPES" 4"BELOW, BECAUSE OF THE RISING SULPHURUS FUMES," 5"BUT YOU CAN CLEARLY HEAR THE HEADHUNTERS CRIES" ""WHO ARE ALMOST UPON YOU NOW" }  A$"D" 0u 9"YOU PLUNGE OVER THE EDGE OF THE PRECIPICE AND FALL" 5"HEADLONG INTO AN ANCIENT LAVA TUBE. A VIOLENT" 7"WRENCHING SHAKES THE EARTH, AND BLACKNESS CLOSES" 7"IN AROUND YOU... WHEN YOU AWAKE, YOU FIND THAT" 6"AN EARTHQUAKE HAS SHUT THE ENTRANCE TO THE LAVA" 8"TUBE. LIKE A SMALL TUNNEL, IT LEADS STEEPLY DOWN" 6"INTO THE DARKNESS, BUT LIKE IT OR NOT IT, IT IS" "THE ONLY WAY YOU CAN GO."  }  A$"D" 9"YOU FOLLOW THE TUBE DOWN, AND SOON YOU SEE A FAINT" ""GLIMMER OF LIGHT." $"YOU ARE STANDING UNDER A" 7,"SMALL SHAFT THAT APPARENTLY LEADS TO THE SURFACE" 6 } @ A$"U" "TOO SMALL" $J A$"B" "NO EXIT.. CAVE IN" T A$"D" 6 $^"AHEAD THE DARKNESS CLOSES IN." _ L0  `L0 ,h"SOMETHING, AND DISCOVER A FASCINATING" /r"LANTERN-SHAPED OBJECT, COVERED WITH DIRT" 3|"RUBBING IT VIGOROUSLY WITH YOUR SHIRT CAUSES" ,"IT TO GLOW, CASTING A BALEFUL LIGHT. " -"YOU PRESS ON, AND SOON COME TO A SMALL" 7"SIDE PASSAGE, LEADING OFF AND DOWN TO THE RIGHT." 0"AHEAD OF YOU, THE SMOOTH-WALLED LAVA TUBE" ,"CONTINUES ITS GENTLE SLOPE DOWNWARDS."  }  A$"B" $  A$"R"   A$"D" '  A$"F"   ' 5"THE NARROW DIRT FLOORED PASSAGE CURVES SHARPLY" !"TO THE LEFT, THEN DESCENDS" 0 G1 "YOU NEARLY TRIP OVER A GOLD BRICK"  }  A$"T" D "!"YOU NOW HAVE THE GOLD BRICK" &G0 0S10 :  D A$"U" Y N A$"D"  X ' 1Y"YOU ARE BACK AT THE LAVA TUBE/SIDE PASSAGE" Z"JUNCTION" [  b 10000MAZE NUMBER E 3 "YOU HAVE TRIPPED IN THE SEMI-DARKNESS OF THE" 1*"MAZE, AND FALLEN HEADLONG INTO A BLACK PIT" 44"AS YOUR STARTLED BODY HURTLES DOWN, EVER DOWN" 2>"INTO THE PITCH BLACK, YOU HEAR THE SOUND OF" -H"WATER RUSHING, FAR, FAR BELOW YYOU...." R" " 2\"SUDDENLY A SIGN SAYS ... 'DEAD END, DUNGEON" 5f"UNDER CONSTRUCTION, PLEASE COME BACK NEXT WEEK" p 2"YOU ARE VIN A NARROW, DIRT FLOORED PASSAGE," *"LEADING UP AND CURVING TO THE RIGHT"   1"YOU ARE IN A NARROW, SMOOTH-WALLED PASSAGE" 4"LWEADING UP. A FAINT LIGHT CAN BE SEEN AHEAD"  }  A$"U" L - "YOU SOON COME TO A SMALL SIDE PASSAGE" '"LEADING OFF AND DOWN TO THE LEFT" $  L A$"D" ' V  'N6.10)))1 'KK1 %' N B',L',V',`',j',~',t' 5B'"YOU ARE IN A BIG MAZE OF LITTLE TWISTY TUNNELS" C' } D' ' 5L'"YOU ARE IN A TWISTY BIG MAZE OF LITTLE TUNNELS" N' } P' ' 6V' "YOU ARE IN A TWISTY LITTLE MAZE OF BIG TUNNELS" X' } Z' ' 6`' "YOU ARE IN A LITTLE TWISTY MAZE OF BIG TUNNELS" b' } d' ' 6j' "YOU ARE IN A BIG TWISTY MAZE OF LITTLE TUNNELS" l' } n' ' 5t'"YOU ARE IN A LITTLE MAZE OF BIG TWISTY TUNNELS" v' } x' ' ~'N3.4991)))1 ' N ,,,: 5:"YOU MANAGE TO SQUEEZE YOUR WAY INTO A TEN INCH" /:"HIGH CREVICE, WHICH IS ABOUT 6 FEET WIDE" 0:"AS YOU INCH YOUR WAY INTO IT, IT NARROWS," 3:"BUT YOU CAN FEEL A WARM, SLIGHTLY SULPHUROUS" 3:"BREEZE EMANATING FROM IT. THINKING IT MIGHT" 4:"LEAD TO THE VOLCANO, AND PERHAPS FREEDOM, YOU" 7:"PRESS ON. SOON, YOU COME TO A LARGE ROOM, WITH" 2:"A IRON-BOUND TRAP DOOR IN THE FLOOR THAT IS" 4:"ENORMOUS. A GIANT IRON RING IS SET INTO THE" 4:"DOOR, EVIDENTLY FOR LIFTING IT. SULFUR FUMES" 6:"ARE ESCAPING FROM SMALL HOLES SPACED AROUND THE" ;"PERIPHERY OF THE ROOM" * ;"<<<<<>>>>>"  ; A$ 6;"IN ONE CORNER LIES A LARGE SKELETON. ON CLOSER" 4;"INSPECTION, IT IS EVIDENTLY NON-HUMAN, THOUGH" $;"HUMANOID." 4.;"A SPIRAL STAIRCASE LEADS UP TO THE TOP OF THE" 68;"OF THE ROOM, TO A BLACKENED HOLE IN THE CEILING" )B;"FROM WHICH SCRAPING SOUNDS EMANATE" L; } V; A$"LIFT" "TOO HEAVY" `; A$"B" ' -j; A$"T" "WHY DO YOU WANT A SKELETON?" t; N0) ~; N.3 > ; A$"U" L; >N.15> > B 5>"THE TRAP DOOR SUDDENLY OPENS WITH A TREMENDOUS" 8>"CRASH. GIANT ORCS SWARM OUT OF THE HOLE, LOP OFF" 4>"YOUR HEAD AND PLAY SOCCER WITH IT FOR A WHILE" 5>"BEFORE DINING ON YOUR PUNY BODY... TOUGH LUCK." > 5hB"THE TRAP DOOR SUDDENLY OPENS WITH A TREMENDOUS" 4rB"CRASH. GIANT ORCS SWARM OUT OF THE HOLE, AND" 4|B"DRAG YOU UP THE SPIRIAL STAIRCASE INTO A DIM," 5B"FOUL-SMELLING ROOM. THE ORCS CHAIN YOU TO THE" 1B"WALL, LAUGH OBSCENLY, AND LEAVE. YOU ARE " 3B"EVIDENTLY GOING TO BE IMPRISONED FOR A SHORT" B"TIME BEFORE BEING EATEN" 3B"AS YOUR EYES SLOWLY BECOME ACCOSTOMED TO THE" 2B"DIM LIGHT, YOU CAN MAKE OUT HALF A DOZEN OR" 2B"SO LUCKLESS CREATURES CHAINED TOO THE WALLS" .B".... SOME HUMANOID, SOME INDETERMINATE." B 50u"THE HEADHUNTERS FIRST NEATLY LOP OFF YOUR HEAD" 5:u"AS A TROPHY, THEN HAVE A MERRY FEAST-- AT YOUR" (Du"EXPENSE. TOUGH LUCK FOR YOU....." Nu }A$"" }"MOVE? ",A$ } A$"MAZE1" ' } A$"TRAPDOOR" : } A$"PIT"  } A$"SHAFT" $  } A$"INVENTORY" ~  } ,~""\"YOU HAVE THE FOLLOWING ITEMS:"\"" ~ L0 "LANTERN"  G0 "GOLD BRICK"   ""  wvww wAA!B D  B - THIS PROGRAM DISPLAYS 4THE MOST PLEAG  COL SUBSET OF THE  100, AT 2 SECD ERS 0( SEE PAGE 21 OF THE USER MANUAL DETAILS. 2 5< F P (Z 32768,X) INITIALIZES THE 100 &d 32771,V) SETS THE PAGE "V" .n 32774,V) SETS VIDEO BUFFER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6   ,X,Y V0 /A1)51\A2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KAI)  X32774,K)  J1 2500\ J  I   "CAT100" C0C#C%PC30EAQB#XD0430 JNZ LOOPC 0440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0 X32768,V) 0"DO YOU WISH TO CLEAR THE SCREEN? (Y/N)",C$  C$"Y" X32774,0) ("FILE NAME=",A$ 2"READ OR WRITE? (R/W)",B$ < B$"R" X32777,A$)) F B$"W" X32780,A$)) P "CAT100"  Y PIC1,2 R FER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 /A1)51\A2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KAI)  X32774,K)  J1 2500\ J  I  bcc cbb/7 QBC0C#C%PC2 EAQB4D0430 JNZ LOOPC 0440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0 X32768,V)  P0 15 X32771,P) ( A0 2047 2CA16A16) <CC17 F 63488A,C P Z"PAGE ",P," WRITTEN" d n )) P $a5aa aa C Y PIC1,2 R FER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 /A1)51\A2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KAI)  X32774,K)  J1 2500\ J  I  bcc cbb/7 QBC0C#C%PC30EAQB7`C0430 JNZ LOOPC 0440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0 ,X,Y X0) I15X) II16  81,I  K0 100\ K    Q32768,V)  "CAT100" 6  81,X  X  K0 50   $  X0) I15X) II16  81,I  K0 100\ K   eaaaa]aPB/ ChB6B BABAB BEE NING.  6  V0 /A1)51\A, "PRESS ENTER TO DIGITIZE, TO QUIT"  A$  A$"Q"  ( 82,192 2 80,36 <  X32768,V)  "CAT100" 32780,A$)) P $a5aa aa2C Y PIC5,2 R FER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 /A1)51\A X32768,V)  "D=DIGITIZE"  "C=FLAT COLOR FIELDS" ( "P=PERMUTE COLORS" 2 "S=SAVE/READ TO/FROM DISK" 7 "W=WINDOW TEST DRIVER" < A$ F A$"D" "DIGITIZE" P A$"C" "SUBCAT" Z A$"P" "FREAKY" _ A$"W" "WINBAS" d A$"S" "DISKCAT" n "ILLEGAL COMMAND" x  UE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 /A1)51\A2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KAI)  X32774,K)  J1 2500\ J  I  7 QBC0C#C%PC%5`E@A#CD ANA A 0430 JNZ LOOPC 0440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0, "PRESS ENTER TO DIGITIZE, TO QUIT"  A$  A$"Q"  ( 82,192 2 80,36 < I0 200\ A 2  X32768,V)  "CAT100" a5aa aa2C Y PIC5,2 R FER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 /A1)51\A /A1)51\A2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KAI)  X32774,K)  J1 2500\ J  I   "CAT100" b)c9c1cbbb$CB/7 QBC0C#C%PC ACSPCV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0!#4TDDC33#""#VfsdUx"#DEDDDD33""#UV̅dUx"4DDDDC3""!"4E̖dExu!"4DDDD332"3ḐSExe#4DDDDC32""E̸CEx d"3DDDDD3#"5̸CUx1d"3DDDDC33"E̸3FxBT"3DDDDD32"!V̹#2UxwSS"3DDDDD43""h̹$!UxwwTS"34DDDD33"!y̺4!UwgfVTC"34DDDDC2"!̼̺4 EfwfUEUTC"3DDDDD33"!$4"DUfTD4DDC!"34DDDD43"5̺D4DD3333D2"3DDTDDD2"F!E"#3#333C!2"33DDDDD3!W"E"23333!""#3DDDD33!X2U"3DED31!"#3DDDD32"hCU3EffeD2""#3DDDDC3"yCDUewvUD2̨#V̺A̻wvffUUD4̼̩vg̙DVvDD32#32"33UVfxffDDTD3"DCC 6wTfeDD4###""#3EUwefUTDDD3"!$3CT5w TgeDC3""#2#3"4EfTTDDCD33!523E5w0TfUUC3""#""#23DUDC3D333"V"#4 %ww1UfUU33"""""""24D42"D32""g!##1 $wwAUeTU33"2"""""#3D43"33"#xu"2!!$RUUUU4C##"""2""3C32#424u""21!$RfUUTD3""""""""333333"3Du32!!"#xcfDUTD3""""""""323332"4Eu3"""wdfEVUDC#""""""""#333""DVv42!"ueDVTD33""""""""3333"#UgD"!"#wueDUTE33"""""""""#33!4UhD!!"#TEUDD33""""""""##2Efx̘T!3xwDEUEDC32""""""!""""3Vfy̩T!3#xDUUUUC32""""""!"""4ff̩C!3xDUETED33""""""!!""Dgv̩T!3x4UUUUD33"""2""#Uwf̩T4xCUUUUD332"333"4Vxe̩UCxCUUUUD33#2#33"#Dge̩f14x 3UUUUDD3#23332!#Ewe̹d4w DUUeUTC3332332"3UwU̺1Dw0DUUUUED3333333""3UwV̻tD!gADEUUUUD3333333"!"3UgvV̨"D!gADEUUUTDC333332"""4EfeW1# 4!gADDUeUUD333333"""""3DVTXc$14!gRCDUVUUDD333333""""""4EDh̖$1$!fR3DUUUTDD433333"!""""D3y̹$B#!fc3DEUUUDDC33332!3#C!Vxc24EUUTDC3333"""#S!Vxc23DUTTDC332"""#x0d!Uxt"3DUUDDC322"""#xAd!Uxu"#DETDD332"""$gwBc!Uwu"gݧ{Eݺ #DU3Ewc33"DgkVݺEVC5wd#DT3DgkxܹDUD4gc4UU34Vl˪ܩDVT4f˺dEUe34V|ݺ̨DUT#VxdUUVC4V̻{ݩ̧4UC#Ug˺dUDUTDh˪{ݘ̖$EC3UtDDUeEx˻iܙ˖#EC"E˺uT3UfgHܺ˅DC$uT4Vfxe&̻uD3#x˪uT4Ugx̪T˻˻tC2xdS4Ugwx̩eC̻̄32xe5TDUww̙U3 g˻̅32#xuFT3UfgweD4B5̅32#xuWT4VUheC3VdV̼̻#2$xuhTDUDxT!4wv"3Ef̻"2$xuxTEDExwCETD""Dx̼e!""4tTEDVwwSgD"3xw̻D2"4tdDDggwwe#vC4g̺B3"EteDEfwgwvVvfwwC"Etd4VexvVxwx̻wvC!2!ExtdDgVefwwwx̻fgC"DEtSEfVTUwfgxx˺wUUxCE VtCVfgwDUfUVwx˻fD3ES5BVuTVUwu3UUDDfw̻wfEC"#d4SVtTVUxT4DCC4Ux̻wxwwU3Cu4TVtUUVwCDD32#Dgw̻fwwwU23&uTVueTfw3DD#2"3VwfwffD2"ieeFueDge3D4232#UfxegfVC3T!fFxvTEwd4CD"3""EVxwVfUU325TCVFwTUwTE3C#3#"4UgwfUeUD2WDD4FxDUCD3C#3#"4DVgwwUUUT32yD4! FwxeD4DD4xeWݩ1$TܩuDDE4z#4geV̪ݺA"Ev"C43#4geV˪B#E&v!"#U33VeUS#D"i݇2w 33EfU˙d"EB$B33DwuUt6ܻfSFR"34feEu6TTDgt!""3VeEv6CTgx̅!#3UUĔ6dVxx̅#3EUE̗5ݺuExh܅"3DTEw6ܘ4hwh̖"33DEfx!Fu"VTh̖"333ExvUg!FRX1D3h̗"333EwvTV2#g 6C"!ܧ""333EweDV2$xd!̨"2333EwUDE24Te25˗333"EfT4E25WevTVˇ343"4fD3EB5"݈UWˇ#4C4fDCEB#ECGˆ33C!4fD4VB"4g\uXˆ33D"$UDDVB"Dx""KSy˅33C"#TDDgS4y3"4}S˄433"#TDEgS#x32$ct4C3"#DDUhTW32$Fs4D4""DDExdWA"!8hs$DD""DDUdWt!dibUD34CVSgAiQUD2!33Ucg"$0iQETC#4VchSH!QEED"#DfT!$tY2B4DD2"EgS"FݖjT2$DU2Egc""FfEU t"Fg 5f1݆5wA4vT2xgd3# f"4xFTD#B6f3"D!g!DT#ehe"3E f23D"뇈vC"DVxBD3wC2ESD3eExt4C""E݆$Du!"Dݖ3Tc!!"4xݘ!De1iD "4xݨ!D !fWFeC4ݹ2D1whfU4w24SeU4xS$v@eU 3gd@TE 3guy CE 4V݆g y8d"E 3Uݗ!FQhhBD!""Eݨ1#eha3!UEBwX@d3!vECW H B#"VSESH&!43Fd#f 8fVDFuFf8TWFEܻu$uY$BfW5݅$kT"V!#UY4̻ݗ$vU3DEY4xwx̻ݗ5DD"T4i4vg̻ݨVYfeD#D4z5fg̻ݨ!"4fB!"3Dfy޹UffUUUDDD43"3Exd#4DfzݨUgwfUUDDDD3"4Ux"444wݨUfwffUEDDD3"$fx14DDEwܗUgwwfUTDDD3"gwwB3VUDDV̈UfwwfUTDDDD"gfU2!EwUD3D̘UVxwfUDDD3D2wT3!!VeD3"̻ffvUDDCCD"!wC#Exfe3˻wfxfUDD3443!WC444w3fwvUD33432V2E#U#f2vwvUD33343!E2UDfE"̺wxvUT33343!$!UUx4ܘwfUD33332!!VfuܩwwfUD3#333"gvxTwݺwwvUD33#32gxVAwfˈwfUD3"2#""#fD"DffV̘wfTC2""""DU!e2#TUVܨveUC2"TECΓB4DWܪvfT3"eUvC"4hݺweD2!fV7SDyˇUD"whycF̘U3!x ƚcgܩT22ٻr#ݺT!#Uc%d3wxb5d3wR6̼u4gA6̻݆Cg@#4Cg045Sf0#$!#TV 3$25eFD$S3"4DDTDDEUfffT""iT33#2"!""3DDDDDDUfgvT#3z̩T33#""""#DDDDDDUfwwS33̩C33"""!#4TDDDDUfwwT43ܩC3#"""4TDDDDUfxwUD2ܨ3"32""3DDDDDUgxe"DCܨB#3"""3DDDDDUffe3DS̗3#3"""!#DDDDDEgxfEṪ33""2"!"4DDDDUfxvDd"ˇ33"""""3DD4DUfu#DT"ͺ3333#"3DD4DEgR#DTv3333""!#C44DEf #UTv433""""333DDg3ET$wwD33"!"#3333Dfu#EU4gD3#"3"#33DfA"#4fDwfC3"3!""33Vx"3EvUUWC2"!3!"""3Ewu#DVTDh3""3!"3fwS3UweDy3""""!"""!#2Ee 3VxwTE32"""""""""!#3#33VxvUVC#""##2#"#""#3!#UwUThC3223333#""!"C!#EwUfD3333D433"""!"3!"EwfwTC33DDD33""!333ExweDDDDDD33"""3C4VeUDDDDD32""4B "DfxeeUDDDD33"""D3"#4vwvfUEDDC332"!3333EweffUDDDD333""#""###EwUffUDDDD3332!#2D#4wUvfUUTDD3332!!#C44gfffUUTDDD3C3!$U24VfzfffUUEDDDC3"2#4DDUUVfxˇvTEgݗfeUDD33"!B$T2D3#DDDDDUfgwxwweVw܇fUDC3""S5U3EC3DDDEDUVgwxݺxwww܇fC3""SEfCED3DTDTDUffwݺ܇f3"dFvCUT4DUEUUUffwxݹˇf"eWDUUDUUUUUVfgwwܩue!WTUUDUUTUUUffwxܩݘwd!e"WTVeDUUUUUUVfwww̙ʆwTe"VeVeDUUUUUUVfgfwݻݨexS!e2EUVfTUUUUUUUffvgx̻ݺvDxS!e"EwUUVUEUUTTUUVffgw˻ܘS4xB!d"EwUUUTUUUTDUUUfffw˻̪T"4BT"EgfEUUDUTDUUUVeffw̻5B"TUweDEUTUTDDUUUVUfgx̻SFB"!dUwfDEUDUDDCEUUVVUfwv!gC"eVwTEUDUDDDDUUUUUfwD3wB!"""eFUUUDDD33DDEUUUfgxe!EC"""""""!f!EffUDDD3#4DEUUUUfxCgC"""2"""!"!U"#xwfTDDD3"3EEUUUUfwT"C"""##2"""E2"gweTDDD"#DDEUDUVfBC"222#"2""!5CFveDDDC""DEUUDUffwxe!C2##3"""""C4wfUDDD3!4DUUTEUfwwBw32#2"2""!"2fT3D3D33DEEDDUUwwwwU!!v33"2""""!2VC2DC43#DUUTEUUgwxxwwe2"v333#3""""!414333DEUDDEUfwwwwfT#!$v333"3""!"D3334UUDDUUfgwwwwwU2D!e33332"""!D3333EUDDDUVfwwwwfCC$eC333"""D2#23EEDDDUUfvvwwU22%e4333#""!D2"2#DEDDETEffgwfD6e3333"""D""2#DUEDDEUVffwf1!FeC3332""D!""DEDDDDEUfgvU"XT333""!!C3DDDDCC3"""EfgW"4g0C"3DDDDD43""DUg V4VAC"3DDDDDC32"3Df0F#gSB"3DDDDD33""3V0U$fc2"3DDDDD43""!"W0E#gt2"#DDDDD33""g@D#fuw234DDDDD3""#h@D$gvv"#4CDDDD3""#PD4gvv223DDDDC32"4QC4fwv e2"#3DDDDD3""5bC4fwfff1e""#3DDDDD3""GsC3VwwUTUU1U!23DDDDC32!htC3UfeDCDDBU"""3DEDDD3""ȳC34DD333D2T!""3DTED432!̄#C"3#3#333CC!"#3DDDD4C"!#̅#B"#43333"34DDD33"#̕4B34DD43"""3DDDDC32$̖DC"4UfUUD""#33DDDD3#"4̖414gw1gxfU3"6ˈRDg̖̪wwffVUU3i̺ĕ̺EwTD3C"33"#4DfwwUUDTD3#F̅DD!2wwd̆EwTT33"#3"#33UgwVeTDDDC3"We4E22gwuˆUvDD32"22"#23DVeUDDC333"xT#3S2gwxuˆUfET32"""""""3UUE"4C322#C3T3fˇUeET3"""""2""3DD4"3C#""#C3D3VẇVUED32"""#"""3DD3"#D""#E33#3ġfUUD3"#""2"""3433333"3VC"33W̆UEUDD"#""""""#333332!Dh2"33WˇeEeDD2"""""""233332"#DxC3"#V̗UUUDD3"""""""""3332!4UT3!#!W̗UUUDD3"""""""""33324Ue3!V̗DUUDD33""""""""#33"#Efe3#"V0̆DUTTD33"""""""""#3"4VVu2#!V0ˆDUUUD32"""""""""""!Dffv3#!W0uEUUTD333"""""""""#Uvfu3#"VĂEUUUTC3#""""2"!"3Vwfv2#2FbuDUUUED32#"3"""!DfwVv2#2FcuDUUUDC323"33""#EwẆ2#2FtuDUUeTD333"332"3UxġT#2FuEEUUTCC323332""4Vxwh̘1!#2FdDUUUUTD233333""Dgvx̪u!#3ExdDUUUTDD333333"!#Dfxey̩ "CExeDUUeUDCC33333""3DfweR33EdDUUeTD4333332""!"#DUvT̅3CExd4UUUTDD3333332""!""4EeD̹DCFxdDUUUUUD4333322""""3DUE1TCEwdDTUUUTD333333"""""3CERUC4wd3DUUUDD433333"!#"Etf35gd3DUUUD3C33#22"!F̕g24gT"4EUDDD33""#"!V̦g#4gS#4TUDDD332"""V̸g#4g C"4ETDDC43""""Vww̸g"4f ""EA݅x̅EUD!#V#3"#UA݅̄DUT"#g˻3UC3ExPݘc4EU1"VxTfT3DxqݪR$EU1Vw̻UfT34x܂ܫݻA#Ee2Ef̻$TUT3Dx˔˫@DU!DUx̻ 5DEUDE̼̻ʛܻ0DU!34g˻ 5DEfUg̼tݺܺ DT!"#g̻ EDDfUxS˫ܺ 4D!V̻ UCEfw1̻ݺ 4D!V!V3EVxwf1h̺̻ݺ #CF e3DVwwT!F̪ #3!E f3DfwwxvD2̼̻03!F1v3DfffTCDg13!V1w3EUVD3DvEx˺13!F03UDVv""UB"3EVx˩13!V %3UDgf!xfTC"#V̻2#!V 6DUDve!%e2"F˻3"!g WDDUwxfCVe3V̪!"!g hDDVfwxwexfwv""#g yCEfffxv̻wwe!""g 3UfgUwwwxw˪yvfe!Bg 4fexvDfvfwx̻wfUVv"d#w 4fVxeEVeUfw̻xfUD4y!Uw EefDEUDDUwx̻wfeU3"h!Uw UUgw3EE33Dg˻gxwfTD2y1U x UUge3DD3#3Vx˻gwgUD#!BV!x UUwT4DC3"#EwwfwfdD"!C61x1DUwCD4332"4fgvfvVT3!!6̆DBx1DVv4D3333"3UfeVeUD2x̆3SB4gvCD4233"#EVwUfUDC"̆42SxR̗DgeDCD"33"#DEgxffDUUC3!%̆CCCxxSFb)wD2DCEq#VU̻uhrjHT3CDEr3UUy̺܅#iṙS32DF3ExDxܗ3iS"Eg̔3DwThܗDz4eVxݧ3DgTxͨ 4ڈvxݸ33WwTxݩ!#f"xݹ!"3EfThݩ1U4E""3DfDh̺2EEx""34fDg̺Bͼ4g1"3DUEg̼S̚4gvͻ1"#4DDgw˻SxCUe̻!"#3DDgwgdES4vD̻ "#34Dgefd##tT40""33DfUUxeE"5A""334fvTDwuVh2WݺR3"423ffCDguWsEW˛C"yݺA33D"#VeCDgu"gbwhfCݩA"3D"#VeCDgu"gQ"5vDݩB3D""Ve44g3gPT3ݩ23D2UTDEx"#E@2#ݩ1332EUDDx#V@5ݩ 332"DTDExVQ3"CGݪC33"4DDV!Eb3"hhݺDC2"3DDf!E3"ݺTD2"3DDV!E"DݺUDC3DDg E $ݹDTC!#D4g5BHݹ4UD"DDw4uݸ#TD"3Ex5"%ݸTD34UWݹ2ޖFܧTDC3V"xBޖXܗDED3V#vSCVݨ!"wd"%DFBgv"|WT!""FSEw""|thfS2#2Ecf42kuvd2#S5uED2ZUfC"3D!4w4CYwU!32#w$CIe"!#g!D8w1#g"UHT#gݺ2UY2#gS#2Vj ""fT43VkQU33Vd3DV{@wE 3Vu#EFbUB3V܆"VGQUT#Vݗ!W07@iYET3Eݨ!Ga6 fDT3Eݹ25&VT3T#DxC$%!"#D3xSw#33gdVS#2 #g܅5QG #60#x݆#vg3GA#w!weTiQ4x!FTB#ea4w1#wC%!$ea3g1h1U5ea"g̻1hR%24SETa"fwͻB"xRkV3"#DDq#fw˻Sybe42!5CDq#ff̻c4bvfD2E3Eq#fU̻t"fe#CVVvfgfUeDDDD423f!"33VUvfwvUUUEDDC2!UfS3CCVfeVwwfUUDDDD3!Vwe"DDDgxeUwwfUUDDDD3Vgwe"4eDDVh̺eUwvfUDDDC3"FfeT"#gvD3Dh̺uUwfeUDC3D3!6uC"4wvD32H̪fgweUD4343"%v23gvfC!7̼fwwfTD4333"e!12"VxT 8vgwfTD333C"e13SExT 8fweDD33332T0Dd4hS8̘wxweDC3333"T0DtWBGݹwxwUT3334D"30%EcF1GwˇwwUDC3333"AFhB5GxܘwwVD33333"QF 4eVwfxܩwveT33""2"BE#BEgUݺwfUT3""""!2%F!4UUfeD3""!0EGG43DD˘fUD2!Agh{e"3E̘fUC"%R#VݩvT3!6d#gݺvT"6dͼW!5xvCWuZ1Vܗ3X͙1hݗ2W!xݨ1V x1E1xB51x˼B$ E1xcE5!gtV 4!g݆f1#2Wݧ#""!#DEDDDTUffwf1"!C333""!"""DDUDDDUffwf!3!v333"""4DDDDDEVfwe 3"v333#""!!3DDDTDUVvxf!#D!&u#3#""!!3DDDDDEewf2#D7u3#"""!#DDDDDEVwvD#D8d"""""!CDDDDDVwwfD23UIݺd"#""""4DDDDEVxwB3U!Yݺd23"""""3DDCDEVwA4U2jܩT3"#"""#DDD4DUx 4U2j̩d3322"!"4D33DVxDU2jT3333""33C3DUxvDU2id3332"#333DUgR"DU2idD32"!""#3334Uw "4UChwxu43""!3"#333Ugv"2VTgfe3"""#""3"3EgS"#3feUUe"""!!"2"#4fx!4DeTEd""""!!3#Uwv"4VvDVd2""""!!"3!3VTDgfCge2""""""""""!323!"DgweDu32""3#23"""!3""4vvUUu33##3333"""!4""3wvfg݆333C4D332""!3""3gvg݆DD4DDDD3"""C""4gwxTDDDDDC3"""D!#UwwUEDDDC33"""D!3VwUUDDDD332"!D"3VwwfeTDDD33#""!C"23VvffeTDDDD33""#""223VfVfeTDEDD333"!"3"23VfVffTDDDD33#"D!13VfVffUUEDD4C3"!!EC"!"UffffeUUDDD43"D"3DDEUUfxݩweDVwffUDDC3#"eUC3D"4DDEDDVfwwܘwfUgfeDC3#"eVC4T34DDTDUVfwẅwgfe3""f!gT3U34DDUUUefwẍgT2w!weDeCDUEETUUff˘wCw2#xeDfDDUUUUUVfgx˘ܘBwC$vDfTDUUUUUefwwwݻww1wC$vUfUEUUEUUVfgwwܺݘvwC3xvUfUEUUEUUUffwvw̪vfwC3wvUfUDUUEUUUffffw˩ܩTV"v33gvUVeDUUUUUUVfffw̻ݺv2Vv24fvUUeDUUUUUUUUVfwx˻˖Cgv"f!4fvTEeTUUDEUUUVffgw˩S"g"w!$fvTDeDUUDDTUUUVefw̪wxv""f1$gwTDeDEEDDDUUUUUfgxT4xw"f2#weDVDUTDC4EUUUUVvxu!Vv!"!""EB#wvUUDDDD34DDUUUUfwC4hv!!"""""!5CgUfDDDD33DUUUUUfwT!Vv"!"""""""!$TVffDDD3""DDUUUUVgx2gv""2##"""""e5vUDDD3!"4DUUUTUfwdxe#"#2"""""!U#wfU3DD2#DUUUEUfgw2xe23#22""""T!fwUUC4D2"DEUTUUffwe!xd2233#"""!4!5fCDC33"4DUTDEUfwxwwfChT"32"#"""!#$U23C3D"3EUUEUUfwwwwfT"gT33333"""D3C33"3DUUDEUVvwxwvU2"gT33332#""!3#D33!#DUTDDEUfwwwwwfD2gD3333""!!#D"3!#DUEDEEUffwwwwT2#!gD333#"""#D"3!DUDDDUUUffwgfC#gC3333""!$D"#!DEDDDUEUffgve1xD3333""!$3""!3UTDDEUUffgfTC3333""$3"!3DTDDDUUVfwfC"3333""! X32768,V) I1 5 A$48I) N$"PIC"A$",2" #X32777,N$)) $ K0 2000\ ( N$ 2 ``````2C`A 5 PIC5,2  D Y PIC1,2 R FER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 /A1)51\A /A1)51\A2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KAI)  X32774,K)  J1 2500\ J  I   "CAT100" b)c9c1cbbb$CB/7 QBC0C#C%PC ACSPCV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0(Z 32768,X) INITIALIZES THE 100 &d 32771,V) SETS THE PAGE "V" .n 32774,V) SETS VIDEO BUFFER UE "V" x 5 USE 32767 ISSUE "LF CATBIN 8000" CMD  DOS BEE NING.  6  V0 X32768,V)  I0 15 K17I  X32774,K)  J1 2500\ J  I  2`EPAPA%D  V0 X32768,2)119\A3)153\A4)238\A5)255 X32768,V) I1 5 KI  X32774,K)  J1 2500\ J  I  bcc cbb/7 QBC0C#C%PC30EAARDD0430 JNZ LOOPC 0440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0 0u,S,T A9)  L10) A0)1 (A1)2 2A2)5 <A3)6 FA4)3 PA5)4 ZA6)7 dA7)8  I0  L4  M0  N  X0 9  LX) $ . 8J BJ RINE"MERGE" LJ VJ ARGUMENTS\ /`J I \ POER FIRST ELEMENT 4jJ IN AK) ARRAY BE STED) /tJ M \ POER FIRST ELEMENT 3~J IN ARRAY RECEIVE MERGED %J SUBARRAYS. 9J L \ GTH OF SUBARRAYS BE MERGED. J 8J THIS RINE MERGES TWO SUBARRAYS OF AK) 9J OF GTH L, THE FIRST OF WHICH STARTS AT 5J POSITI I IN ARRAY AK), PUTS THE 3J MERGED ARRAY OF GTH 2L) O ARRAY -J LK) STARTING AT POSITI M). J 5J THIS RINE IS DESIGNED BE USED IN A J STING RINE. J  NI1I *NI2IL EN L3M2L HN I1IL) R IN I2I2L) U JN AI1)AI2) U KN AI1)AI2) R \N MM1 fN ML3 pN HN RLM)AI2) R "I2" RI2I21 R \N ULM)AI1) U "I1" UI1I11 V \N 0u I1,I2 1u ded+eddKe/2 A APA`A0A@ApAA/#e7 A A0A@APA`ApAA3eCe@AA;e@AAABB I0 30000   `0E;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{  #2,126  "LOWER STRETCH LIMIT= ",L1 "UPPER STRETCH LIMIT= ",L2 A15L2L1) (BAL1 < C16) FC0)32 PC1)32 ZC2)96 dC3)96 nC4)46 xC5)46 C6)48 C7)48 C8)49 C9)49 C10)50 C11)50 C12)51 C13)51 C14) 64 C15)64  NOW IALIZE BOARD X32768,V)  NOW INITIALIZE ER #2 02) #2 31)  I0 7 " SET PAGE # ,X32771,I) 6 K1 16 4 @ J1 64 J J64  T J63  !^ P63488J128K1))16) h PAPB) r P0 P0 | P15 P15  #2 C15P)),C15P)),  J #2 13),  K  I  bbbTcdc\cblcLcDcbAffgAffg/U2B2BBBFBFBHBHBIBIBPBPBQBQBdBdB%PEABeBA0 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0 0520 JMP AGAIN 0530 RTN EXX 0540 RET $0550 D 0520 JMP AGAIN 0530 RTN EXX 0540 RET $0550 DOIT LHLD ADDR ;GET DISK ADDR 0560 LDA UNIT 0570 ORI 80H 0580 MOV C,A 0590 LXI D,BUFR 0600 LDA COM ;GET COMMAND 0610 ANI 0FFH 0620 CZ COPY 0630 MOV B,A ;PUT IT IN B 00640 MVI A,04H ;# OF BLOCKS TO READ/WRITE "0650 CALL DCOM ;ISSUE COMMAND 0660 LDA COM 0670 ANI 0FFH 0680 CNZ REST 0690 RET $0700 READ MVI A,01H ;REEAD COMMAND 0710 STA COM 0720 CALL PAGES 0730 RET %0740 WRITE MVI A,00 F16)  I0 15 FI)0 ( 2X32768,V) < P0 15 FX32771,P) K"PAGE ",P P S0 2047 ZZ63488S))16) dFZ)FZ)1 n s x I0 15 FI)    NS0 0u I0 15 :uSSFI) Du Nu S :a2a*aB/7 B HDB J63 "  J128 "  J125 " ! P63488J128K1))16)  #2 C15P)),C15P)), " J ,#2 13), 6 K @ I J cbbbbbbb/U2B2BFBFBDBDBHBHBIBIBPBPBQBQBdBdB$PEABeBBB440 MOV A,C 0450 ANA A 0460 JNZ LOOPC 0470 EXX 0480 DCR B 0490 MOV A,B 0500 ANA A 0510 JZ RTN 0520 JMP AGAIN 0530 RTN EXX 0540 POP H 0560 RET 0 0520 JMP AGAIN 0530 RTN EXX 0540 RET $0550 D A9)  L10) A0)1 (A1)5 2A2)9 <A3)2 FA4)6 PA5)4 ZA6)7 dA7)8  I0  L13  L22  M0  N  X0 L1L2)  LX) $ . 8J BJ RINE"MERGE" LJ VJ ARGUMENTS\ /`J I \ POER FIRST ELEMENT 4jJ IN AK) ARRAY BE STED) /tJ M \ POER FIRST ELEMENT 3~J IN ARRAY RECEIVE MERGED %J SUBARRAYS. 9J L \ GTH OF SUBARRAYS BE MERGED. J 8J THIS RINE MERGES TWO SUBARRAYS OF AK) 9J OF GTH L, THE FIRST OF WHICH STARTS AT 5J POSITI I IN ARRAY AK), PUTS THE 3J MERGED ARRAY OF GTH 2L) O ARRAY -J LK) STARTING AT POSITI M). J 5J THIS RINE IS DESIGNED BE USED IN A J STING RINE. J  NI1I *N I2IL1 EN L3ML1L2 HN I1IL1) R IN I2IL1L2) U JN AI1)AI2) U KN AI1)AI2) R \N MM1 fN ML3 pN HN RLM)AI2) RI2I21 R \N ULM)AI1) UI1I11 V \N 1u yddd e,e/2 APAA A`A@ApAA/d7 A APA`AAee0A$e APAe0APAPA`A7>6>+/>2(>d,>K)>->*.>3>20>d4>K1>5>60040 ORG 0D000H 0050 BASE EQU 20H 0060 W1TOP EQU BASE+10H 0070 W1BOT EQU BASE+11H 0080 W1LT8 EQU BASE+08H 0090 W1LT4 EQU BASE+0AH 0100 W1RT8 EQU BASE+09H 0110 W1RT4 EQU BASE+0AH 0120 W2TOP EQU BASE+14H 0130 W2BOT EQU BASE+15H 0140 W2LT8 EQU BASE+0CH 0150 W2LT4 EQU BASE+0EH 0160 W2RT8 EQU BASE+0DH 0170 W2RT4 EQU BASE+0EH 0180 CM112 EQU BASE+0BH 0190 CM212 EQU BASE+0FH 0200 CM108 EQU BASE+13H 0210 CM208 EQU BASE+17H 0220 CTC10 EQU BASE 0230 CTC11 EQU BASE+1 0240 CTC12 EQU BASE+2 0250 CTC13 EQU BASE+3 0260 CTC20 EQU BASE+4 0270 CTC21 EQU BASE+5 0280 CTC22 EQU BASE+6 0290 CTC23 EQU BASE+7 0300 WSTAT EQU BASE+12H 0310 WCMD EQU BASE+16H )0320 WIND1 MVI A,80H ;INIT U12 FOR MODE 0330 OUT CM208 #0340 MVI A,01H ;MASTER DISABELE 0350 OUT WCMD 60360 MVI A,80H ;SET MODE FOR 12-BIT COUNTER PORTS 0370 OUT CM112 0380 OUT CM212 40390 MVI A,89H ;SET UP U11 FOR PROPER OPERATION 0400 OUT CM108 0410 MOV A,E -0420 STA FLAG ;1=ONE WINDOW, 2=TWO OF EM 0430 POP D 0440 MOV A,E %0450 STA MODE ;TA INCREMENT MODE 0460 POP D 0470 MOV A,E +0480 OUT W2RT8 ;RIGHT SIDE OF WINDOW 2 0490 POP D 0500 MOV A,E *0510 OUT W2LT8 ;LEFT SIDE OF WINDOW 2 0520 POP D 0530 MOV A,E 0540 OUT W2BOT 0550 POP D 0560 MOV A,E $0570 OUT W2TOP ;TOP OF WINDOW 2 0580 POP D 0590 MOV A,E +0600 OUT W1RT8 ;RIGHT SIDE OF WINDOW 1 0610 POP D 0620 MOV A,E *0630 OUT W1LT8 ;LEFT SIDE OF WINDOW 1 0640 POP D 0650 MOV A,E '0660 OUT W1BOT ;BOTTOM OF WINDOW 1 0670 POP D 0680 MOV A,E $0690 OUT W1TOP ;TOP OF WINDOW 1 0700 MVI A,00H 0710 OUT W1LT4 ;CLEAR 4MSB 0720 OUT W2LT4 0730 LDA MODE 0740 OUT WCMD 0750 RET 0760 FLAG DS 1 0770 MODE DS 1 0780 END 0780 >7>6>+/>3{2G{2H{-{,{5{4{){({1{0>*.:H6$ Gn hDuz^*:5riM{:o^!9D~ 0Jt:IN,i )|9-r~ۿ7z^/D$ 2^ i{Nk+_yokg~`J?[k/po)6ﭬ/.`+v*>!{7?5:A_fY3׻vQy{Ww;K b{}~i#w޿+k._?գm}~K/kj{M3gL/.աr_x㿟)s{VCo9XW9 53247 X32768,V)  "TOP1= ",T1 ( T10 2 "BOT1= ",B1 < "LEFT1= ",L1 F "RIGHT1= ",R1 P "TOP2= ",T2 Z "BOT2= ",B2 d "LEFT2= ",L2 n "RIGHT2= ",R2 x "MODE= ",M  "NUMBER OF WINDOWS= ",W + X53248,T1,B1,L1,R1,T2,B2,L2,R2,M,W) T9T1  T1T9 x CaAa%PCA#CA%PCA A7H 0028 CTC10 EQU BASE 0029 CTC11 EQU BASE+1 0030 CTC12 EQU BASE+2 0031 CTC13 EQU BASE+3 0032 CTC20 EQU BASE+4 0033 CTC21 EQU BASE+5 0034 CTC22 EQU BASE+6 0035 CTC23 EQU BASE+7 0036 WSTAT EQU BASE+12H 0037 WCMD EQU BASE+16H )0038 WIND1 MVI A,80H ;INIT U12 FOR MODE 0039 OUT CM208 /0040 MVI A,11H ;MASTER DISABLE, DISABLE #2 0041 OUT WCMD 60042 MVI A,80H ;SET MODE FOR 12-BIT COUNTER PORTS 0043 OUT CM112 0044 OUT CM212 40045 MVI A,89H ;SET UP U11 FOR PROPER OPERATION 0046 OUT CM108 0047 MOV A,E %0048 OUT W1TOP ;SET TOP LIMIT 0049 0010 ORG 9000H 20020 WIND1 EQU 0D000H ;ROUTINE TO START W-BOARD 00030 INIT EQU 8000H ;ROUTINE TO INITIALIZE CAT 0040 RS2 EQU 52H ;STATUS PORT 0050 WS0 EQU 50H ;COMMAND PORT 0060 WS2 EQU RS2 /0070 CLEAR EQU 8006H ;ROUTINE TO CLEAR SCREEN 00080 CALL INIT ;SET UP CAT FOR 4-BIT PIXELS 0090 LXI D,00H ;CLEAR SCREEN 0100 CALL CLEAR 0110 LOOP1 IN RS2 ;READ STATUS !0120 ANI 10H ;MASK VBLANK BIT '0130 JNZ LOOP1 ;LOOP UNITL IN FIELD 0140 LOOP2 IN RS2 ;READ STATUS !0150 ANI 10H ;MASK VBLNK BIT 50160 JZ LOOP2 ;LOOP UNTIL IN VERT RETRACE (BLANK) <0170 LXI B,RETA ;LOAD BC WITH RETURN ADDRESS FROM WIND1 )0180 PUSH B ;PUT IT ON STACK FIRST 0190 MVI E,01H ;TOP OF W-1 0200 PUSH D 0210 MVI E,60 ;BOT 0220 PUSH D 0230 MVI E,01 ;LEFT 0240 PUSH D 0250 MVI E,128 ;RIGHT 0260 PUSH D 0270 MVI E,61 ;TOP OF W-2 0280 PUSH D 0290 MVI E,120 ;BOT 0300 PUSH D 0310 MVI E,129 ;LEFT 0320 PUSH D 0330 MVI E,255 ;RIGHT 0340 PUSH D 0350 LDA MODE ;SET MODE 0360 MOV E,A 0370 PUSH D *0380 JMP WIND1 ;START WINDOW BOARD <0390 RETA MVI A,40H ;SET FOR EXTERNAL SYNC (FOR DIGITIZER) 0400 OUT WS2 *0410 MVI A,00H ;RESET TA POINTER TO 00 0420 OUT 53H 0430 OUT 54H #0440 MVI A,24H ;START DIGITIZER 0450 OUT WS0 0460 LOOP3 IN RS2 ;READ STATUS 0470 ANI 80H ;MASK A/D BIT 20480 JNZ LOOP3 ;LOOP WHILE DIGITIZING GOING ON #0490 CALL INIT ;RESTART BOARD 0510 MVI A,00H 0520 OUT 53H "0530 OUT 54H ;RESET TA ORIGIN +0540 JMP 2D00H ;RETURN TO MONITOR M2D00 "0550 MODE DB 04H ;TA ALWAYS TRUE 0560 END 0560aI%Yg{} l07MD 歘~==3:Uk=y:cGF F{bgSF;c:|S1Fת_{3&106;Z}ƣrD00sy^ pnZy4o^*-Z' ;FLͭ۩0BF00Fe}@$}3.?D TBGNF*W07@iYET3Eݨ!Ga6 fDT3Eݹ25&VT3T#DxC$%!"#D3xSw#33gdVS#2 #g܅5QG #60#x݆#vg3GA#w!R R;<=x:\_>@R>ST>$PRI>ST-?0010 ORG 9000H 20020 WIND1 EQU 0D000H ;ROUTINE TO START W-BOARD 00030 INIT EQU 8000H ;ROUTINE TO INITIALIZE CAT 0040 RS2 EQU 52H ;STATUS PORT 0050 WS0 EQU 50H ;COMMAND PORT 0060 WS2 EQU RS2 /0070 CLEAR EQU 8006H ;ROUTINE TO CLEAR SCREEN 00080 CALL INIT ;SET UP CAT FOR 4-BIT PIXELS 0090 LXI D,00H ;CLEAR SCREEN 0100 CALL CLEAR 60170 LXI B,RETA ;LOAD BC WITH RETURN ADDRESS )0180 PUSH B ;PUT IT ON STACK FIRST 0190 MVI E,01H ;TOP OF W-1 0200 PUSH D 0210 MVI E,60 ;BOT 0220 PUSH D 0230 MVI E,01 ;LEFT 0240 PUSH D 0250 MVI E,128 ;RIGHT 0260 PUSH D 0270 MVI E,61 ;TOP OF W-2 0280 PUSH D 0290 MVI E,120 ;BOT 0300 PUSH D 0310 MVI E,129 ;LEFT 0320 PUSH D 0330 MVI E,255 ;RIGHT 0340 PUSH D 0350 LDA MODE ;SET MODE 0360 MOV E,A 0370 PUSH D *0380 JMP WIND1 ;START WINDOW BOARD )0440 RETA MVI A,24H ;START DIGITIZER 0450 OUT WS0 +0540 JMP 2D00H ;RETURN TO MONITOR M2D00 "0550 MODE DB 04H ;TA ALWAYS TRUE 0560 END 0560 E,A 0370 PUSH D *0380 JMP WIND1 ;START WINDOW BOARD <0390 RETA MVI A,40H ;SET FOR EXTERNAL SYNC (FOR DIGITIZER) 0400 OUT WS2 *0410 MVI A,00H ;RESET TA POINTER TO 00 0420 OUT 53H 0430 OUT 54H #0440 MVI A,24H ;START DIGITIZER 0450 OUT WS0 0460 LOOP3 IN RS2 ;READ STATUS 0470 ANI 80H ;MASK A/D BIT 20480 JNZ LOOP3 ;LOOP WHILE DIGITIZING GOING ON 0490 MVI A,00H 70500 OUT WS2 ;RESET FOR INTERNAL SYNC (FOR DISPLAY) 0510 MVI A,00H 0520 OUT 53H "0530 OUT 54H ;RESET TA ORIGIN +0540 JMP 2D00H ;RETURN TO MONITOR M2D00 "0550 MODE DB 04H ;TA ALWAYS TRUE 0560 END 0560aI%Yg{} l07MD 歘~==3:Uk=y:cGF F{bgSF;c:|S1Fת_{3&106;Z}ƣrD00sy^ pnZy4o^*-Z' ;FLͭ۩0BF00Fe}@$}3.?D TBGNF*#""!#DEDDDTUffwf1"!C333""!"""DDUDDDUffwf!3!v333"""4DDDDDEVfwe 3"v333#""!!3DDDTDUVvxf!#D!&u#3#""!!3DDDDDEewf2#D7u3#"""!#DDDDDEVwvD#D8d"""""!CDDDDDVwwfD23UIݺd"#""""4DDDDEVxwB3U!Yݺd23"""""-<=x:4_>$P-_>@R>ST>$PRI>ST-ZU0010 ORG 9000H 90020 BASE EQU 50H ;THIS WILL CHANGE WITH DIP SW SETTING 0030 WS0 EQU BASE 0040 WS1 EQU BASE+1 0050 WS2 EQU BASE+2 0060 WS3 EQU BASE+3 0070 WS4 EQU BASE+4 0080 RS5 EQU BASE+2 0090 RS6 EQU BASE 0100 RS7 EQU BASE+1 0110 WSTAT EQU 32H 0120 WIND1 EQU 0D000H 40130 MONITOR EQU 2D00H ;NORTH STAR MONITOR PROGRAM ?0140 WORKS CALL START ;START CAT-100, 4 BIT PIXELS, 240 X 256 60150 CALL FLYBAK ;WAIT UNTIL JUST IN VERT RETRACE 0160 LXI B,RETA 0170 PUSH B 0180 MVI E,1 ;TOP 0190 PUSH D 0200 MVI E,120 ;BOT 0210 PUSH D 0220 MVI E,1 ;LEFT 0230 PUSH D 0240 MVI E,128 ;RIGHT 0250 PUSH D 0260 MVI E,121 ;TOP 0270 PUSH D 0280 MVI E,239 ;BOT 0290 PUSH D 0300 MVI E,129 ;LEFT 0310 PUSH D 0320 MVI E,255 ;RIGHT 0330 PUSH D 0340 LDA MODE ;SET MODE 0350 MOV E,A 0360 PUSH D "0370 JMP WIND1 ;START W-BOARD 20380 RETA CALL FLYBAK ;WAIT TILL START OF VBLANK 0390 MVI A,00H 0400 OUT WS3 *0410 OUT WS4 ;RESET TA POINNTER TO 00 0420 MVI A,24H "0430 OUT WS0 ;START DIGITIZER *0440 LOOP1 IN WSTAT ;READ W-BOARD STATUS 0450 ANI 2 $0460 JZ LOOP1 ;LOOP TILL IN W-2 0470 LOOP2 IN WSTAT 0480 ANI 2 ?0490 JNZ LOOP2 ;LOOP TILL OUT OF W-2 (END OF BOTH WINDOWS) !0500 CALL START ;RESTART CAT (0510 JMP MONITOR ;RETURN TO MONITOR :0520 START MVI A,0F4H ;ALL,POLY,NO DOTS, NO DIRECT VIDEO 0530 OUT WS1 0540 MVI A,20H 80550 OUT WS0 ;4-BIT PIXELS, 240 X 256, 1-FIELD ONLY 0560 MVI A,40H +0570 OUT WS2 ;EXT SYNC, NO S-100 ACCESS 0580 MVI A,00H ; ZERO 0590 OUT WS3 $0600 OUT WS4 ;OUT THE TA-POINTER 0610 RET !0620 FLYBAK IN RS5 ;READ STATUS 0630 ANI 10H ;VBLANK BIT )0640 JNZ FLYBAK ;LOOP UNTIL IN FIELD 0650 LOOP3 IN RS5 0660 ANI 10H 10670 JZ LOOP3 ;LOOP UNTIL AT START OF VBLANK 0680 RET !0681 MODE DB 04 ;TA ALWAYS TRUE 0682 END 0682f2#weDVDUTDC4EUUUUVvxu!Vv!"!""EB#wvUUDDDD34DDUUUUfwC4hv!!"""""!5CgUfDDDD33DUUUUUfwT!Vv"!"""""""!$TVffDDD3""DDUUUUVgx2gv""2##"""""e5vUDDD3!"4DUUUTUfwdxe#"#2"""""!U#wfU3DD2#DUUUEUfgw2xe23#22""""T!fwUUC4D2"DEUTUUffwe!xd2233#"""!4!5fCDC33"4DUTDEUfwxwwfChT"32"#"""!K^*xy:m_^>ST>$P272>K->Q> P>@R>STR^ReZU"(s|>Q> P>R>ST{RSx=R!+>xN.*:O:ƀG>" :Ԁ>2ͅ>2ͅbk> ڳ2N#FCx=RP* "! ʸ~#!!NO SUCH FILE   0 PROGRAM COMPUTE BANK SERVICE CHARGE ( 2 ;< "TYPE IN MIN. BALENCE, MAKE IT NEG TO STOP PROGRAM" F M P M0 ,Z "TYPE IN THE NUMBER OF TRANSACTIONS" d T n )x NOW CALCULATE THE SERVICE CHARGE   M300) S0 $ M300) M200)) ST20 $ M200) M100)) ST10  M100) ST  4 SERVICE CHARGE IS NEGATIVE, SET IT ZERO   S0) S0  % NOW THE SERVICE CHARGE  "THE SERVICE CHARGE IS",S  + LOOP, SO WE CAN CALCULATE AHER E  " < bbbBB0010 ORG 400H 0020 TRUE EQU 0FFH 0030 FALSE EQU 000H 0040 NSJTS EQU $ B0050 STRTS EQU NSJTS+512 ;MEMORY SIZING SEARCH WILL START HERE 0060 ; 0070 ; 20080 NOTRD EQU 9 ;DEVICE OFF LINE CODE B0090 DCTRL EQU 0E8H ;HIGH BYTE OF DISK CONTROLLER ADDRESS 0100 ; 0110 ; 0120 ; JUMP TABLE 0130 ; 0140 ; 0150 JMP CONONL 0160 JMP CONINP 0170 JMP CONOUT 0180 JMP CONST 0190 ; +0200 JMP PTRONL ;PRINTER ON LINE *0210 JMP PTRINP ;WHAT THE FUCK? +0220 JMP PTROUT ;PRINTER OUTPUT 0230 ; 0240 JMP REMONL 0250 JMP REMINP 0260 JMP REMOUT 0270 ; 0280 JMP NSMSIZ 0290 ; 10300 JMP OFFLIN ;NSCLOCK IS OFF LINE 0310 ; 40320 JMP MACINT ;MACHINE INITIALIZATION 0330 NSOFTEN JMP NSOFTEN 0340 NSEXTRA JMP NSEXTRA 0350 ; 0360 CONONL EQU $ +0370 XRA A ;RETURN DEVICE ON LINE 0380 RET "0390 CONINP IN 3 ;CHECK STATUS $0400 ANI 2 ;MASK READY BIT -0410 JZ CONINP ;LOOP ON NO CHARACTER 0420 IN 2 ;GET CHAR *0430 ANI 7FH ;MASK OFF PARITY BIT 0440 RET 0450 ; $0460 CONOU IN 3 ;CHECK STATUS 0470 ANI 1 0480 JZ CONOU 0490 MOV A,C 0500 OUT 2 0510 RET 0520 ; 0530 CONST IN 3 0540 ANI 2 0550 JZ NONE 0560 MVI A,TRUE 0570 RET 0580 NONE MVI A,FALSE 0590 RET 0600 ; 0610 ; PRINTER DRIVER 0620 ; 0630 PTRON EQU $ 0640 XRA A 0650 RET 0660 ; 0670 PTRIN MVI A,20H 0671 MOV C,A 0672 XRA A 0673 RET 0680 RET 0690 ; -0700 PTROU MOV A,C ;PARALLEL OUTPUT ROUTINE 0701 0702 0703 0710 ANI 7FH 0720 CPI 0AH 0730 CZ LF 0740 LOOP2 IN 6 0750 ANI 1 0760 JZ LOOP2 &0770 MVI A,20H ;RESET PO FLAG $0780 OUT 6 ;OUTPUT CHAR "0790 MOV A,C ;LOAD ACC. 0800 ANI 7FH 0810 OUT 0 '0820 ORI 80H ;SET STROBE FALSE %0830 OUT 0 ;SEND CHARACTER $0840 XRI 80H ;TOGGLE STROBE 0850 OUT 0 0855 XRA A 0860 RET 0870 LF MVI C,07H 0880 RET 0890 ; 0900 ; 0910 ;REMOTE DRIVER 0920 ; 0930 REMON EQU $ 0940 XRA A 0950 RET 0960 ; 0970 REMIN IN 5 0980 ANI 2 0990 JZ REMIN 1000 IN 4 1010 MOV C,A 1020 XRA A 1030 RET 1040 ; 1050 REMOU IN 5 1060 ANI 1 1070 JZ REMOU 1080 MOV A,C 1090 OUT 4 1100 XRA A 1110 RET 1120 ; 1130 ; 01140 ; VECTOR TO THIS IF DEVICE IS OF LINE 1150 ; 1160 ; 1170 OFFLI MVI A,NOTRD 1180 RET 1190 ; 1200 NSMSI LXI H,STRTS 1210 MVI L,0FFH 1220 LOOP MOV A,M 1230 MOV B,A 1240 CMA 1250 MOV M,A 1260 CMP M 1270 JNZ ENDSR 1280 MOV M,B 1290 INR H 1300 JNZ LOOP 1310 ENDSR DCR H 1320 DCR L 1330 XTHL 1340 PCHL 1350 ; 1360 MACIN EQU $ 1370 PUSH PSW 1380 PUSH H 1390 XRA A 1400 OUT 6 1410 MVI A,40H 1420 OUT 0C0H 1430 LXI H,0EC00H 1440 RAMIN EQU $ 1450 MOV A,M 1460 MOV M,A 1470 INR L 1480 JNZ RAMIN 1490 INR H 1500 MOV A,H 1510 CPI DCTRL 1520 JNZ RAMIN 1530 MVI A,41H 1540 OUT 0C0H 1550 ; )1560 ; NOW INITIALIZE SERIAL PORTS 1570 ; -1580 MVI A,3 ;2 STOP BITS, 16*CLOCK 21590 OUT 3 ;8 DATA BITS , NO PARITY 1600 OUT 5 1610 MVI A,40H 1620 OUT 3 1630 OUT 5 1640 XTHL 1650 XTHL 1660 MVI A,0CEH 1670 OUT 3 1680 OUT 5 1690 MVI A,27H 1700 OUT 3 1710 OUT 5 1720 IN 2 1730 IN 4 1731 ; '1732 ; NOW INITIALIZE PARALLEL PORT 1733 ; 1734 MVI A,60H 1735 OUT 6 1736 MVI C,0DH 1737 CALL PTROU 1738 ; 1739 ; 1740 POP H 1750 POP PSW 1760 RET 1770 END 1780 1780-/;FSU[ÀÂÎÝÚó'*/;yP>>ɯ> Oy }c> yɯʂOʎy> !.~G/w¯p$¢%->@!~w,¿$|¿>A>>@>>'>` [>` ["> y(شش(8ִ *RELOC.CODE9Aġ I') "C&(,. Cl0N| 6   0 PROGRAM THE FULL CHARACTER SET, % EXCLUDING THE ROL CODES. ( 2 < I32 127 ,F #2 "THE ASCII CODE FOR ",I)," IS ",I P I Z `CLOWER STRETCH LIM@@@@@@@@@@@@@@@@@@@@@@@@  6 PROGRAM DEMSTRATE THE UPPER LOWER CASE $( CHARACTER CODES TERS. 2 < F #2 "UPPER CASE:" P #2 "" &Z #2 65),83),67),73),73) d #2 "" n #2 "" x #2 "LOWER CASE:" #2 "" ) #2 97),115),99),105),105) #2 ""  @@@@@@@@@@@@@@@@@@@@@ AZ  C2  128 ( W1 2 AN1,2) < I1 N F AI,1)2000) P I Z I1 23 d AI,1) n I x J1 7 L12J L2L11  KJCJC)W  I1 L2 L1   I  D  4 THIS SUBRINE MERGES TWO ARRAYS............  D   J  I1 23  AI,1),AI,2) " I , 6 E@ J T MN28J)) ^ A1I h A2IM1 r B1A21 | B2B1M1  ZI  RA1  SB1  K1JW)CJW)C)W  K,K1  RA2) SB2)) ~ 6 AR,K)AS,K) AZ,K1)AS,K) AZ,K1)AR,K)  ZZ2  RR1  SS1    RA2)   XR A2  AZ,K1)AX,K)  ZZ1  X & 0   9 THIS PROGRAM GENERATES 128 ROM NUMBERS BETWEEN 3( 0 2000 DOES A FREQUENCY DISTRIBUTI 42 CHECK SEE ANY UES OCCUR ME THAN CE. 1< ANY UES DO, THEY ARE ED ALG WITH F THE NUMBER OF TIMES. P Z 6d THE ROM NUMBERS ARE STED UG A MERGE ST n ARE ED , 16 AT A TIME ALLOW YOU TIME SEE THEM 9 BEE THEY OLL OFF THE EEN). ING A CR WILL  INUE THE ING.   C2 N128  W1  AN1,2)  B2000)  I1 128  AI,1)20000))  I    A$  J1 7 " L12J , L2129L1 6 KJW)CJW)C)W @ I1 L2 L1 J  T I ^ "PASS ",J h J r  |  E   MN28J))  A1I  A2IM1  B1A21  B2B1M1  ZI  RA1  SB1  K1JCJC)W  RA2) SB2)) 0 6 AR,K)AS,K) AZ,K1)AS,K) AZ,K1)AR,K) $ AR,K)AS,K) SS1 RR1  ZZ1 &  0 RA2) l : XR A2 D AZ,K1)AX,K) N ZZ1 X X b l XS B2 v AZ,K1)AX,K)  ZZ1  X    U1 N  AU,1),10),AU,2)  U    I1 113 16  JI I15  J,10),AJ,K1)  J  A$   I    I1 2000 * BI)0 4 I > K11 H I1 128 R BAI,K1))BAI,K1))1 \ I f I1 2000 ;p BI)1 "THE VALUE ",I," OCCURRED ",BI)," TIMES" z I  ACA/1G1G0B0B6B6BC6BpCvBCCCC2`CpC2CC4CPCHCCTPC@CW CCYC pCePC(CeC)Cf`C2CgpC2`C "TYPE IN MULTIPLIER ",A  254,A  254,0  "TYPE IN MULTIPLICAND ",B ( 254,B - 254,0 2 < MULTIPLY 16BIT, LOWER F P 255,110 U K1 5\""\ K V 255)127 V Z I1 16 0d I3 "THE ANSWER IS ",254) 254) n I x B 254,169  254,169  254,169 ( 254,169 2 255,2 < 255)127 < F I1 16 P 254) Z I d  I1 16  254,0  I   I1 16  254)  I  aBBYaQaPApA`AB ( 254,0 2 254,0 < 254,192 F 254,1 P 255,7 U Y254) Z X255) _ X255) d "THE STATUS IS",X n X127 Z x ""  "THE FINAL STATUS IS",X "" "" ! "THE TOP OF STACK =",254)  ""  I1 4 254)  I  (# 253,69 2# 253) <# (# azarapAPA  9 THIS PROGRAM GENERATES 128 ROM NUMBERS BETWEEN 3( 0 2000 DOES A FREQUENCY DISTRIBUTI 42 CHECK SEE ANY UES OCCUR ME THAN CE. 1< ANY UES DO, THEY ARE ED ALG WITH F THE NUMBER OF TIMES. P Z 6d THE ROM NUMBERS ARE STED UG A MERGE ST n ARE ED , 16 AT A TIME ALLOW YOU TIME SEE THEM 9 BEE THEY OLL OFF THE EEN). ING A CR WILL  INUE THE ING.   C2 N128  W1  AN1,2)  B2000)    ) FIRST, GENERATE 128 ROM NUMBERS   " , I1 128 6 AI,1)20000)) @ I J T ^ 2h NOW CALCULATE FREQUENCY DISTRIBUTI r |     - NOW WAIT OPERAR PRESS THE KEY   A$   A   : THIS IS THE MAIN LOOP IT S A MERGE SUBRINE     L12J & L2129L1 0 KJW)CJW)C)W : I1 L2 L1 D  N I X "PASS ",J b J l v  ) NOW WERE DE, SO THE RESULTS     `   E    & MERGE SUBRINE       MN28J)) * A1I 4 A2IM1 > B1A21 H B2B1M1 R ZI \ RA1 f SB1 p K1JCJC)W z RA2) SB2))  6 AR,K)AS,K) AZ,K1)AS,K) AZ,K1)AR,K) $ AR,K)AS,K) SS1 RR1  ZZ1  z  RA2)   XR A2  AZ,K1)AX,K)  ZZ1  X   XS B2  AZ,K1)AX,K)  ZZ1  X   $ C. / -8 SUBRINE 7B 16 AT A TIME L V ` I1 113 16 j JI I15 t J,10),AJ,K1) ~ J  A$  I    B  / SUBRINE CALCULATE - THE FREQUENCY 1 DISTRIBUTI   I1 2000  BI)0   I  K11  I1 128 ( BAI,K1))BAI,K1))1 2 I < I1 2000 ;F BI)1 "THE VALUE ",I," OCCURRED ",BI)," TIMES" P I Z CD@C$DpCVDpCVD@CsD CwD`CDCDC6B`CvBDCDPCD@C DCbD pCpD(CyD)CD2CD2CD2CIDFPCDQCDS0CDTC5DTCD`CxDe0CDhC2DpC8DsPCQDtpCSDu CwDvCDyC  9 THIS PROGRAM GENERATES 128 ROM NUMBERS BETWEEN 3( 0 2000 DOES A FREQUENCY DISTRIBUTI 42 CHECK SEE ANY UES OCCUR ME THAN CE. 1< ANY UES DO, THEY ARE ED ALG WITH F THE NUMBER OF TIMES. P Z 6d THE ROM NUMBERS ARE STED UG A MERGE ST n ARE ED , 16 AT A TIME ALLOW YOU TIME SEE THEM 9 BEE THEY OLL OFF THE EEN). ING A CR WILL  INUE THE ING.   C2 N128  W1  AN1,2)  B2000)    ) FIRST, GENERATE 128 ROM NUMBERS   " , I1 128 6 AI,1)20000)) @ I J T ^ 2h NOW CALCULATE FREQUENCY DISTRIBUTI r |     - NOW WAIT OPERAR PRESS THE KEY   A$   A   : THIS IS THE MAIN LOOP IT S A MERGE SUBRINE     J1 7 & L12J 0 L2129L1 : KJW)CJW)C)W D I1 L2 L1 N  X I b "PASS ",J l J v   ) NOW WERE DE, SO THE RESULTS     <   E    & MERGE SUBRINE    ;  THIS SUBRINE MERGES TWO SUBARRAYS IN <* A LARGER ARRAY. THE LIMITS OF THE TWO $4 SUB ARRAYS ARE\ 8> A1\ LOWER LIMIT OF SUBARRAY #1 8H A2\ UPPER LIMIT OF SUBARRAY #1 R 8\ B1\ LOWER LIMIT OF SUBARRAY #2 8f B2\ UPPER LIMIT OF SUBARRAY #2 p