@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREIE SEKT.  G) *Gȩ GȽG GȌ*jj >G}J,}Λ8P d\DOS SYSCOPY3TO2COM}B}}@@à֮@箠@ @CDOS SYSB*)DUP SYS@-------}---- C C*(> C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSLADEN NUR MIT MEM.SAV MOEGLICH.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VJ8 B V  @  /DE `E:D1:DUP.SYSPROGRAMM-SPEICHERUNG FEHLERHAFT!DOS DENNOC&}H LADEN? >J/N B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISKETTEN BETRIEBSSYSTEM II VERS. COPYRIGHT 1985 ATARI CORP.A. DISK-INHALT I. FORMATIERENB. ZUM STECKMOD*}UL J. DISK KOPIEREN C. DATEI KOPIEREN K. BINAER SAVED. DATEI LOESCHEN L. BINAER LOADE. NAMEN AENDERN M. START BEI ADR+}.F. DATEI SICHERN N. MEM.SAV ANLEGENG. DAT. FREIGEBEN O. DAT. KOPIERENH. DOS SCHREIBEN P. FORMATIEREN ӛL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }DOS 2.0s EINLEGEN -> Y, x -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLBITTE .}WAEHLEN, -> MENUE! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%INHALT [SUCHBEGRIFF,AUSGABEGER.]?[# 0 0 &|D3" 1L!KEINE DISKDATEIN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0JЛ 1 ;#L" ;#L! BL1->J ZUM LOESCHEN... LOESCHE DAT.NAME2}KOPIE-VON, AUF?DAS KANN ICH NICHT161 FREIE SEKT. KOPIERE---D1:PACCRS.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!KEINE 'WILD CARD6}S' IM ZIEL-DATEINAMEN 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!FORMATFEHLER!WELCHE DATEI LADEN? ) 0 ?}0#B 1L!SICHERN DAT.-NAME?) 0 0$B 1L!FREIGEBEN DAT.-NAME?DUP DISK-ORIGINAL,ZIEL STAT?PROGRAMM-SPEICHER BE@}NUTZEN? (J/N)ACHTUNG: MEM.SAV WIRD DANN INAKTIV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)BEIDE DISKETTEN EINLEGEN, Ԯ^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` ZU WENIG RAM! ORIGINAL EINLEGEN, ZIEL DISKETTE EINLEGEN, E}`  `8 rL1`-* 1P* 1 y0J`hhL!UEBERTRAGE DATEI:...?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Jj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DOS.SYS ALS ZIEL VERBOJ}TEN! 0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-DAT.NL}AME,START,ENDE(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} ZU LANG! B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 167ɛ+,' 20*.. өr2 1``2EINGABE ZU LANGUNGUELTIGE HQ}EXADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENuR} XADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENu$t%}i$݉$L$ BIBD$E V8`Error: No DOS 2.5 - Can't start menu! ? T}.  t`: [ BD$8%:V% g%~F J @   U} ʎDLt`i7xө$CL:؍@$mii@C'X@ԩ͑L^0`  l D1:MENU.OV V}L$`i7xө$CL:؍@$mii@C'X@ԩ͑L^0`  l D1:MENU.OV VW HV  V V V wW V W*E' h `+",#-.V-`++,`$"%#Ɗ$e*$X}*)M$%`&-"+#,*$ %!ߥ$%$$-ʝV-ަ+,++LV. UV? UVI0 UVI1 dWpW dWpW2$Y}W SW*H SWh*Z?? {V010?Ms%(')+-#3m1r/1C2)n46N7K8:;<>@B!gCQEFGIPSLN P$^}8SUWY[]a^`bdfgEhjlnprsuwihzH}~<`ɎL𱳵Dž$_}d8#!SƻnYoL;ċ-#oIu}xPLPLSޮH*ј`Z<"ؔ$`}"R1lǂPg[" _0I%.|‹KHx >"D5&x3;0L=CDgYXjmɍ'&hhdƷFo`l~˞ǃėBZ$a}ia~ E<+rF*w;y10qJc2jL-Cc0xT@E*됁XcP*}5Hy5{5&p*mxs6 $3]Qש$b}CpdFRmH@-'Py7Q|.vέ&f(rv&f93cPz Gqж (*7|-/uh{q&/\Ooytu{RLg2*IҔ )ca!8?$e}3^VkKUտ?( WcO#`d9j4/>VT 1^[2f$H ͈ov,[ h!$gtVitUW85-e$f} /ɚ%@U.y$؈)y5IHc|@]_$ Ŵ{{O>=#ӞbcVXMBG ZqWY+c%c^I+`p^ $g}w]rD^!MyGWBRFb(<\Jfuž{L7f9 ؜tv`Fi5AZX9iN<9nZixr)r+TP^$h};rKS]@9)eS,܊~[L%Rlˬz[lj[eS-FۙFe3k2Vhi;l/)3WotvWg];od'ǡ$i}5( RՈⓁ9/O_%sm;\͠:]AQ?{[2]NliPB'3ŠV >Xe7yJ($j}`v~?֓FkA74F`&dPj 78,5^v#bFڛ:6  M&ihTM6̂@B84G5{mkI $k}) 0_Ѻfi9,$`|3ՙ+^4Gi:Äj(WߣQ%zz9bO3UYX~#o~7# M$'Vt^4iT.j4\T{rSRu $l}U_84hrprps$Ga8rZG.{p .p糛1ݾ$ R#aՄG_PU*]&  'lG@0W1:,$m}KaA~Ft/ 'P3UY/bBs*i%;9flu A1 1zW\B~0+S9q'b.#=3#-տ(rmV+^Y ׵劶>U$n}R%5M2J*2ðɨ @_^٤>TʀRvp?ؠA|I9aag 9܌1,,0h e@sd8O6Å$o}fEtڴ(,9*d\4]r [4VT0 OL`6MwIWPogD(60y(lMЃ#ǘ>o1?-@:Ce2 u{$p}!s i> }eCz'_^~[W;L'Yj/sέ!:QȚ,4X.v_}A"(.]CD".v@3dM $q} kKݨ4=D&/_S|P 휹VZ[sGPɪ,jS n =7 YZ[ad.^RP u, GŒEFI\R$r}HpMF3+[rrIw>;P 8!t^j4P_ Ța;qc~.X0KÎkקMB<: pCB$s}^[ |&CszWBh{X%`JRd2:Q^RJK"uk ).TL*FiL9 P|<4N4>$t}Mr\Y .Lf'ͮΠ2ԮӨ >E$ԢIU(ňF#G.-Q%a1lE-5UK_||w =O/r"$u}bޑpԓbqg[,gr]LY8W[l[u`ϯ4ɷqgI8R@$/ #@/5ol-C"Tj`>o[>$v}eU[.9){K& Kp ;!'1)V4hg.Wm~rRASfAd7ہVEȀ|TL*@=Q`0D(W,R$w}D\)y$ !Kjd,\ez!}f5&Ch5> n5Vɴj#KxР,PIϭ!US 8SPM1H ت]q[ h2i$x}U# y̧y$؈ 8KeaV8j)(e{2{X:)P[\a8&Q;_ci-T/Kuo_fGrm [ aðg EtfkJE0:Q;eYP`髙aaH${}/H @Z * <缐Cm`N 3A$ ҴK N O]6#h]ڕif΍ұ6i6.4"2o$ 'WV($Ȥ$|}qm+@KPbJ,֓g76 skIY631'Pxt=J`h=,[O ta:5\nm+A\Ƞ+5EHZ0'aTWWPAu$}}92RmWYy=8bd׋ҽ[6ex ɵ\:/l`Pa1dMdhPW z]C}Mw=sh\/AzMuvw +$~}b$ _\(<+^ J08SH~f*bf53p#1N:wv@ i[#@Vqd/Jq]X 4`(l]p@1ġˇe8(81 ͇$}/%8:*bE7oVIg|8S*Օ5*4pi(KRJo39LÛR4W@\;f&tSNS8<$}}BZqdP<ڕQU{n+\M*ϵ_Ӕ2survNꥡ.e4ovc@F@XУ\rk-$}X7;mhks*x xy8m3_mlmrck9 T1Ec}raȱTZaG\P 000 6Iu}>p'n\۽RET[`: $F#G~f<ߖL Qi(Q(@M`KR,H0گ$}JDa1SVr,J(JB1ʥ RfZ厌l`BM}v-Lz+={*۽{=Hvgp#˧^sf=ə)XAd[,!Ajj$}GYNlKGYN,_bZKD:ϧYl1t, ̳cnő6 l\4 pM}4GSycbz6`,S# "tGF$}7{CiRL4h h ¬+^LkO)Aw6U^JΡ*>1CT- /8ėJ\ %"UJ[GU@A6yD @Z$}C+se[_kޘ8cIS8UL&x3;[e{vD`&i&iM^*ߌu 0#?/j* [SH& .wۏ4oHjq$}% -w-jɤӯlniU-;5"a9 pEpxtYm5]o] G] [McmcU&9l  ].^`Gf2 'dI3$}-y4[-, yD'(z)Y{,^#-QJ s"L:dkczdΝ{r7ǔud9M@@$ 3?i||DBaO ~|L7^*K&􂸑$}oXdI*k dX{Y cw>AYx7@&2p@<KT,Pa%E>3µ9=qޠ Sp#?*7IC"L ĶoTr"Jd /ɩϯ$}ЄYO-R>g;pȺuO/.[Kzx-C:>‡ $$Ϋ.@=2I͹rP nP1ݔp $}" ;2MHٛ8jo&Ҵuٛp''x{4|CY' - GZhW^-Th# rq H`b ؎39$CIMDۢf"g*z$}S]"_>y4HG+2PP%Yke8tR!È#ڠ1)TFQJewy*(!#Cc;9SeR_7$ _6d$}w¥-n( u_x}xܡP)= [-d7P'.;C BWAHcwR,u/_d'%K櫠a5"I "kD &ΠD& "jm$}L`Fa@ p& Pn^5GGaԘ I|8ϕC9wYj}9i>Tj| ]pդCFNN'%XX+g$}~;#_mv_oXAԓP+/ȑ-hL9/SS'XHg.ka^&?|1@<( 5=O"鞲_|–-3bk_~k9/A$};^ס>ۉ0OP31 \ Y3%+< s!_+#o6-d 6o fŭ>H>l/:+=o5]!NJ+w; _vrQz2$}CCVYMhd<(L?ڝMeZmcpcֈ'ţCOֈش=?558֨Ƌ7{ d`WC5/bŭR!<]HZ exF*PỾQcrp9$}  `1ġI:2(kBح4G[; =ܳ@KlXmN݀ʘy֢WS"45t;t]]@KyuGCWvZu.cJ$}.["Eq!a &A֥1hX@(3$3BK4M|T΃1˲N.16%IGfV-;5:c0Nh[/=XұV&E HiJ$}I8RZ$e%-@R@@6$a*݇cEpLdKr["ײbegv H~6qdTԄԀPlVV^0aUO1V^0 HiJ$wABBUC Nr. 43 Seite B ----------------------------------------------------------------------------------------DEMO (} TXTAnleitung zu den Source Codes BEISPL1 SRCSource Code 1 BEISPL1 OBJBeispiel 1 zu Demo Kurs 2 (}BEISPL2 OBJBeispiel 2 zu Demo Kurs 2 BEISPL3 SRCSource Code 3 BEISPL3 OBJBeispiel 3 zu Demo Kurs 2 (} BEISPL4 SRCSource Code 4 BEISPL4 OBJBeispiel 4 zu Demo Kurs 2 FONT1 OBJFont zu Demo Kurs 2(} --------------------------------------------XLOS TXTAnleitung XL OS XLOS DATXL-OS mit AR(}GS Verbesserungen --------------------------------------------ARGSOSXETXTAnleitung XE OS ARGSOSxEDATXE-OS(} mit ARGS Verbesserungen --------------------------------------------LCD TXTAnleitung zu den LCD Programmen LCDMINI S(}RCSource Code LCDMINI COMMini LCD Treiber LCD600 SRCSource Code LC(}D600 COMLCD Treiber LCD8000 SRCSource Code LCD8000 COMLCD Treiber (} LCDTEST BASTestprogramm fuer LCD-Display LCD BASProgramm zum ANsprechen von LCD LCD2 SRCSource Code (} LCD2 COMTreiber LCD 2 LCD2MINISRCSource Code LCD2MINICOMMini Treiber L(}CD2 RECHNER BASTaschenrechnerprg. fuer LCD --------------------------------------------AUTORUN TXTAnleitu(}ng zur Himmelsuhr AUTORUN BASStart der Himmelsuhr (Turbobasic)HIMMLUHRPICBild zum Himmelsuhrprogramm -----------(}---------------------------------BOYGIRL TXTAnleitung Geschlechtsbestimmung BOYGIRL TURGeschlechtsbestimmung (TurboBasic----+}ABBUC # 43BEISPLx.*, FONT.OBJvon Karolj NadijEs handelt sich hier um die Source Files fuer den Demo-Kurs Teil 2Sie s0}ind als BIBO-ASS-Format abgespeichert.Folgende Hinweise:.OB erzeugt ein OBJ-File im RAM Wird nicht bei anderen Assemb0}lern verwendet.OF Erzeugt ein OBJ-File auf Disk.LI OFF schaltet Listing-Ausgabe waehrend des Assemblierens ab.0}AT erzeugt den nachfolgenden Text als Bildschirmcode, nicht ASCII!.HX ist das Gleiche wie DCB nur ohne Kommatas.D0}A ist gleichbedeutent mit DCW, d.h. erst wird ein LOW-BYTE, dann ein HIBYTE eingefuegt....0 lokale Label, gibt es 0}bei anderen Assemblern nicht, d.h. man muss sich neue ausdenken.Die Source-Files sollen auch nur als Anschauungsmat0}erial dienen.....Alle Beispiele wurden ebenfalls als OBJ-Files abgelegt. BEISPIEL3.OBJ benoetigt noch das FONT1.OBJ-File, d0}ass den neuen Zeichensatz und einen neuen grossen Zeichensatz enthaelt.Dieses File muss mann vorher laden:Mit der DOS-OPT0}ION /NL +RETURND:FONT1.OBJ/NKAROLJn grossen Zeichensatz enthaelt.Dieses File muss mann vorher laden:Mit der DOS-OPT0(00010 .OB00020 .LI OFF00030 DLISTV = 56000040 HSCROL = $D40401000 INIT LDA #DLIST01010 4} STA DLISTV01020 LDA /DLIST01030 STA DLISTV+101040 LOOP LDA #101050 STA 54001060 .0 4} LDA 54001070 BNE .001080 INC LMS01090 JMP LOOP01100 DLIST .HX 707070704201110 LMS 4}.DA TEXT01120 .HX 4101130 .DA DLIST01140 TEXT .AT" DIES IST EIN BEISPIEL FUER 'HARDSCROLLIN4}G' "HX 4101130 .DA DLIST01140 TEXT .AT" DIES IST EIN BEISPIEL FUER 'HARDSCROLLIN4@l@0@1@L @ppppB$@A@$)%3)34%)."%)30)%,&5%2(!2$3#2/,,).'@LLIN8y@l@0@1@L @ppppB$@A@$)%3)34%)."%)30)%,&5%2(!2$3#2/,,).'@LLIN<y00001 .OF"D:BEISPL3.OBJ"00010 .OB00020 .LI OFF00030 DLISTV = 56000040 NMIEN = $D40E0005@}0 HSCROL = $D40400060 DLIV = 51200070 VBIV = 54800080 TABLO = $680000090 TABHI = $688000100 V0 = $@}B000110 V1 = $B201000 INIT LDA #001010 STA NMIEN01020 LDA #DLIST01030 STA DLISTV01@}040 LDA /DLIST01050 STA DLISTV+101060 LDA #VBI01070 STA VBIV01080 LDA /VBI0@}1090 STA VBIV+101100 LDA #$C001110 STA NMIEN01120 LDA #$6401130 STA 7560113@}1 LDA #3401132 STA 55901133 LDA #001134 STA 71001140 JSR CLEAR01150 @} JSR FONT101160 LOOP JMP LOOP02000 VBI JSR SCROLL02006 LDA SHSCRL02007 STA HSCROL02010 @} JMP $E46203000 CLEAR LDX #4703010 LDA #003020 .0 STA SCRRAM,X03030 STA SCRRAM+48,X03040 @} STA SCRRAM+96,X03050 STA SCRRAM+48+96,X03056 STA SCRRAM+96+96,X03057 STA SCRRAM+96+96+4@}8,X03060 DEX03070 BPL .003080 RTS03100 FONT1 LDA #SCRRAM+44+4803110 STA V003120 @} LDA /SCRRAM+44+4803130 STA V0+103131 LDA #203132 STA COUNT103135 LDX COUNT2@}03140 LDA TEXT,X03145 BEQ .903150 SEC03160 SBC #3203170 .9 TAX03175 S@}TX CHAR03180 LDA TABLO,X03190 STA V103200 LDA TABHI,X03210 STA V1+103220 LD@}X #403230 .0 LDY #003240 LDA (V1),Y03250 STA (V0),Y03260 INY03270 LDA (V1),Y0@}3280 STA (V0),Y03281 LDA CHAR03282 CMP #9 ; I03283 BNE .703284 LDA #10@}3285 STA COUNT103290 .7 INY03300 LDA (V1),Y03310 STA (V0),Y03311 LDA CHAR03312@} CMP #13 ; M03313 BEQ .603314 CMP #23 ; W03315 BNE .803320 .6 INY03321@} LDA (V1),Y03322 STA (V0),Y03323 LDA #303324 STA COUNT103329 .8 CLC03330 @} LDA V003340 ADC #4803350 STA V003360 BCC .103370 INC V0+103380 .1 CLC0339@}0 LDA V103400 ADC #4003410 STA V103420 BCC .203430 INC V1+103440 .2 D@}EX03450 BNE .003460 LDA #103470 STA SCRFLAG03480 RTS04000 SCROLL LDA SCRFLAG04010@} BNE .004020 JSR FONT104025 .0 JMP SOFT04030 HARD LDX #004040 .2 LDA SCRRAM+1,X04050 @} STA SCRRAM,X04060 LDA SCRRAM+1+48,X04070 STA SCRRAM+48,X04080 LDA SCRRAM+96+1,X04090 @} STA SCRRAM+96,X04100 LDA SCRRAM+1+96+48,X04110 STA SCRRAM+96+48,X04111 LDA SCRRAM+96+96@}+1,X04112 STA SCRRAM+96+96,X04120 INX04130 CPX #4804140 BCC .204150 LDA COU@}NT104160 BEQ .304170 DEC COUNT104180 RTS04190 .3 LDA #004200 STA SCRFLAG04210@} INC COUNT204220 LDA #304230 STA COUNT104240 RTS04500 SOFT LDA SHSCRL04510 @} BEQ .004520 DEC SHSCRL04530 LDA SHSCRL04550 RTS04560 .0 LDA #304570 STA SH@}SCRL04590 JMP HARD10000 SCRFLAG .HX 0010001 COUNT1 .HX 0010002 SHSCRL .HX 0310003 COUNT2 .HX 0010004 CH@}AR .HX 0010005 SHSCRL2 .HX 0010014 COUNT .HX 0010015 SVSCRL .HX 0010016 SVSCRL2 .HX 0010100 DLIST .HX 7070@}70707010102 .HX 7210103 LMS2 .DA SCRRAM+4810104 .HX 7210105 LMS3 .DA SCRRAM+48+4810106 @} .HX 7210107 LMS4 .DA SCRRAM+96+4810108 .HX 7210109 LMS5 .DA SCRRAM+96+9610110 .HX C210111 @} .DA SCRRAM+96+96+4810198 .HX 4110199 .DA DLIST10200 SCRRAM .BL 4810201 .BL 4810202 @} .BL 4810203 .BL 4810204 .BL 4810205 .BL 4810299 .OR $500011000 TEXT2 .AT"@} DIES IST EIN KLEINES BEISPIEL FUER EINEN BIG SCROLLER PROGRAMMIERT FUER "11001 TEXT .AT"FUER DEN ABBUC D@}EMO KURS VON HEAVEN GRUESSE AN ALLE DIE ICH AUF DER JHV GETROFFEN HABE "11002 .AT"KAUFT BITTE ALLE DIE XL CD @}ROM DIESE MUEHE MUSS BELOHNT WERDEN ODER ETWA NICHT "11003 .AT" DIES IST EIN KLEINES BEISPIE@}L FUER EINEN BIG SCROLLER PROGRAMMIERT FUER "30000 .OR $2E030001 .DA INITDIES IST EIN KLEINES BEISPIE@a@nBԩ80A16$@%ԩd"/ B@ \@L3@ @1ALb/OAAAAB?B`A0A2AXP8 3D}Ahhȱ3A 0Aȱ3A  ȱ0Ai0i(ж/A`/A \@LAPAOAAAAAD}AABB0ݭ0A0A`/A2A0A`1A1A1A`1AL@ppppprArArArB?BA8AD}D}D}PfQgggggggggggggogwgowwggoogoogoogwgggowwogoggwgwggoogoggoggwgwooogwggggwwogwgooogwwggwgwg&5%2$%.!""5#$%-/+5236/.D}(%!6%.'25%33%!.!,,%$)%)#(!5&$%2*(6'%42/&&%.(!"%+!5&4")44%!,,%$)%8,#$2/-$)%3%-5%(%-533"%,/(.47%2D}$%./$%2%47!.)#(4$)%3)34%).+,%).%3"%)30)%,&5%2%).%.")'3#2/,,%202/'2!--)%24&5%2@%2D{00010 .OB00020 .LI OFF00030 VBIV = 54800040 NMIEN = $D40E00050 DLISTV = 56000060 HSCROL = H}$D40401000 INIT LDA #001010 STA NMIEN01020 LDA #VBI01030 STA VBIV01040 LDA /VBIH}01050 STA VBIV+101060 LDA #$4001061 LDA #DLIST01062 STA DLISTV01063 LDA /DLIH}ST01064 STA DLISTV+101070 STA NMIEN01080 RTS02000 VBI JSR SCROLL02010 JMP $E462H}02020 SCROLL LDA SHSCRL02025 BEQ .002026 DEC SHSCRL02030 LDA SHSCRL02040 STA HSCROH}L02060 RTS02070 .0 LDA #302080 STA SHSCRL02081 STA HSCROL02090 CLC02100 H} LDA LMS02110 ADC #102120 STA LMS02130 LDA LMS+102140 ADC #002150 STA LMH}S+102160 CMP /TEXTEND02170 BEQ .102180 RTS02190 .1 LDA LMS02200 CMP #TEXTEND0H}2210 BEQ .202220 RTS02230 .2 LDA #TEXT02240 STA LMS02250 LDA /TEXT02260 H} STA LMS+102270 RTS10000 SHSCRL .HX 0410001 DLIST .HX 70707070705210002 LMS .DA TEXT10003 H}.HX 4110004 .DA DLIST20000 TEXT .AT" eine kleine Demonstration des Softscrollings des XLs........H}. "20001 TEXTEND .AT" " eine kleine Demonstration des Softscrollings des XLs........H3@@ԩ$@%@f0@1` %@Lbe@ e@e@`e@l@il@m@im@@`l@`ql@@m@`pppppRq@Af@L}einekleine$emonstrationdes3oftscrollingsdes8,s@@m@`pppppRq@Af@Lf`h     P} P}    ! "#$%&'"#$ P}() *"#$+P}*,-. /  / 0 1 / 2 /3'/((P}45/()6789P}  "#$:; < =/"#$>?@ABCDE P}(ightnoon0 4itle3ongP}$ #avehunt1 ,un??<<<< ??000000<<<<<)2+2m-+ ɟ ɃɄɔ)? ҍL+]}JJJJy{)xzЍЍҝpt ҢxJJJ}*|ʈLZl&l(`]}` - -`hhh@x/j 'D" x=\>ɓ?%ȩxآ qĩRF]}F# ) s F өD")\=>%?]}R'S)(0b%Kĝ.ĝ 5X)өLPర  )ĩBHD]}ĝE J VL nƥj 9D )ll l`P0C@ESK BOOT ERRORE:,0]}­j l ĭ ӥ))ө(I I`}`ӝ]}Нԝ<өө8Ӎөөө<Ӎӭӭө"ҩҍҩ(ҩ `67  ]}, L n e k Pn8ɍ9 )I` )3L;ƩS S0!   Y >ƭ`@BC]}  iiA  Y >ƭЬ Y )ư ; `BiCill =ĊDE BHLV]}LzRLS )'Lƭ> } ũ  `lF`1F!@PW]}S  Y`S :ǠF! :Ǡȱȱ򈈌 ``3]} Ǡ9 Ǡ/E &*ȍȍE3 Ǡ 3` Ǡ, Ǡ"Emm`l]}l3 sJjK J}K}mEHmh8Hh Hh h]}h`8H3m6m7h6LPm6m76m6676m6`m6m76}6`H3jhm6m7]}6`mmm6ǒȒȒȒmmȵȵǕǩD)LHHѭɀ ɑ H`BHG ]}H hH qhB`jHH ʍH hHhh@LɠLɠLɠLɠ Lɠ L H`G=!]}H` H HLM`LMBHB HH ɐ LhhLʠHhBLMM`hh̀@ .M  .L ]}.@ L\L)-%-/294%342/-2!-+%9"/!2$4%34[1] }7%2495)/0 ܀!3$&'(*+, :8#6".- 30!#]!}%"!23("3\6/)#%qJiI`]"}Z˩ L<?`= KΈϝP 'Ϩ]#}@PP)iʠ @)_Pʈ???`?`??P`?% )P?`=>0 yΠ?`X]$}=E = =`A#=)=1801`SЖ=) =)=`BЭѠ`/,.͝L]%}HxH)ө`hhX= =`  4Lͭ=#> ͩ> L G>l$=)d1(1Ν]&}m01i01 Ψ@))  )iʠΙ ʈ`=)9xAΪ@)O mO Oʽ@)]'}mOHi h 8 X` > Ω0թ`թ4թ@խ)) 0@` ιP)  )թ<թ4Ո` )](} )`H0թoթ4h`&%#"  pPB -- --.--.-- --:--])}:--  Pȩȩϙ`8թբ<Սթ0թթ4ՠ`X`)!x]*} թ4<XLpϠX`NrozooLp ̅LL P PLR Pҩ ]+}U@Ԣ sW:Q PЍP *W ԭ))LRLWULPT!/ԩA],}`HH/ڍS *Whh01!/`HHz) 梥) , ԎfMhh@)*& ]-})) 恥XLuPLPpppppGaQpppN0pqQpppppN0pppBQA:Q3%,&4%34-%-/29!5$)/ 6)35!,+].}%9"/!2$!,,4%343BV BV/2BVpppF0ppppppppppppQ@BQBV/2BV4/%8)4]/}ppppF0ppppppppppppQppppFqRpppK1 pF0pQ!5$)/ 6)35!,4%34]0}ѠQ P sW YW YW 0ɪU S S sLR S$0ɪU S S LR S80%ɀ\XD S]1} SI JTő7œƒ S SL^S S S0&iЁLR S SLWU]2} ڢ *W)#0` *W)'0`)`< Ԉ`HI=8080h%8080`H ЭЩM SXL PG)]3}30)s0)/ 0) dҩh@PT000 sWR P YW YWEU攦 SL]4}RH) YWhH)@  YW YWh)?!h,t4h vWH!0hѕI U S U SLbT U)]5} ULbTdҩ`ҍҍҍ` YWLT YWLTR0S0Х2m04n0ЙR +( =9-05-?(  sW1R P YWJi 0]6}P112p22 WW Vi晥 ST1 VQ lV1 V[ lV0H VǠ0T VH2N VD lV]7}ʠ0H V2N Vʠ1 V< lV<0H V1N V<1 V- lV0H V1N V5 lV S日L\UL`U SLPTҩ]8}V S U`V VƝƣ`i`  ?>ABLp@CDHHHD"0H]9}>~|@0!1110b0"1101HWWWWhHŠšh`WʨWWaʝ0ƞ]:}`WWWW`, *2 Ҡ0,*+ /05) 6#"8:[ .-2%9471&($'3!0> 0$0$0(00 0];}(L"r ۰9 Hڢ D ۰!H hم٦0hL`.Eh+-X ]<}7H ۰H ehe ۥ Iihe+- ې08H*hj ۥiD ܰ  ` ]=}Qک0()?(E$8? p .L L٩` p 8逮0iE ܄ 8]>}-+ ܢ8 i H h ܭ0 ii ܠ-`ԅՅ D&uԕةBLܩ0fCb8]?}@?i ZڰS ZڰF ZڰAee2 ei$  iiԥ`8`Ԡ``&&]@}`I))8Դ0 >E0uذLܩ :ܩLܢ8LܥI8ՕL]A}E> 8@8e08 ܥ)0 LڥJJJJ0 L bץL D`8` 8i@0 LNۢՕ 8]B}ؐ ٠8ؐ е bL ۤȄ` `80 `H ې.+-h8` ]C} . ېh`ՠ66666&`ڢ.`)q` D`ʈ]D}e` ԕ` 8JJJJ ܵ) . ` 0` .0ʽ` ۥ)`8`]E}E)F)`ԅ ( ۥ) 4 D`ߠߠyʈ``` ]F} ݦ - ڰ(ii fڰ  0````ԕ` ]G}ڰԅ)8@0&j ٥ԅX ݢ `ک M @ ڥ#ji@0 ڥ ݢ ]H} (`8`==W3>Tvb>2b'?h`06?2'A?%C4Vu?f'70P@U??CBH@ ݦ fڢ ݢ ݦ `ڢ]I} (`0L8`@ ) (ۢf ޢ ک r @ݢ ڢl f ݩեI]J}i $ԅ fڥ (`@"wf?P?IWQpIG?9 Wa9cU? 0d? 9`?BXGB?7?()q?D>DIh8E?h]K}yx? )D?@ (1V?wD3331??xS4ԅ8Lfffffff>`<|fl0fF68of;]L}p88pf< 80 0 ~~`0 0```nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf]P}8pp8?ww<~~~<]Q}x`x`~<~~<0~0 ~ <~~<<>f>``|ff|<```<>ff>]R}>ff>|``|fff8<<``lxlf8<fkc|ffffff>|f```>`<|~]S}ffff>fff<ck>6f< x~ 0~<~~<~x|nf8x8-I,Ln-Ln]T},,LnLyLLLLL3LrLLL\LL LL#LLLLL#LPLLLɕɚɟɤɩL ]U}`@۝FGiɀ``/.)Lp@ " qLp )0]V}"%*H_vL Lp' "  ,&-'Lr Lp#  'ۅ&Lr ]W} 氥 .@ Lr"%*Lp () /Lr /0A$ ") /ɛ L ۥ") /0 /ɛ󩉅# $ ]X} Lr"%*Lp ()/($/  (0")/ɛ()ۥ") Lr#.D$E% @ /.]Y}#` ",-*稱,ȱ,-,`()(()`$%$`$%`.8H((I))` #`-H,H.`8$10 !]Z}!$ ! 8` ` %JKJqJ&JKJ V O- `mm8][} N Ln 08 ݐH  h LYO@@ʎj]\}LEǮ}` 38` Q LY&@JKJȱJ`]]}8`JK V8( ]'JȭJJKJJ  (8`( JȑJqJȭqJJ VˠJ`Ji]^} KilLr ];JHKHJKDJqJ VJȱJhKhJJJ`hh8`L3ɩ<ө<ө2A`B`L]_} (ҩmi:; < =:2i4354 ?ΜL"  / ? ]`},p? ?00ν0L B0`?>2i435< 0>A!CE000Ɋ]a}?0`0 1;:2 ҅1L: `H232435; 1 ҩ;  hh@2 e1i1L; :)]b}h@1890 @<ӥL9`0`Hҍ 00) 08 109hh@ Ҡ2e1i1232435]c}ޥ<<Щ82m43m 5`2̍ҩ b 0 4ӭ Lb 0 4ӭ]d} = 0<L*`-2 ` Ҡҍ2ҩ% LV-2 2ҍ ҩ% ҩ(ҢA]e}Ҭ`ҍ`%Ң`jj)?j)`,  7` .  . 8 8]f} b8}mJJJ 8)i 8}}`|08|`b}`Lx%) Ԥ   ]g}[XL')0 Ԥ ҭҭҩҭ2ҩU2ȑ212i23i3X` <ө<ө0XL*&]q}``à֮`箠` `b%DOS SYSb*)DUP SYS`-----------bSAUTORUN SYSbDWMENU OVL#MENU DEF`-----------b DEMO TXTbBEISPL1 SRCbBEISPL1 OBJbBEISPL2 OBJb&BEISPL3 SRCbBEISPL3 OBJb BEISPL4 SRCbBEISPL4 OBJbFONT1 OBJ`-----------bXLOS TXTb XLOS DAT`-----------bARGSOSXETXTbARGSOSxEDAT`-----------b LCD TXTb)LCDMINI SRCb;LCDMINI COMb=LCD600 SRCbULCD600 COMbXLCD8000 SRCbwLCD8000 COMb{LCDTEST BASb }LCD BASbLCD2 SRCbLCD2 COMbLCD2MINISRCbLCD2MINICOMb RECHNER BAS`-----------bAUTORUN TXT#AUTORUN BAS#uHIMMLUHRHMU# [ANLEITNGHMU#>gHIMMLUHRPIC`-----------# BOYGIRL TXT#BOYGIRL TUR`-----------#TEXTE TXT#&TEXTE BAS# TEXTER FNT`-----------'x \X`CT euxd   4dd //__aaaa a ''OOAAAA A  ]r}((PP@PPP(( 00`` 0 @ HH"0"0h]s}h8`hh8`hh`$! ` %&'.M$L`HH)  hh`0.@ 0 )0hh']t}H&H`Lj@Qyz`a`+)*)*WLT̍k/Lҩ@,n č]u}ԩd{j`WMQje( zo)?g jjj)g z odXeY]v} z x]de edheiA pfW  9*)3n  ij p` pB ief-f-W n]w} "QQ pW& ]j8 p pQ @ pQ pY pX pQ @ pp pp pd0e1p pde0hȭ1h]x}L `*) R" //L j L d-FoJ`} L ɛ aL L ]y}TZ****))I Fo L-PI1dPd` ]W I LL&LȩL`,n@ԩn΍L ]z}b k4TlUm Lɛ bcq VL\  lTmUkk L0 Lb a LLbld b   < ]{} Lb i- de Lb*Joe| бy0LɀɁ I]|}ɂ  Ƀ@ИɄLɅ LLɉI LɎɊ| `L*ɒ Ɏr&|@a]}}{ |L# < ML򩀍`TʆTL TTͿUU0RSULUUSRL dddeej]~} cmTVl`cR!UR # UST  L UR e Xc ]LcL>cLJ L } cH hc }]}H }hL Wλ0TL L dheicH hcTͿ hڠh  WL8 RU L QTT8 [ix( <]} U * XL ` @Ln L0+dL0d8dee dL` p p`fʆeT ]}&e &eeTdeWmd&eVJUjfedeeXd^eeYe_%Uefo`}cUVUW} SސV]}ԥW,cQ }" aL eTix ]} L} VTW${T)#}ɛ llΝ8뭝TL8]}ptpquq`W 'SSWT*( VV}U L` @Lhh{LbL_]^`H)nh]}JJJ`...` #n` #nI=`Tix #%n8`W ****))M`jʆigh؅fT'h]}f8hf(higiL Ziy( <0TTix(LfhdgsaL]}J:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHDGSA {   ` }]}HHӭ ImɃIm )&= Ҫɟ I)?.M+//h]}hh@!ϭkk п)Lm/͍/HMO-N ԍh@L̍`+>*) >`? 0)4]}Ӧb* \*=Lw` 0̍ҩҩ` h4Ӧb \**=`?03=]}=`R ?0= Lz?`==` |=``0<`=  |0 |L@b]}}ЩР@b} 6`%H$H` `#@R>  Y`]}UW ?`@ `S   Y0 D` `HA! Khɛ` ]} LY Kܠ`@!S@ ``W+N(DS  `Nܢ ]} ŋ`` Le查Š饟š`PXBB]}l,ŋ`` Le查Š饟š`PXBB\ ABBUC #43ARGSOSXE.DATvon Roland BuehlerARGS-OS Version E- Steueradressen der ARGS-Bausteine sind auf $D510-$D51F gee}legt, um OSS-Module nicht zu stoeren- Z:-Handler hat zusaetzliche Optionen: * "S" fuer Sparta-DOS (Disk) und BW-De}os Betrieb * "X" zum ganz abschalten der Uhr (kein Auslesen nach Page 5)- R:-Handler hat als Buffer die ganze Page e}4 ($0400-$04FF) und Wandlung von EOL in CR. Unter Basic und TurboBasic kann man mit XIO 44,#1,1/0,0,"R:" den Buffer ae}uf $0400-$047F reduzieren von EOL in CR. Unter Basic und TurboBasic kann man mit XIO 44,#1,1/0,0,"R:" den Buffer adBB@ԭЍ`,lHHHLL#H) ߍҥl H-Il8%,LIҥm#i}hlMh@h,l,lhhH)HlHh@@ 6 LMMMi}NOEO%NТ U O¥B)L­д ԍ5 ԍ41ԭ0ԭ/ԭoЭll8l)ԢXEO%Ni} ԭԢ U R¢ U&)+>)2+2m-+ ɟ ɃɄɔ)? ҍL+i}JJJJy{)xzЍЍҝpt ҢxJJJ}*|ʈL.l&l(`i}` - -`hhh@x/j 'D" x=\>ɓ?%ȩxآ qĩRFi}F# `eD" j vʩ)\=>%?i}R'S) 0b%Kĝ.ĝ 5XL j S QLvʩLPర  )ĩBHDi}ĝE J VL n ~ƥj 9D )ll l`P0Z@ESK BOOT ERRORE:,0i}­j l ĭ ӥ))ө(I I`}`ӝi}Нԝ<өө8Ӎөөө<Ӎӭӭө"ҩҍҩ(ҩ `67  i}, < L n e k Pn8ɍ9 `` )3L;ƩS S0!   Y >ƭ`@BCi}  iiA  Y >ƭЬ Y )ư ; `BiCill =ĊDE BHLVi}LzRLS )'LL ` l$LLƥ  `lF`1F!@PWi}S  Y`S :ǠF! :Ǡȱȱ򈈌 ``3i} Ǡ9 Ǡ/E &*ȍȍE3 Ǡ 3` Ǡ, Ǡ"Emm`li}l3 sJjK J}K}mEHmh8Hh Hh hi}h`8H3m6m7h6LPm6m76m6676m6`m6m76}6`H3jhm6m7i}6`mmm6ǒȒȒȒmmȵȵǕǩD)LHHѭɀ ɑ H`LHG i}H hH qhB`jHH ʍH hHhh@LɠLɠLɠLɠ Lɠ L H`G=!i}H` H HLM`LMBHB HH ɐ LhhLʠHhBLMM`hh̀@ .M  .L i}.@ L\L,/!$serial Ӎh`h`ӱHh`ӑ`ӱ2`ӑ2` v Ljli}1 e j s vʘ` j S vʘ`BL8 vʩ2Lj vʭё2 Ljʭ ɲ j U vl"H,pH :Uhhli}"!23("3\6/)#%qJiI`8թբ<Սթ0թթ4ՠ`X`)!xɛi} թ4<XLˠX`X`H Ъ`1Y@X v *L$̩̍i}թ թթԅ$%x 08 01!E ̅" ̅# 0 ! !"#` `l)XIXi}@XhhL$%%Xՠ`` ψϝP Ϩ@PP)iʠ @)_Pʈi}``P`% )P`0 <Ϡ`XE  `A#)1i}801`SЖ) )`BЭѠ`/,ΝLHxH)ө`hhX i}`# [Ω LS l$)d1(1ϝm01i01 Ϩ@)) i} )iʠϙ ʈ`)5xϪ@) e ʽ@)e Hi h 8 X`  cϩ0թ`թ4թ@i}խ)) 0@` cϹP)  v)թ<թ4Ո` v) )`H0թoթ4h`&%#"  i}pPB -- --.--.-- --:--:--  Lw2/- $isk!2'32o"ue %i}# 2$߿ээ э эѩээ ѩээ э ``e`+Pѩ ѩѭэa ѭэb ѭэc ѭi}эd`````)`+P` hP b a# ѩѭ  ѭ Ѱ PLP ѩѭ  ѭ ѐ эѭi}) PLPLQc ѭdѭa b #  Im э ѐab[ эcэd Ɂ6LQ Q23 ʠi}` Qэf Qэg Q` Q Q`23 ʠ` `)` 3PUX( S'P XP SȹR0i}Xx S%#$ эѽ+PѭɀAɂ= ѭх" ѠXȥ#8XȩX## ёX "P S zWH i}hLw2 LR`ʽU)? A%`+Pѩ ѭ&hj B VB Ve1Y@XT`eXi}XY`[`[09LʢH2UA A0[h [0ǘ 0:; < =x[ҩi}ҩ605:23 44 S234 5, S T,P 9Tҥ T0X`# U ʅ1  i} T 35451 T) TLT1 T U3545 T1` 0LS0,06LS(i}Ү[LSjj)?j) T U< TAC Eв0l&T'L\) ߍҩҭҍ )  `LlTH)i}ҩh Үe1i1`ҍ ҩ(ҩҩ`?@HHHi7e) g?ɋ SLUɨ:ɪ6ݫU iɪɨi} ҍihhh`ʎ` hPLUe hP ̩ҥ L}U35ix"ԩЩ Щ ԩԩԩW W sW)i} LU LU?a VLU X@` X@ LU:d V LU ILU%b Vi} wȥ .wLU V sW `hhLU4Ff֢ݟWȽW&i}б'`d V TW TW }$ W  } TW  c$a`HJJJJ ih) ii}`) )) `ppppBWpBAW2350?:*8!"#$%&-)#2/-/. 2$ ; !$*"7#[= J`i}i@`` (j`L"r ۰9 Hڢ D ۰!H hم٦0hL`.Eh+-X i}7H ۰H ehe ۥ Iihe+- ې08H*hj ۥiD ܰ  ` i}Qک0()?(E$8? p .L L٩` p 8逮0iE ܄ 8i}-+ ܢ8 i H h ܭ0 ii ܠ-`ԅՅ D&uԕةBLܩ0fCb8i}@?i ZڰS ZڰF ZڰAee2 ei$  iiԥ`8`Ԡ``&&i}`I))8Դ0 >E0uذLܩ :ܩLܢ8LܥI8ՕLi}E> 8@8e08 ܥ)0 LڥJJJJ0 L bץL D`8` 8i@0 LNۢՕ 8i}ؐ ٠8ؐ е bL ۤȄ` `80 `H ې.+-h8` i} . ېh`ՠ66666&`ڢ.`)q` D`ʈi}e` ԕ` 8JJJJ ܵ) . ` 0` .0ʽ` ۥ)`8`i}E)F)`ԅ ( ۥ) 4 D`ߠߠyʈ``` i} ݦ - ڰ(ii fڰ  0````ԕ` i}ڰԅ)8@0&j ٥ԅX ݢ `ک M @ ڥ#ji@0 ڥ ݢ i} (`8`==W3>Tvb>2b'?h`06?2'A?%C4Vu?f'70P@U??CBH@ ݦ fڢ ݢ ݦ `ڢi} (`0L8`@ ) (ۢf ޢ ک r @ݢ ڢl f ݩեIi}i $ԅ fڥ (`@"wf?P?IWQpIG?9 Wa9cU? 0d? 9`?BXGB?7?()q?D>DIh8E?hi}yx? )D?@ (1V?wD3331??xS4ԅ8Lfffffff>`<|fl0fF68of;i}p88pf< 80 0 ~~`0 0```nf>ff~fff~~f<flxxlf`````~cwkccfv~~nfi}8pp8?ww<~~~<i}x`x`~<~~<0~0 ~ <~~<<>f>``|ff|<```<>ff>i}>ff>|``|fff8<<``lxlf8<fkc|ffffff>|f```>`<|~i}ffff>fff<ck>6f< x~ 0~<~~<~x|nf8x8-I,Ln-Lni},,Lndˈ˅ː˅˅LYLLLLL3LrLLL\LL LL#LLLLL#LPLLLɕɚɟɤɩL ɢi}_j 3PLhP`@۝FGiɀ``/.)Lp@ " qLp )0i}"%*H_vL Lp' "  ,&-'Lr Lp#  'ۅ&Lr i} 氥 .@ Lr"%*Lp () /Lr /0A$ ") /ɛ L ۥ") /0 /ɛ󩉅# $ i} Lr"%*Lp ()/($/  (0")/ɛ()ۥ") Lr#.D$E% @ /.i}#` ",-*稱,ȱ,-,`()(()`$%$`$%`.8H((I))` #`-H,H.`8$10 !i}!$ ! 8` ` %JKJqJ&JKJ V O- `mm8i} N Ln 08 ݐH  h LYO@@ʎji}LEǮ}` 38` Q LY&@JKJȱJ`i}8`JK V8( ]'JȭJJKJJ  (8`( JȑJqJȭqJJ VˠJ`Jii} KilLr ];JHKHJKDJqJ VJȱJhKhJJJ`hh8`L3ɩ<ө<ө2A`B`Li} (ҩmi:; < =:2i4354 ?ΜL"  / ? i},p? ?00ν0L B0`?>2i435< 0>A!CE000Ɋi}?0`0 1;:2 ҅1L: `H232435; 1 ҩ;  hh@2 e1i1L; :)i}h@1890 @<ӥL9`0`Hҍ 00) 08 109hh@ Ҡ2e1i1232435i}ޥ<<Щ82m43m 5`2̍ҩ b 0 4ӭ Lb 0 4ӭi} = 0<L*`-2 ` Ҡҍ2ҩ% LV-2 2ҍ ҩ% ҩ(ҢAi}Ҭ`ҍ`%Ң`jj)?j)`,  7` .  . 8 8i} b8}mJJJ 8)i 8}}`|08|`b}`Lx%) Ԥ   i}[XL')0 Ԥ ҭҭҩҭ2ҩU2ȑ212i23i3X` <ө<ө0XL*&i}'x \X`CT euxd   4dd //__aaaa a ''OOAAAA A  i}((PP@PPP(( 00`` 0 @ HH"0"0hi}h8`hh8`hh`$! ` %&'.M$L`HH)  hh`0.@ 0 )0hh'i}H&H`Lj@Qyz`a`+)*)*WLT̍k/Lҩ@,n či}ԩd{j`WMQje( zo)?g jjj)g z odXeYi} z x]de edheiA pfW  9*)3n  ij p` pB ief-f-W nj} "QQ pW& ]j8 p pQ @ pQ pY pX pQ @ pp pp pd0e1p pde0hȭ1hj}L `*) R" //L j L d-FoJ`} L ɛ aL L j}TZ****))I Fo L-PI1dPd` ]W I LL&LȩL`,n@ԩn΍L j}b k4TlUm Lɛ bcq VL\  lTmUkk L0 Lb a LLbld b   < j} Lb i- de Lb*Joe| бy0LɀɁ Ij}ɂ  Ƀ@ИɄLɅ LLɉI LɎɊ| `L*ɒ Ɏr&|@aj}{ |L# < ML򩀍`TʆTL TTͿUU0RSULUUSRL dddeejj} cmTVl`cR!UR # UST  L UR e Xc ]LcL>cLJ L } cH hc }j}H }hL Wλ0TL L dheicH hcTͿ hڠh  WL8 RU L QTT8 [ix( fhdgsaLj}J:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHDGSA {   ` }j}HHӭ ImɃIm )&= Ҫɟ I)?.M+//hj}hh@!ϭkk п)Lm/͍/HMO-N ԍh@L̍`(k թih`R j}8LIXcLonmȥ ҭkҩ| L) `I@onmn8o  mj}nh)ni ```H) եhLxը))hiɛ X`"$ &\,k` J*) xHj})*h*ՌkXL   `` ` P`(``*) i`i`*h`o8nj`j}ll)H hh@l)j`oh)ՙon8o` m`) `)`j}NܭR j}S8` 3Pfga b hP`+Pѭ  LP`23f2ȭg2ȩ2ȩ2`XBBj}l,` 3Pfga b hP`+Pѭ  LP`23f2ȭg2ȩ2ȩ2`XBBh ABBUC # 42LCD*.*, LCD2*.*von Roland BuehlerKURZANLEITUNG ARGS-LCD************************.SRC Sourcetexte fuer ATMr!}AS IILCD**Programme fuer LCD mit Steueradresse: $D510-3LC**Steueradresse: $D110-3LC/LCDMINI.**A:-Handler in Seite 6,r"} reine Ausgabe, kein Scrollen der AnzeigeLC/LCD600.**A:-Handler in Seite 6, Ein- und Ausgabe, Scrollen des DisplayLC/LCr#}D8000.**A:-Handler ab $8000, Ein- und Ausgabe, Scrollen der Anzeige, Verschieben durch CursortastenBEDIENUNG:Laden ueber Dr$}UP. Evtl. Meldung auf LCD "ARGS-LCD Ready".Zurueck ins Basic.OPEN #1,8,0,"A:" (LCDMINI)OPEN #1,12,0,"A:" (LCD600, LCD8000r%})ANWENDUNGSBEISPIELE:RECHNER.BASLCDTEST.BASLC/LCDTIME.**Echtzeituhr im VBI fuer Display und ARGS-RTCLCD.BASBasic-Prr&}ogramm zum Ansteuern der LCDDas Kopieren der Disk und der Nachbau der Schaltung ist jedem erlaubt.Die Rechte bleiben aber'}r bei mir bzw. der ARGS.Haltet Euch bitte an die Steueradressen, wenn Ihr die Schaltung nachbaut.Dann ist auch in Zukunft dr(}ie Zusammenarbeit mit anderen Erweiterungen gewaehrleistet.Roland BuehlerEngelgasse 2172348 Rosenfeld-Bickelsbergkunft dpv************************************ *MINIHAENDLER FUER ARGS LCD-DISPLAY* * HARD- u. SOFTWARE v. RoBue * * 12v*}.12.1993 * ************************************ * Kann nur Zeichen auf LCD ausgeben * und LCD loeschen * Handlerv+}name: "A:" ORG $0600 PACTL EQU 54546 PORTA EQU 54544 PBCTL EQU 54547 PORTB EQU 54545 PHENTV EQU $E486 TIMER EQv,}U $14 DLEFT EQU 24 DRIGHT EQU 28 CLEFT EQU 16 CRIGHT EQU 20 FUNCTION EQU 56 DON EQU 15 DCLEAR EQU 1 CMOVE EQU 4 START Pv-}LA BASIC * LDX #'A A:-HANDLER LDA #TABELLE:H EINTAGEN LDY #TABELLE:L SEC JSR PHENTV BCC STAv.}RT1 RTS KEIN EINTRAG * START1 LDA #48 PIA UND STA PACTL DISPLAY STA PBCTL INITIALI- Lv/}DA #255 SIEREN STA PORTA STA PORTB LDA #52 STA PACTL STA PBCTL LDA #FUv0}NCTION 8BIT JSR BEFEHL LDA #DON LCD AN JSR BEFEHL LDA #DCLEAR LCD LOESCHEN JSR v1}BEFEHL READY LDY #0 READY READY1 LDA TEXT,Y AUF LCD BEQ ENDE AUSGEBEN JSR ZEICHEN LDX #255 WAv2}RTEN DEX BNE WARTEN INY JMP READY1 ENDE RTS TEXT ASC ' ARGS-LCD Ready' DFB 0 TABELv3}LE DFW OPEN-1 Handlertabelle DFW CLOSE-1 DFW GET-1 DFW PUT-1 DFW GET-1 DFW GET-1 JMP GET DFB 0 OPEN v4} LDA #DON JSR BEFEHL LDA #DCLEAR JSR BEFEHL LDY #1 RTS CLOSE LDY #1 RTS GET RTv5}S PUT TAX CPX #125 CLEAR? BNE PUT1 LDA #1 JSR BEFEHL LDY #1 RTS v6}PUT1 CPX #155 EOL? BNE PUT2 LDY #1 RTS PUT2 TXA JSR ZEICHEN LDY #1 v7} RTS BEFEHL STA PORTB LDA #4 BEFEHL1 STA PORTA LDA #0 STA PORTA WAIT LDY TIMER v8}INY INY INY WAIT1 CPY TIMER BNE WAIT1 RTS ZEICHEN STA PORTB LDA #v9}5 STA PORTA NOP LDA #0 STA PORTA NOP NOP RTSv:} STA PORTA NOP NOP RTSt3hAY8 `0ՍթՍթ4Սթ8   I L7` ARGS-LCD ReadyhuxyxxLy  `z<}``} `` `թթդ`թ` ARGS-LCD ReadyhuxyxxLy  `xO******************************** *HAENDLER FUER ARGS LCD-DISPLAY* * Soft- u. Hardware by RoBue * * 14.12.1993 ~>} * ******************************** *Funktionen: Ausgabe * Loeschen (125) * Scrollen bei Ausgabe ~?}* GET-Routine vom K:-Handler *HANDLERNAME : "A:" ORG $0600 PACTL EQU 54546 PORTA EQU 54544 PBCTL EQU 54547 PO~@}RTB EQU 54545 PHENTV EQU $E486 TIMER EQU $14 DLEFT EQU 24 DRIGHT EQU 28 CLEFT EQU 16 CRIGHT EQU 20 FUNCTION EQU 56 DON EQU 1~A}5 DCLEAR EQU 1 CMOVE EQU 7 CSTOP EQU 6 CHOME EQU 2 START PLA BASIC * LDX #'A A:-HANDLER LDA #TABELLE:H EINTAGEN LD~B}Y #TABELLE:L SEC JSR PHENTV BCC START1 RTS KEIN EINTRAG * START1 LDA #48 PIA UND ~C} STA PACTL DISPLAY STA PBCTL INITIALI- LDA #255 SIEREN STA PORTA STA PORTB ~D}LDA #52 STA PACTL STA PBCTL LDA #FUNCTION 8BIT JSR BEFEHL LDA #DON LCD AN ~E} JSR BEFEHL LDA #DCLEAR LCD LOESCHEN JSR BEFEHL EXIT RTS TABELLE DFW OPEN-1 Handlertabelle DFW CLOSE-~F}1 DFW GET-1 DFW PUT-1 DFW EXIT-1 DFW EXIT-1 JMP EXIT DFB 0 OPEN LDA #DON JSR BEFEHL LDA ~G}#DCLEAR JSR BEFEHL LDA #0 STA CURSPOS STA LINE LDY #1 RTS CLOSE LDY #1 RT~H}S GET JSR $F2FD CPY #1 BNE GETEND STA GETWERT JSR PUT LDA GETWERT GETEND RTS GETWERT DFB 0 ~I}PUT TAX PUT0 CPX #125 CLEAR? BNE PUT1 PUT00 LDA #1 JSR BEFEHL LDA #0 STA CURSPOS STA LI~J}NE LDY #1 RTS PUT1 CPX #155 EOL? BNE PUT2 LDA #CHOME JSR BEFEHL LDY #0 ~K} STY CURSPOS STY LINE INY RTS PUT2 JSR SCROLL AUSGABE TXA JSR ZEICHEN ~L}INC CURSPOS LDY #1 RTS CURSPOS DFB 0 LINE DFB 0 * SCROLL-ROUTINE FUER DISPLAY * ab Position 12 wandert Di~M}splay * ab Position 36 steht es wieder * beim Ruecksprung in Zeile 1 * wird Display geloescht SCROLL LDY CURSPOS CPY ~N}#40 BNE SCR2 LDA LINE BNE PUT00 INC LINE SCR LDA #25 STA CURSPOS SCR1 DEC CURSPOS BEQ SCREND LDA #DRIGHT JSR~O} BEFEHL JMP SCR1 SCR2 CPY #36 BPL SCREND SCR3 CPY #12 BMI SCREND LDA #DLEFT JSR BEFEHL SCREND RTS * ~P}PROGRAMMIEREN DES DISPLAYS * Wert steht im Akku BEFEHL STA PORTB LDA #4 BEFEHL1 STA PORTA LDA #0 ~Q} STA PORTA LDY TIMER INY INY WAIT CPY TIMER BNE WAIT RTS * AUSG~R}ABE EINES ZEICHENS * AUF DAS DISPLAY * Wert steht im Akku ZEICHEN STA PORTB LDA #5 STA PORTA NOP~S} LDA #0 STA PORTA NOP NOP RTS~T} RTS|EhA68 `0ՍթՍթ4Սթ8   `EZ]o44L5  ``  o po`}V} ` `  `(Υ L$ 0 `թթդ`թՂW}` `  `(Υ L$ 0 `թթդ`թՀ******************************** *HAENDLER FUER ARGS LCD-DISPLAY* * Hard- u. Software by RoBue * * 14.12.1993 Y} * ******************************** *FUNKTIONEN: Textausgabe * Loeschen (125) * Scrollen bei AusZ}gabe * Cursorbewegungen (Pfeiltasten) * Texteingabe ueber K:-Handler *HANDLERNAME: "A:" ORG $8000,$A8[}00 PACTL EQU 54546 PORTA EQU 54544 PBCTL EQU 54547 PORTB EQU 54545 PHENTV EQU $E486 TIMER EQU $14 DLEFT EQU 24 DRIGHT EQU \}28 CLEFT EQU 16 CRIGHT EQU 20 FUNCTION EQU 56 DON EQU 15 DCLEAR EQU 1 CMOVE EQU 7 CSTOP EQU 6 CHOME EQU 2 START PLA B]}ASIC * LDX #'A A:-HANDLER LDA #TABELLE:H EINTAGEN LDY #TABELLE:L SEC JSR PHENTV BCC START1 ^} RTS KEIN EINTRAG * START1 LDA #48 PIA UND STA PACTL DISPLAY STA PBCTL INITIALI- LDA #255_} SIEREN STA PORTA STA PORTB LDA #52 STA PACTL STA PBCTL LDA #FUNCTION `}8BIT JSR BEFEHL LDA #DON LCD AN JSR BEFEHL LDA #DCLEAR LCD LOESCHEN JSR BEFEHL a}READY LDY #0 READY READY1 LDA TEXT,Y AUF LCD BEQ EXIT AUSGEBEN JSR ZEICHEN LDX #255 WARTEN b}DEX BNE WARTEN INY JMP READY1 EXIT RTS TEXT ASC ' ARGS-LCD Ready' DFB 0 TABELLE DFW c}OPEN-1 Handlertabelle DFW CLOSE-1 DFW GET-1 DFW PUT-1 DFW EXIT-1 DFW EXIT-1 JMP EXIT DFB 0 OPEN LDA #DONd} JSR BEFEHL LDA #DCLEAR JSR BEFEHL LDA #0 STA CURSPOS STA LINE e} LDY #1 RTS CLOSE LDY #1 RTS GET JSR $F2FD CPY #1 BNE GETEND STA GETWERT JSR PUT LDA GETWERT GEf}TEND RTS GETWERT DFB 0 PUT TAX CPX #29 CURSOR? BEQ DOWN CPX #31 BEQ RIGHT CPX #28 Bg}EQ UP CPX #30 BNE PUT0 JMP LEFT PUT0 CPX #125 CLEAR? BNE PUT1 PUT00 LDA #1 JSR BEFEHL LDA #0 h} STA CURSPOS STA LINE LDY #1 RTS PUT1 CPX #155 EOL? BNE PUT2 LDA #CHOME JSRi} BEFEHL LDY #0 STY CURSPOS STY LINE INY RTS PUT2 JSR SCROLL AUSGABE TXA j} JSR ZEICHEN INC CURSPOS LDY #1 RTS CURSPOS DFB 0 LINE DFB 0 * CURSOR-MOVE-ROUTINEN * Pfeilk}tasten UP LDA LINE BEQ UPEND LDX #40 UP1 LDA #CRIGHT JSR BEFEHL DEX BNE UP1 DEC LINE UPEND LDY #1 RTS DOWN LDA LINE l}BNE DOWNEND LDX #40 DOWN1 LDA #CRIGHT JSR BEFEHL DEX BNE DOWN1 INC LINE DOWNEND LDY #1 RTS RIGHT LDA #39 CMP CURSPOS m}BEQ RIGHTEND JSR SCROLL LDA #CRIGHT JSR BEFEHL INC CURSPOS RIGHTEND LDY #1 RTS LEFT LDY CURSPOS BEQ LEFTEND DEC CURSPOn}S JSR SCROLLR LDA #CLEFT JSR BEFEHL LEFTEND LDY #1 RTS SCROLLR CPY #13 BMI SCRREND CPY #37 BPL SCREND LDA #DRIGHT JSo}R BEFEHL SCRREND RTS * SCROLL-ROUTINE FUER DISPLAY * ab Position 12 wandert Display * ab Position 36 steht es wiedep}r * beim Ruecksprung in Zeile 1 * wird Display geloescht SCROLL LDY CURSPOS CPY #40 BNE SCR2 LDA LINE BEQ SCR JMP PUT00 q} SCR INC LINE LDA #25 STA CURSPOS SCR1 DEC CURSPOS BEQ SCREND LDA #DRIGHT JSR BEFEHL JMP SCR1 r} SCR2 CPY #36 BPL SCREND SCR3 CPY #12 BMI SCREND LDA #DLEFT JSR BEFEHL SCREND RTS * PROGRAMMIEREN DES DISPLAYS * Wert ss}teht im Akku BEFEHL STA PORTB LDA #4 BEFEHL1 STA PORTA LDA #0 STA PORTA LDY TIMER t} INY INY WAIT CPY TIMER BNE WAIT RTS * AUSGABE EINES ZEICHENS * AUF DAS DISPLAu}Y * Wert steht im Akku ZEICHEN STA PORTB LDA #5 STA PORTA NOP LDA #0 STA PORTAv} NOP NOP RTS LDA #0 STA PORTAZhAY8 `0ՍթՍթ4Սթ8 o o oI L7` ARGS-LCD Readyh}GGLH o oۊx}܀``  `Zk=L} oۀ܀` oۀ܀` = ۀ`܀ ( o܀`܊y} ( o܀`'ۀ = oۀ`ۀ ۀ / o` 0 %7 o`ۀ(܀L܀ۀۀ oLT$ 0 o`z}թթդ`թ`o` 0 %7 o`ۀ(܀L܀ۀۀ oLT$ 0 o`6 } ##@@A:##@@K:)@(*@|}2 @0 D:LCDTEST.BAS@A:##@@K:)@(*@#023C@H LCD-DISPLAY LTN211Pro Zeile sind 40 Zeichen!!moeglich, wobei aber nur 16~}sichtbar sind.""Nach 40 Zeichen wird jeweilsin die andere Zeilegesprungen.dINITIALISIERUNG PIAn'B}EF@H'BEG@Hx'BEDAU'BEEAU'BEF@R'BEG@RINITIALISIE}RUNG LCD'BEE@V A'8-BITCBEE@ ACDISPLAY EIN, CURSOR EIN, BLINKEND0BEE}@ A0CURSORRICHTUNG/BEE@ A/DISPLAY CLEAR##@@K:)}@#"A& A# A#"AU A# A#"A% AP# ABE}E A  A DBS=BEE@ A=Cursor 1 Zeichen nach links7BEE@2 A }7Leerzeichen schreiben+BEE@ A+siehe 510$& CLEAR0BEE@: AD}$X RETURNbBEE@ Al$ BEFEHL*BED@'BED*$ ASCII*B}ED@'BED*$ D:LCD.BAS*$ ASCII*Bd************************************ *MINIHAENDLER FUER ARGS LCD-DISPLAY* * VERSION 2 * * HARD- u. S}OFTWARE v. RoBue * * 06.12.1994 * ************************************ * Handlername: "A:" ORG $}8000,$A800 PACTL EQU $D512 PORTA EQU $D510 PBCTL EQU $D513 PORTB EQU $D511 PHENTV EQU $E486 TIMER EQU $14 CONSOL} EQU $D01F DLEFT EQU 24 DRIGHT EQU 28 CLEFT EQU 16 CRIGHT EQU 20 FUNCTION EQU 56 DON EQU 15 DCLEAR EQU 1 CHOME EQU 2 CMOVE E}QU 4 START PLA BASIC * LDX #'A A:-HANDLER LDA #TABELLE:H EINTAGEN LDY #TABELLE:L SEC JSR PHENTV} BCC START1 RTS KEIN EINTRAG START1 LDA #56 PIA UND STA PBCTL INITIALI- LDA #48 LDA} #255 STA PORTB LDA #0 STA PORTA LDA #60 STA PBCTL LDA #52 STA PACTL LDA #0 STA PORTB } LDA #FUNCTION 8BIT JSR BEFEHL LDA #DON LCD AN JSR BEFEHL LDA #DCLEAR LCD LOESCHEN } JSR BEFEHL LDA #CHOME JSR BEFEHL READY LDY #0 READY READY1 LDA TEXT,Y AUF LCD BEQ ENDE AUSGEBEN } JSR ZEICHEN INY JMP READY1 ENDE RTS TEXT ASC 'LCD is Ready' DFB 0 TABELLE DFW OPEN-1 Handlertabelle DFW C}LOSE-1 DFW GET-1 DFW PUT-1 DFW CLOSE-1 DFW CLOSE-1 JMP CLOSE DFB 0 OPEN LDA #DON JSR BEFE}HL OPEN1 LDA #DCLEAR JSR BEFEHL OPEN2 LDA #CHOME JSR BEFEHL LDY #0 STY ZEILE STY SPALTE CLOSE LDY #1 RTS } PUT TAX CPX #125 CLEAR? BNE PUT0 JMP OPEN1 * PUT0 CPX #126 DBS? BNE PUT1 NEIN -> LDA SPALTE SPALTE0? BEQ PU}T01 JA -> LDA #CLEFT JSR BEFEHL LDA #32 JSR ZEICHEN LDA #CLEFT JSR BEFEHL DEC SPALTE PUT01 LDY #1 RTS * PUT1 CPX} #155 EOL? BNE PUT2 NEIN -> LDY SPALTE LDA ZEILE ZEILE0 ? BEQ PUT11 JA -> *** JSR HALT DEC ZEILE JMP LEER PUT}11 INC ZEILE JMP LEER ZEILE AUFFUELLEN * PUT2 CPX #28 CURSOR? BNE PUT21 UP LDA ZEILE BEQ UPEND LDX #40 UP1 LDA }#CRIGHT JSR BEFEHL DEX BNE UP1 DEC ZEILE UPEND LDY #1 RTS * PUT21 CPX #29 BNE PUT22 DOWN LDA ZEILE BNE DOWNEN}D LDX #40 DOWN1 LDA #CRIGHT JSR BEFEHL DEX BNE DOWN1 INC ZEILE DOWNEND LDY #1 RTS * PUT22 CPX #31 BNE PUT23 RIGHT LDA }#15 CMP SPALTE BEQ RIGHTEND LDA #CRIGHT JSR BEFEHL INC SPALTE RIGHTEND LDY #1 RTS * PUT23 CPX #30 BNE PUT3 LEFT LDY SP}ALTE BEQ LEFTEND DEC SPALTE LDA #CLEFT JSR BEFEHL LEFTEND LDY #1 RTS * PUT3 TXA JSR ZEICHEN INC SPALTE * PUT4 LDY SPA}LTE (SICHTBARES) CPY #16 ZEILENENDE? BNE PUTEND NEIN -> LDA ZEILE ZEILE1 ? BEQ PUT41 NEIN -> *** JSR HALT JSR LEER ALL}ES LOESCHEN DEC ZEILE JMP PUTEND PUT41 JSR LEER INC ZEILE PUTEND LDY #1 RTS * ZEILENENDE-ROUTINE * fuegt nach} RETURN oder am * Ende des sichtbaren * Displayfensters * (= 16 Zeichen) * Leerzeichen bis zum * eigentlichen Zeilenende * (=} 40 Zeichen) ein LEER LDA #32 JSR ZEICHEN INY CPY #40 BNE LEER LDY #0 STY SPALTE INY RTS HALT LDA CONSOL AND #%00}000001 BNE HALT RTS SPALTE DFB 0 ZEILE DFB 0 GET JSR $F2FD CPY #1 BNE GETEND STA GETWERT JSR PUT } LDA GETWERT GETEND RTS GETWERT DFB 0 * PROGRAMMIEREN DES DISPLAYS * Wert steht im Akku BEFEHL PHA LDA #0 STA P}ORTB RS->BEFEHL LDA #52 STA PBCTL WRITE JSR WAIT LDA #60 STA PACTL * JSR WAIT PLA AND #%01111111 STA PORTB * JSR W}AIT LDA #52 STA PACTL LDA #0 STA PORTB LDA #60 STA PBCTL RTS * AUSGABE EINES ZEICHENS * AUF DAS DISP}LAY * Wert steht im Akku ZEICHEN PHA LDA #128 STA PORTB LDA #52 STA PBCTL JSR WAIT LDA #60 STA PACTL} * JSR WAIT PLA ORA #%10000000 STA PORTB * JSR WAIT LDA #52 STA PACTL LDA #0 STA PORTB LDA #60 STA PBCTL RT}S WAIT LDA #0 STA W WAIT1 INC W BNE WAIT1 RTS W EQU 0RTB LDA #60 STA PBCTL RTZhA^8 `8թ0թթ<թ4թթ8    Q LD`LCD is Readymz}~}}L~  }```} `` `Hթ4 <h)թ4թթ<`Hթ4 <h թ4թթ<`}``` `Hթ4 <h)թ4թթ<`Hթ4 <h թ4թթ<`************************************ *MINIHAENDLER FUER ARGS LCD-DISPLAY* * VERSION 2 * * HARD- u. S}OFTWARE v. RoBue * * 06.12.1994 * ************************************ * Handlername: "A:" * ASCII}-Ausgabe (7-Bit) * EOL (155) -> Ruecksprung an Anfang * CLR (125) -> Loeschen, * Ruecksprung an Anfang ORG $06}00 PACTL EQU $D512 PORTA EQU $D510 PBCTL EQU $D513 PORTB EQU $D511 PHENTV EQU $E486 TIMER EQU $14 CONSOL EQU $D0}1F DLEFT EQU 24 DRIGHT EQU 28 CLEFT EQU 16 CRIGHT EQU 20 FUNCTION EQU 56 DON EQU 15 DCLEAR EQU 1 CHOME EQU 2 CMOVE EQU 4 S}TART PLA BASIC * LDX #'A A:-HANDLER LDA #TABELLE:H EINTAGEN LDY #TABELLE:L SEC JSR PHENTV } BCC START1 RTS KEIN EINTRAG START1 LDA #56 PIA UND STA PBCTL INITIALI- LDA #48 LDA #255 } STA PORTB LDA #0 STA PORTA LDA #60 STA PBCTL LDA #52 STA PACTL LDA #0 STA PORTB LDA #}FUNCTION 8BIT JSR BEFEHL LDA #DON LCD AN JSR BEFEHL LDA #DCLEAR LCD LOESCHEN JS}R BEFEHL LDA #CHOME JSR BEFEHL READY LDY #0 READY READY1 LDA TEXT,Y AUF LCD BEQ ENDE AUSGEBEN JSR ZE}ICHEN INY JMP READY1 ENDE RTS TEXT ASC 'Ready' DFB 0 TABELLE DFW OPEN-1 Handlertabelle DFW CLOSE-1 DFW GET}-1 DFW PUT-1 DFW GET-1 DFW GET-1 JMP GET DFB 0 OPEN LDA #DON JSR BEFEHL OPEN1 LDA #DCLEAR } JSR BEFEHL OPEN2 LDA #CHOME JSR BEFEHL CLOSE LDY #1 RTS GET RTS PUT TAX CPX #125 CLEAR? } BNE PUT1 JMP OPEN1 PUT1 CPX #155 EOL? BNE PUT2 NEIN -> JMP OPEN2 PUT2 TXA JSR ZEICHEN } LDY #1 RTS * PROGRAMMIEREN DES DISPLAYS * Wert steht im Akku BEFEHL PHA LDA #0 STA PORTB RS->BEFEHL LDA #52 }STA PBCTL WRITE JSR WAIT LDA #60 STA PACTL * JSR WAIT PLA AND #%01111111 STA PORTB * JSR WAIT LDA #52 STA PACTL LDA} #0 STA PORTB LDA #60 STA PBCTL RTS * AUSGABE EINES ZEICHENS * AUF DAS DISPLAY * Wert steht im Akku ZEI}CHEN PHA LDA #128 STA PORTB LDA #52 STA PBCTL JSR WAIT LDA #60 STA PACTL * JSR WAIT PLA ORA #%1000}0000 STA PORTB * JSR WAIT LDA #52 STA PACTL LDA #0 STA PORTB LDA #60 STA PBCTL RTS WAIT LDA #0 STA W WAIT1 }INC W BNE WAIT1 RTS W EQU 0 TA PORTB LDA #60 STA PBCTL RTS WAIT LDA #0 STA W WAIT1 9hAW8 `8թ0թթ<թ4թթ8    Q LD`ReadyfuxyxxLy   }``}LlLq `Hթ4 <h)թ4թթ<`Hթ4 <h թ4թթ<``{AFUNKTIOFNXXYYXIYIXTOYSIDTICTICFXFYFLAZAHMODUXYAXYQSSSBARB}ARBARBARRABXXWERYWERDYDSTEIGUNSTEIGDXSTEISSTANXWERXXSDRFYFYXWERTXWERTITURBOLGDUMMFK}FK(D }@} !"#$%&'()*+,-.}/0123456789:;<=}>?@ABCDEFGHIJKLM}NOPQRSTUVWXYZ[@\]}^_dҠԠĭٛ##@@A:;@@,FUNKTIONSEINGABE}#(@>:A%,# A;;(@)RECHNUNG: ?@4A&}m(>:A%,"-@@7(1000 FUNKTION=:(=(F(CONTX-@jAB@m&0AB@}N AX A]*@A%b::(@(ERGEBNIS: l(@}6-D$ D:RECHNER.BASb::(@(ERGEBNIS: l(@1ABBUC # 43AUTORUN.BAS, *.HML(bitte mit TurboBasic laden)Die Himmelsuhr von Frans Nommensen aus den Niederlanden.Anger}egt durch STARCROS.TUR von Arne Niemuth hat Frans ein tolle Programm geschrieben. Die Anleitung wird innerhalb des Programms }ausgegeben.ARCROS.TUR von Arne Niemuth hat Frans ein tolle Programm geschrieben. Die Anleitung wird innerhalb des Programms XY! INIDISPLADIRECTORSELECTIOKEZZAAHULPEXTFLAOFFILEBDOPSLAKEUZINVERs; <=} ?A(@     @B B`@}>@i@@@A**** Ϡ ****.(+2P<PFPPPZ}"@'+d"@w%nIF KEY=155 THEN RUN HULP$x"AU+@%@( 6.6}.D1:(67B:,%@,.B:,!@ 6.7@ <@, 0 +67@<@,..+67@,.}<6-@&-@B:,&@& Ap@:7<,,"@26-67,.7%@)\5"@B6-%@ )!@ 56-@f5"@C6-&}@ ) @56-@ p6-P:'@ ,Pz -(7@<@,##="@')"@w)"AU}QTO @##@:7@<@,,!A'-@B:,6-@:7<,,&A(67<,.>:,޲}  -(7@<@,A&&6.7$@&@<$@, 6.-@B:,6.7<,$}6-@:,%A(.67<,.>:,8 B LQVT`##* SAVE als AUTORUN.BAS op ***j##* een autorun-diskette o}m ***t##* met TURMENU te openen !! **~T D:AUTORUN.BAS SAVE als AUTORUN.BAS op ***j##* een autorun-diskette oC99TITEINITIATIKEUZEMENKEUSVERWERKINPLXOYOXYPMLIMPXYBPOFZUSAMSCTK0TK1TK2TK3AMARGEX}QBPLANETARIUCONJUNCTIETIJDVERSCHITIERKREIINVOEBEREKENINGEPRESENTATIHALDATDSCHERBEGININFDMJDATUMINVOEDATI}NFEHCCCBEPALINGSCHRIKKELJAASTEKENBEBEREKENAANTALDAGEBEREKENTVERSCHIPOSITIEBEJMDJMDTEKEJGEENJAREMEERJAR}EBAANPARAMINIBAANPOSIPLANEETPODATUMPREKIESBEWEEDDDDDDIRRBEWEEKALENDEKESCREENDUMSCHERMHERSTEVRAAGSTELLINPLAAT}SCOORMINCONJBEREKENINDATAPRESENTATIREGEINPLAATTMACONJVOORESCONJVOORPVOORWVOORWNORPRINPLBCONJDATATABESTOPOFP}RINTOFVERDEWIAFDRUKKEKLAAKLAAMODINFORMAAMARGINVERSIANNORMAAMAAMARMAMARGTOET*>w?DE}@AAAA` @ @ ?XFA &  t@@1AuAAA}@@ UG@eB?i7AG((o(( P!&"}#@I$F%FX&Zm'F(H)mM*Q+@,@-B@.A/H0vI1@!2@}3A4I5I6^L7@8@9@:@;L<=A>M?DN@SPApPBA}C@D@!EAF@G@H@IAFJAKzOLOMPNQOQPLRQR}RA2SArTAU SV@WGVXVYA(Ze[;f\X]\^_]` ca}bcd^]efgh^ijkalmnQcodpfq}grhst@uvhwixjyz{Ol|}~} PPE(P2P<FFPTcTdOn]+@%@'A@9A A8KA}A0]AYxY0@@D1:HIMMLUHR.PICNC@U:@,AvY@^}AY@4'A@1M@N-@6?ZA^ EF:B2y,"@G}FQTOinit. PLANETARIUM SCHERM..9@<@,9@,9@,-6-A`6-@}-ZON COORDINATEN%-@@%Planet Data-@@"68<,- q qN IS PLANEET }NR V/A DE ZON;I RESP. OMLOOPSTIJD,SCHERMBAANDIAM,NAAM,STARTPOS OP 1983-4-21 (=Re.Kl/24 h.)87.9686, 11,109,0.205640"}224.701, 20,118,0.296380,365.242, 30, 69,0.5771536686.980, 48, 77,0.084742@4332.58, 88, 74,0.672833J1075}9.2,148, 83,0.581746Tinit. DAGBEREKENING^9@,;@,h-@@r"68,-| ))3}1,28,31,30,31,30,31,31,30,31,30,31 9@, baanparameterS9@,9@,Sscherm coordin. of in eclipti}ca-vlak in AE tov de Zon09@,0gemiddelde baandiameter in AE(-@@"$68,-( //0.3871,}0.7233,1.0000,1.5237,5.2026,9.5547-@e6-B/6-'@$/*** ZUSAMMENSTANDWINKEL ***,9@,},Conjunctie planetentellerTierkreis Strings11;@@,;@ ,;@@,;@ ,Screendump&&;@} ,;@,;@,L;A0,;A,,67@,.=67A,.L67@,.ss6.i̅ͅ΅υ}hhh)̥̅) ̩ͥ) |ͥ) ͩΥ) Ωϥ)  >ϥ)@ //67B:,%@,. ϩ}Х) `&Q0T:OD+ +AR@"(%(((+(N,,($ԠŠX}(( HIMMELUHRb(( ZUSAMMENSTAENDEl'('( DATUM DIFFERENZ IN TAGE vQTOH(/($Ʒ}ŠŠ3)6`HAR&@HbQTTO' +@'0@}@'0@'@P<P$P.P8="*"@BQLTV}O`226.(JHJHJHj6.Ҋt226.(ʀʀʷ}~6.҈ %%6-F:A`,%F:Aa,$AV!!:%@%@@v<%@}@f(8%@C:,<%@@y!!:%Ag%Ap@(%Ag@f(8%AhC:,- }@..Y$@7%@<%@,..YA$@7%@<%@, QT }OP PQT(O2YAV@v<C-@@?b8@<,8@<,'@ }C F9YAVAR+9YA A@ equinoctiumPQZTdOn%%Š͠ҭx'- }@!-@'-APQTO] @SH(@Gewuenschte Datumzahle einge }ben bitte: Jahr,Monat,Tag K(S ( ( (AR@'6-6-'6-, }@*@*"P:,,6-@controle maandnummer+@+(MONATZAHL nicht correct"!A*"}P:,"-@controle jaar*@*(JAHRZAHL nicht correct"P,?"@$68@,-@)'@<}68@,-@(?A6@@##@)@)@J\TA^Ah)@*8,*"P:,)-}@rcontrole daggetal|%@%(TAG nicht correct]b M@0-@)@)@L(D}atumeingabe nicht correct^ARb\ QTOSchrikkeljaar:SJ=1jL'@"P:'@,*}+'AP:'A,)'A"P:'A,,X-@[@g6-jAQTOPPPP}Q&T0O:]-B$+&,%A$+&,%&36-96-?6-E6-K6-Q6-]6-@D:@ 6-6÷}-6-6-$6-*6-76-6@:ANQXTbOl*8@,-@(*-Ae$+&,v7!@%-@}&@0-%8,4 7A7!@%-@&@0-&8,4 7A4 -%&&-@$P:'@,}4-%@A > -P"@--%@0A>-%@A? " P@PAQTO }-P1#"@* @*!@1-%@QTO - P*"@* @'-ɷ}%@*A  -*P4*"@*!@'-%@*A>QHTRO\ 6-$fQpTzO-}@@PP QTO))68,-^:'8@<,,%8@<,&8, &68,-8,%}@QTO3368,-8@<,$G:@$$8,,%&@ ;;68,-8@<,$E:@$$8,,'@}%&@ Q T$ O. P8 PB PL QV T` Oj -@@t Y8,8,>:8@<,,~ }  G6-A26-Ar'6-AGYA$  Q T O  @6-%@ (}P:%?P, @(6-%@ Y=:, Y=:, Y=:P:%?P,, Q T Oѷ} < 6-@ < ] ( [W(OGANG in TAG/SECUNDE, ZIFFERTASTE 0 3 8 20 55 150 400 1100 Menu }e[2 !!=k: 012345678<=:,,!<  F P !@6-&@Z )()(=GANGWECHSEL Š!}=HALTd >n Px P "k:G :,,"@%6-#}16- k:P<>:,,"@ ++:U:@,&A U:@,A2 @@Y( ҷ$} Ϡ Ϡ @@YAh(ӈӠӠӠ P P @ %k:M<>:,,"@%}%6- A" A, 6.6 @@ 6-6-@J AT ="^ Qh Tr O| /-@&}@#68,-8,/68,-8, $$68,-^:8,%J:,'8@<,, P 3 )Y8,8,>:8@<,,3@'}   P P Q T 9O9geeft de volgende kalenderdatum na EXP(V) dagen 6-%J:, % >!8,6-&(}8,%6-%@ )!@6-@)6-%@ P $"@$68@,-@) @68@,-@()} A& A0 ?: G6-A26-Ar'6-AGYA$ D PN QX TTO*}P6-"P"in eclipticavlak tov Zon6-<PP="@QTOC ++}A @1AAcCAAc(6-@(begin conj.datumregels"''(Zusammenstand wel,}cher Planeten?,<6((((Type m v M J S (zB.mv),@(J76-$68,-@7voor Aardecoord.T-}<^>"*AU)h6-X:mvMJS<>:,,r!|-@ 8,"6- A.}?&6-%@68,-&6-(>:, ="AU)!@9 @-(Mindest 2 Planeten bit/}te!96-=@(( Ab Datum?P/+@%@/0@@'0@@0}@'@G6-A26-Ar'6-AGYA$ P""Y 1} &'6-@6-A0'6-AV0P:""-&@@6@D22YAP%$@@>:8@2}<8,,,N X**Y@ĠbYAlY@$Ab:vQT3}'O'constellatie op gegeven datumPPP6-< 6-8,PP6-%@4}=8,"6-&@Q TO !!68,-8,$G:@$$8,,*!!68,-8,$E:@$$8,,4Q>5}THOR6-\88YA Š=HALT f>"6-pPz("A6}h*"%6-@(A"k: E:@$, 6-<+&@,!PA"@$6-M:8}++88,,&8@,,#@%+88,,&8@,,#@,$++88@,,&8@,,#@%+88@,,&8@,,#@9},,.kk6-++88,,&8@,,$+88@,,&8@,,%+88,,&8@,,$+88@,,&8@,,,'8AB:}6-&@L= ) E:@$,V2 E:@$, 6-@#@/6-2A`# E:@$, 6-@;}#Aj# E:@$, 6-@#AtP~k: }8@,,#@%+88,,&8@,,#@,$++88&@,,&8@,,#@%+88&@,,&8@,,#@,?},2oo6-++88,,&8@,,$+88&@,,&8@,,%+88,,&8@,,$+88&@,,&8@,,,'<QFTP@}OZ"*"dPn@xPAQTO("(Anfang Zusammenstandes6-%A}@,,Y@2 Y@2Y@rY@e:%?P,!YA(B}bis!6-@ @ PR=1 Zusammenstand EndeYAh YAhYAe:%?P,C}A"Q,T6O@6-J88YA Š =SCREENDUMP =MENUETH):,,"@hN:YA" E}>PBPN6-r@|%k:M<>:,,"%6-AQTO9U:@,C:,A +@F}POKE 82,0<PPP=QTO+&"@0'A'A G}@:@D'A@'A NAX9C:,U:@,AbQlTvO6-@PH}PPPQTO%%6-F:@,%AV$F:@,$6-F:AY,$AY.@I}.@@P:(@t(@1(@I P(@>:@$J}, @*AY4Q>THOR ( (Mal wieder abdrucken?\#(#(Bitte oder f)ٷK}pk:J<>:,,"@z6-6-@6-@(((AQTOAR@L}..(&Screendump fuer Printer wie GE TXP81OO..(&d.h. Centronics Interface, Graphicmode//('960 dots/8 inch line, pM}r.head 16 d.vert))( ***** ŠŠ *****)AR6-@QT$O.6N}-@D8<B5( (2(Wieviel Rand linker Seite? (0-)5(LV=*`6-$@j 6.=:,tO}: A(67@<@,.0:67@,.=:,~"6.000QTO++(# fuer SchwarzP}/Weiss INVERSION (Druck anfangen = Ԡ#(Jetzt bitte#)6-@%@%@2PQ}<6-F:B2y,5"@6-%@)!@56-="!A@3A R}=NORMAAL="@!A3A @=INVERSE ="@START6-@Q(T2OS}<-@9F44(@>:@u,>:A,>:,P!!-A6@Z"@T}d,,(@>:AU&F:%%$@@,,n@x$$(@>:F:%%$@@,,A (@ U}QTWTXOb!A@!6-l<vC +A @1AA2CAA2V}##(DIFFERENZ IN TAGE AB DATUM:6(3(((Im Gregorianischen Kalender, seit 1583)6(P 6-6-6-(BW}IS ZUM DATUM:(PPPP`/+@%@/0@@30@@@X}'@36-@YY@@ Y@dY@- YA*YADY}4YAh>YA=HYARYATAGE\Pf$$PRINT :? "Š =MENUE"p Z}GET KEYz**IF UINSTR("M",CHR$(KEY))=1 THEN EXIT="@QTD:HIMMLUHR.HMU"Š =MENUE"p cWmSCRKEA(dU +A@P1A@PCAR@U@n\};A ,pkk67@<@,.P ANLEITUNG ZU HIMMELUHR qWW]}67@<A@,.pr}0><l <0s}?3?  t} @lW@3; u}0?<,; 0 /+v}0?? 000V< w} Vl0_?* c 0x}>9O0;@ 5OwK<y}ePP5iU?5ZZUW ?5Uz}UVVUUUx?> =UUUUUVU+UUUiUiU\ <eVUYU{}Zi_<եeYUUhW@ וieUUƧ<UfUUZ%|}<0efVU'eVU% ? @l0hjU*}}Z<V)\@8U \ o? ~}0gfp0 <秠[ 8@<*U_ }(9iVV;8?UUj9A?着<$@}  U3UP UU@} UUP 0?/YUP:3?>VT}>UU ?; :eiV;;YY=<9};9en ie@ _<@ Yed}@>ZeV?@  @ZU3}YUZ Z@}i@99@0@0}jP@:?=<}<j9Z0iZ0j`}ꚥ<0 }  d30 }0}@00 }0>} ?? @}? ?  TTPTTDDTD }lDDD4DDDDDDDD ?@DDD@HDHD??PX@DPX0DhD }@DTT@TTDTTD @DDD@DDDDDDD@DD@0TD}FTDTDTU?}0?09??@<} @? } ? < }}<< ? }<<<<<<<<<<<<<Ja, nochmal!:( [2]->Nein, Programmende&<0):="@I)"@PD"@I%N˿} +D1:BOYGIRL.TBS!:( [2]->Nein, Programmende&<0):="@I)"@PD"@I%N#ABBUC # 43TEXTE.BAS, TEXTER.FNTvon Christoph KirzanowskiAlso beinahe waere mir entgangen, dass ich dieses Programm eige}ntlich schon veroeffentlichen wollte. Nun die Anleitung von Christoph:Oh, nein, so bloed kann man nicht sein! Ich habe zu M}ag.39 paar Texte geschickt, ja und keiner merkte,dass es sich hier um normale Textfiles handelte. Woher denn auch, ich habe s}tatt .TXT -.PTH gelassen.PTH ist kurz PANTHER und das ist ein Texteditor unter dem ich meine Texte schreibe. Die Files sind }in Ascii Format, na ja, man kann schon paar Sonderzeichen aktivieren,je nach dem wie man die Druckertabelle (Befehlsliste) si}ch zu recht gemacht hat.Dieses Programm zeigt oder druckt die angesprochenen Txte.Gruesse von Chris from Archis und der } HAR-Gruppe !P.S. Ich bleibe dem ABBUC treu !die angesprochenen Txte.Gruesse von Chris from Archis und der <!"MESCNSETSPEBYTSTSTAN } !!Ein Programm der HAR-Gruppe%%(Hannover Abbuc Regionalgruppe)$$Interessiert ? Dann mel}de dich bei:KKBastian Buehrig Zintener Str. 2 31303 Burgdorf oderKKDaniel Pralle } Schlesierstr.16k 31535 NeustadtHHDas Programm benoetigt die ABBUC Magazin-Diskette 39 Sei}te A: @@Programmiert von Christoph Kirzanowski (ARCHIS) @ --6-F:AD,%F:AE,$AV%A} %%6-F:@,%F:@,$AV Y +AR@1@=AVJ;@,Y6.Anzei}genB-B((͠ĠŠҠҠΠӠQ0@70@@ @}Q0@@c-@c(Bitte ABBUC Disk 39 Seite A: in>:AU,Laufwerk 1 einlegen,}:-@@7(HAR Mitglieder (Stand 8.95) ::( @AdAU F:Ad,"AU@ }@ @D@@D1:VIDEOIN.PTHO@Y @@@D1:HARDE}MO.PTHB@ @B@@ D1:HILFE.PTHE-@@#)-@/(3 E}-@ 6-P@:@@D1:VIDEOIN.PTHD @'P6-ATH @H>}@(6( VIDEOIN.PTH IM SPEICHER...>6-%P@:@@D1:HARDEMO.PTHD @0P}6-A @H>@(6( HARDEMO.PTH IM SPEICHER...>6-%N@8@@} D1:HILFE.PTHB @3N6-AG @H!6@(6( HILFE.PTH IM SPEICHER..."-@A} #3-@@)-@/(3 $8-@@8( Video Interface von MIRAGE%8-@}@8( Zu den Texten in HAR Demo &8-@@8( Hilfe zu 320kB im 800XE 'AdAU(}O-@@@+-@1(E-@%@K( O )&-@@&(  *@F:A}d,"@16-,6-%ATG6 @`@ @6+HF:Ad,"@0&6-%ATH46-%A> @RH @6},PF:Ad,"@&.6-%ATH%A<6-%AFF @RP @6-cF:Ad,"@$*AdAU:6}-+",I6.AnzeigenU"@c6.Drucken. @A/0nAP@6AR&P:'AV,$AV}MASP:'AV,nAV&P:'AV,$AV1AWP:'AV,26-?:C:h V`,,3$43-@}@$)-@/(3 54Drucken@p6,-@-((>:F:,,, 7A-@@#}A(&8AdAU9 F:Ad,"AU@W:3-@@$})-@/(3 ;$<K-@@$)-@/(3 96-K-@=4Drucken}@p>>(>:F:,,6-%@>6-F:@,%F:@,$AV?&"ATG@U@ 6-&Ay@f}A @bBA-@@#A(&CAdAUD F:Ad,"AU}@hEO-@@$)-@/(3 E-@O @bFX-@@#( DRUCKE....}@8 @xX@@P:G -6-F:,H #@I ""6- @vJ"6@}@vK @sL*@ M@ @UN6.Anzeigen @5O1 +AR@}1@P=-@=(#Mit der Diskette war ich noch nichtQ**("fertig !!! Muss noch was ziehen !}R1( (1(#Diskette in Laufwerk 1 und S2AdAU2AF:A,%@T F:Ad,"AU@}U%V<6-F:A,&@&A0+<AVW8 @y8@@ D1:TEXTER.F}NTX'6-A$6-$AV' @HY@$Z331,132,4,142,21,129,9,154,15,148,16,153,19,225[ -1,-1^}_\!( Heiko Bornhorst>( Bastian Bhrig\( Stefan Dorndorf`\!( Olaf Hillegeis}t@( Christian Jahnke\( Daniel Prallea\"( Ren` Schlichting>( Andreas Tartz\(} Andreas VolpinibE!( Stefan WiegmannE( Christoph Kirzanowskid @ D1:TEXTE}.BAS Andreas VolpinibE!( Stefan WiegmannE( Christoph Kirzanowskid @ D1:TEXTEfffffff>`<|fl0fF68of;880p88pf< 80 0 ~~`0 0`<}f f``f<ffffbx`bbx``||f~ff~ZZ~ xlxxl```bv~nf}b<F|<fffff<fff<<f<6<>f?|ff|lff<>f?`|fff>f`f< |v000|000`~`|fff8<f<`lxxl8<}fff`<|~fff;fff<|lf<|~L2~<~~<}8x8ff|`~| f``>`<|~fff;fff<|lf<|~L2~<~~<----------------------------------------TEXTE TXTAnleitung Textausgabe TEXTE BASTextausgabe fuer Mag. 39 +} -------------------------------------------- TXTAnleitung Textausgabe TEXTE BASTextausgabe fuer Mag. 39 (/