@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,}Λd ddddJ |\DOS SYSAUTORUN SYS}B}B}-}CDOS SYS} C C*(> C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `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.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VJ8 B V  @  /DE `E:D8: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ꭝL 3u } 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. LOESCHE DATEI 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 NICHT139 FREIE SEKT. KOPIERE---D1:SCHIEBEN.SRCl# 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- 160ɛ+,' 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 !!LIGHTPEN ABFRAGE BEISPIEL 170@70@@@!T}6-F:Ad,!6-F:Ae,( ( @0 D1:BSP1.BAS70@70@@@!C'%8LL ""LIGHTPEN ABFRAGE BEISPIEL. 270@70@ V}@@!6-F:Ad,!6-F:Ae,(+6-&@v +6-%AQ26-&@F55 ) W}!AY) )!@@0P ( @0 D1:BSP2.BAS+6-%AQ26-&@F55 ) L'1LL ""LIGHTPEN ABFRAGE BEISPIEL. 31 +@#'0@@@Y}1@!6-F:Ad,!6-F:Ae,(+6-&@v +6-%AQ26-&@F55 )!AYZ}) )!@@0P , @0 D:BSP3.BAS+6-%AQ26-&@F55 )!AYE%Oa MALPROGRAMM 2; +@#'0@@@1@; A\} A0, @0(#2#LIGHTPEN-WERTE NACH X,Y<#F#6-?:A6,P#'6-P:'AV,$6-&$AV]}'$Z#d#INIT LIGHTPEN-ROUTINEn#x#-A6A"#  $#!!104,169,255,133,212,133,213#!!^}162,3,165,20,197,20,240,252#173,52,2,201,10,144,2,233# 228,24,105,154,197,212,176#2,133,212,173,53,2,56,233#_}16,197,213,176,2,133,213#!!202,208,217,165,212,201,160# 176,203,165,213,201,96,176# 197,96 D:MAL2.BAS#{% MALPROGRAMM 31 +@#'0@@@1 A a}A0@((R:,@/( @02 1, @0(#2#LIGHTPEN-WERTE NACH X,Y<#b}F#6-?:A6,P#'6-P:'AV,$6-&$AV'$Z#d#INIT LIGHTPEN-ROUTINEn#x#-A6A"c}#  $#!!104,169,255,133,212,133,213#!!162,3,165,20,197,20,240,252#173,52,2,201,10,144,2,233# 228,2d}4,105,154,197,212,176#2,133,212,173,53,2,56,233#16,197,213,176,2,133,213#!!202,208,217,165,212,201,160# 176,e}203,165,213,201,96,176# 197,96 D:MAL3.BAS#16,197,213,176,2,133,213#!!202,208,217,165,212,201,160# 176,5ADVMTK@@I@Bg`Bi`B&qB0V@ g} B& @ @@@ MALPROGRAMM 4;AX,3 +@#!-@'"/03 h}(K%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AV2/ 6-C:,/6-+P:'AV,%@,$AV<i}g @,1/AYC/AY@U/@g/FK,AE'/j}AE@9,AHK/AH@P;-@@+,AE7/AY; ZC-@k}@C-$@%@$@%@d-,AP/AW # -@n" " ,O:," Al}x!/ AB:,Ap96-#-AAC'"/6-%59 ?-@m}AX"#6-%167<,.>:,5 ? A,B&+)  DATA FEHLER,G6-6-'6n}-@1 A=6-@G A R:,@A.R:,"@$6-@. A! o}A0!!ADA9/&@A A0APAp9 A$ ,6-!6-$$p}"/$ A "/$ A 6 166-?:<<<$AV%<$AV%,q}$"(6-P:'@, A( A,?  @6-) AP/6-56-? A@63#"@)"r}@ )!@)6-3 A@@"@# @0J 6- AP6-6-T @^Y6-$@%@s}%,AF9/AF%@E,AGY/AG%@h6-@$r4,14,12,14,9,14,0,0,8,8|$$t}-150,2,157,2,157,6,150,6,150,2##-154,42,152,42,152,46,-153,44##154,44,-155,43,-154,50,152,50""152,54,154,54,-155u},53,155,51##-152,58,152,62,155,62,-155,66""152,66,152,70,-153,68,154,68&&-155,82,152,82,152,86,155,86,0,0 16v}5,232,24,101,229,133,229 165,233,101,230,133,230,96181,0,24,105,2,149,0,1442,246,1,96,197,222,208,2228w},223,96,0,1,0,255,1,0 255,0,192,12,48,3,0,85,170!!255,165,220,166,221,133,229!!134,230,136,132,233,132,231!!x}165,216,74,38,231,74,38,231!!133,232,32,61,6,165,217,133& 232,162,5,6,232,38,233,2240!!3,208,3,32,61,6,202,208,242y}: 32,61,6,177,229,166,215,93D 106,6,166,231,61,102,6,208N 34,189,102,6,72,166,214,61X106,6,133,232,104,73,25z}5b49,229,5,232,145,229,165l!!216,145,226,165,217,200,145v226,162,226,32,75,6,96104,162,7,104,149,214,202{} 16,250,166,218,232,232,134!!222,165,219,133,223,165,216160,0,145,218,165,217,200!!145,218,165,218,166,219,1|}33!!224,134,225,165,222,166,223133,226,134,227,169,3,133228,160,0,177,224,166,228 24,125,94,6,201,145,17}}6,18 133,216,200,177,224,24,12598,6,201,96,176,5,133,217!!32,110,6,198,228,16,220,162!!224,32,75,6,165,224~},166,225!!32,87,6,208,202,165,226,166 ""227,32,87,6,208,1,96,165,218!!166,219,133,224,134,225,160 0,177,222,1}45,224,200,177*222,145,224,162,222,32,7546,162,224,32,75,6,165,226>!!166,227,32,87,6,208,226,165H!!224,166,22}5,133,222,134,223R 208,128(#2#LIGHTPEN-WERTE NACH X,Y<#F#6-?:A6,P#%"6-P:'AV,!"&$AV%}$Z#d#INIT LIGHTPEN-ROUTINEn#x#-A6A"#  $#!!104,169,255,133,212,133,213#!!162},3,165,20,197,20,240,252#173,52,2,201,10,144,2,233# 228,24,105,154,197,212,176#2,133,212,173,53,2,56,233#1}6,197,213,176,2,133,213#!!202,208,217,165,212,201,160# 176,203,165,213,201,96,176# 197,96 D:MAL4.BAS#1w. MENUE-BEISPIEL+ A((* AKTION 1( }((* AKTION 1(2(* AKTION 3(<(* AKTION 4(FR:,@@pP R:,"@ }@Z? A0? @)!@) @)!@0@pdC6-P:'@,%@-6-P:'@,C$@ }@pn1'A A0A@AP1 @px(UPRO 1$(UPRO 2$(UPRO 3$(UP }RO 4$(#2#LIGHTPEN-WERTE NACH X,Y<#F#6-?:A6,P#%"6-P:'AV,!"&$AV%$Z#d#INIT LIGH }TPEN-ROUTINEn#x#-A6A"#  $#!!104,169,255,133,212,133,213#!!162,3,165,20,197,20,240,2 }52#173,52,2,201,10,144,2,233# 228,24,105,154,197,212,176#2,133,212,173,53,2,56,233#16,197,213,176,2,133,21 }3#!!202,208,217,165,212,201,160# 176,203,165,213,201,96,176# 197,96 D:MENUE.BAS#16,197,213,176,2,133,21 bCSDVACCCB"BsD@ B $} A @ ZEICHENEDITOR)+ A6-B")6-BsD((-A#$%F:%,$}( 2)-@@%%) <AV@HFK%6-F:Af,%F:Aa,$AVK6-F:%@,%F:%$}@,$AVP>( (!(#-@@7(* * * * * * * *:(> Z R:,@@d R:$},"@An? A0&6-P:'@,&@?6-P:'@,&@x55 )!@) )!@$}@a%6-%A2%$@%$@56-%@%>6-F:,a6-P:@#+@&,%?P,0F:,"@$}A(&%0 @!@&! @(#2#LIGHTPEN-WERTE NACH X,Y<#F#6-?:A6,P#'$}6-P:'AV,$6-&$AV'$Z#d#INIT LIGHTPEN-ROUTINEn#x#-A6A"#  $#!!104$},169,255,133,212,133,213#!!162,3,165,20,197,20,240,252#173,52,2,201,10,144,2,233# 228,24,105,154,197,212,176#$}2,133,212,173,53,2,56,233#16,197,213,176,2,133,213#!!202,208,217,165,212,201,160# 176,203,165,213,201,96,176# $} 197,96D:ZEICHNED.BAS16,197,213,176,2,133,213#!!202,208,217,165,212,201,160# 176,203,165,213,201,96,176# $0000 0100 .OPT NOEJECT 0105 ; 0110 ; ****************************** 0115 ;(} 0120 ; ASSEMBLER LIGHTPEN DRIVER 0125 ; 0130 ; (C)1984 BERNHARD ENGL 0(}135 ; 0140 ; ****************************** 0145 ;0012 0150 RTCLOK = $120234 0155(} LPENH = $2340235 0160 LPENV = $235 0165 ;00D4 0170 PENX = $21204D5 0175 (}PENY = $213 0180 ;0000 0185 *= $600 0190 ;0600 68 0195 GETPEN PLA (} PULL NO PARAMS0601 A9FF 0200 LDA #$FF INIT RESULTS0603 85D4 0205 STA PENX0605 85D5 02(}10 STA PENY0607 A203 0215 LDX #3 SAMPLE COUNTER0609 A514 0220 GETPE1 LDA RTCLOK+2 WAIT FO(}R NEXT FRAME060B C514 0225 GETPE2 CMP RTCLOK+2060D F0FC 0230 BEQ GETPE2060F AD3402 0235 LDA LPENH (} GET LIGHTPEN H-REGISTER0612 C90A 0240 CMP #10 CALCULATE X-COORDINATE0614 9002 0245 BBC GETPE3(}0616 E9E4 0250 SBC #2280618 18 0255 GETPE3 CLC0619 699A 0260 ADC #154061B C5D4 0265 CMP PE(}NX061D B002 0270 BCS GETPE4061F 85D4 0275 STA PENX ACCEPT MINIMUM ONLY0621 AD3502 0280 GETPE4 L(}DA LPENV GET LIGHTPEN V-REGISTER0624 38 0285 SEC CALCULATE Y-KOORDINATE0625 E910 0290 (} SBC #160627 C5D5 0295 CMP PENY0629 B002 0300 BCS GETPE5 ACCEPT MINIMUM ONLY062B 85D5 0305 (} STA PENY062D CA 0310 GETPE5 DEX062E D0D9 0315 BNE GETPE1 NEXT SAMPLE0630 A5D4 0320 LDA(} PENX TEST FOR LEGAL RANGE0632 C9A0 0325 CMP #1600634 B0CB 0330 BCS GETPEN+10636 A5D5 0335 (} LDA PENY0638 C960 0340 CMP #96063A B0C5 0345 BCS GETPEN+1063C 60 0350 RTSA5D5 0335 (o0000 0100 .OPT NOEJECT 0105 ; 0110 ; ****************************** 0115 ;,} 0120 ; DIAMOND PATTERN FILL ROUTINE 0125 ; 0130 ; (C)1984 BERNHARD ENGL ,} 0135 ; 0140 ; ****************************** 0145 ; 0150 ; FOR LIGHTPEN GRAPHICS DEMO. ,} 0155 ; USE: LOCATE X,Y,A 0160 ; USR (ADR,SCREENAD,WORKAD,Y*256+X,A*256+C) 0165 ;0000 ,} 0170 *= $D6 0175 ;00D6 0180 COLORS *= *+1 FILL COLOR00D7 0185 COLORC *= ,}*+1 COLOR TO BE FILLED00D8 0190 TEMPX *= *+1 TEMPORARY X00D9 0195 TEMPY *= *+1 TEMP,}ORARY Y00DA 0200 TABLE1 *= *+2 BEGIN OF TABLE 100DC 0205 SCREEN *= *+2 SCREEN START ADR00D,}E 0210 TABLE2 *= *+2 BEGIN OF TABLE 200E0 0215 WORK1 *= *+2 POINTER 100E2 0220 WORK,}2 *= *+2 POINTER 200E4 0225 DIRC *= *+1 DIRECTION COUNT00E5 0230 PIXPNT *= *+2 ,}PIXEL POINTER00E7 0235 PIXIND *= *+1 PIXEL INDEX00E8 0240 TEMP *= *+2 TEMPORARY WORD ,} 0245 ;00EA 0250 *= $63D 0255 ;063D A5E8 0260 ADD LDA TEMP PIXINT=PIXINT+TE,}MP063F 18 0265 CLC0640 65E5 0270 ADC PIXPNT0642 85E5 0275 STA PIXPNT0644 ASE9 0280 ,}LDA TEMP+10646 65E6 0285 ADC PIXPNT+10648 85E6 0290 STA PIXPNT+1064A 60 0295 RTS ,}0300 ;064B B500 0305 ADV LDA 0,X ADVANCE POINTER Y BY 2064D 18 0310 CLC064E 6902 0315 ADC,} #20650 9500 0320 STA 0,X0652 9002 0325 BCC ADV10654 F601 0330 INC 1,X0656 60 0335 ADV1 ,}RTS 0340 ;0657 C5DE 0345 COMP CMP TABLE2 COMPARE A,X WITH TABLE20659 D002 0350 BNE COMP1065B,} E4DF 0355 CPX TABLE2+1065D 60 0360 COMP1 RTS 0365 ;065E 00 0370 DELTX .BYTE 0,1,0,$FF065F ,}010660 000661 FF0662 01 0375 DELTY .BYTE 1,0,$FF,00663 000664 FF0665 000666 C0 0380 MASK .BYTE $C0,$0C,$30,,}$030667 0C0668 300669 03066A 00 0385 COLTAB .BYTE 0,$55,$AA,$FF066B 55066C AA066D FF 0390 ;066E A5DC ,} 0395 FILL9 LDA SCREEN CALC PIXEL ADR AND INDEX0670 A6DD 0400 LDX SCREEN+10672 85E5 0405 STA PIXPN,}T0674 86E6 0410 STX PIXPNT+10676 88 0415 DEY ZERO Y0677 84E9 0420 STY TEMP+10679,} 84E7 0425 STY PIXIND067B ASD8 0430 LDA REMPX GET PIXEL INDEX067D 4A 0435 LSR A067E 26E,}7 0440 ROL PIXIND0680 4A 0445 LSR A0681 26E7 0450 ROL PIXIND0683 85E8 0455 STA TEMP ,} ADD X/4 to SCREEN ADR0685 203D06 0460 JSR ADD0688 A5D9 0465 LDA TEMPY068A 85E8 0470 STA TE,}MP068C A205 0475 LDX #5068E 06E8 0480 FILL4 ASL TEMP MULTIPLY Y BY 20690 26E9 0485 ROL TEMP+1,}0692 E003 0490 CPX #30694 D003 0495 BNE FILLS0696 203D06 0500 JSR ADD ADD Y*80699 CA ,}0505 FILL5 DEX069A D0F2 0510 BNE FILL4069C 203D06 0515 JSR ADD ADD Y*32069F B1E5 0520 LD,}A (PIXPNT),Y GET FOUR PIXELS 06A1 A6D7 0525 LDX COLORC COLOR COMPARE06A3 5D6A06 0530 EOR COLTAB,X0,}6A6 A6E7 0535 LDX PIXIND ISOLATE PIXEL06A8 3D6606 0540 AND MASK,X06AB D022 0545 BNE FILL10 ,} NOT RIGHT COLOR06AD BD6606 0550 LDA MASK,X CHANGE PIXEL TO FILL COLOR06B0 48 0555 PHA06B1 A6D6 ,} 0560 LDX COLORS06B3 3D6A06 0565 AND COLTAB,X06B6 85E8 0570 STA TEMP06B8 68 0575 PLA06B,}9 49FF 0580 EOR #$FF06BB 31E5 0585 AND (PIXINT),Y06BD 05E8 0590 ORA TEMP06BF 91E5 0595 ,} STA (PIXINT),Y06C1 A5D8 0600 LDA TEMPX COORDINATES TO TABLE206C3 91E2 0605 STA (WORK2),Y06C5 A5D9,} 0610 LDA TEMPY06C7 C8 0615 INY06C8 91E2 0620 STA (WORK2),Y06CA A2E2 0625 LDX #WORK2,} ADVANCE WORK206CC 204B06 0630 JSR ADV06CF 60 0635 FILL10 RTS 0640 ;06D0 0645 *=,}$4000 0650 ; 0655 ; MAIN ROUTINE (RELOCATABLE) 0660 ;4000 68 0665 FILL PLA ,} PULL NO OF ARGS4001 A207 0670 LDX #7 PULL ARGUMENTS4003 68 0675 FILL1 PLA4004 95D6 0680 ,} STA COLORS,X4006 CA 0685 DEX4007 10FA 0690 BPL FILL14009 A6DA 0695 LDX TABLE1 INIT TA,}BLES AND POINTERS400B E8 0700 INX400C E8 0705 INX400D 86DE 0710 STX TABLE2400F A5DB 0715,} LDA TABLE1+14011 8SDF 0720 STA TABLE2+14013 A5D8 0725 LDA TEMPX4015 A000 0730 LDY #040,}17 91DA 0735 STA (TABLE1),Y4019 ASD9 0740 LDA TEMPY401B C8 0745 INY401C 91DA 0750 ST,}A (TEBLE1),Y401E A5DA 0755 FILL2 LDA TABLE1 PROCESS TABLE14020 A6DB 0760 LDX TABLE1+14022 85E0 0765 ,} STA WORK14024 86E1 0770 STX WORK1+14026 A5DE 0775 LDA TABLE2 GENERATE TABLE24028 A6DF 0780 ,} LDX TABLE2+1402A 85E2 0785 STA WORK2402C 86E3 0790 STX WORK2+1402E A903 0795 FILL7 LDA #3 ,} FOUR DIRECTIONS FROM...4030 85E4 0800 STA DIRC EACH PIXEL FROM TABLE14032 A000 0805 FILL3 LDY #0 ,} GET COORDINATES...4034 B1E0 0810 LDA (WORK1),Y AND ADD OFFSET4036 A6E4 0815 LDX DIRC4038 18 0,}820 CLC4039 7D5E06 0825 ADC DELTX,X403C C991 0830 CMP #145403E B012 0835 BCS FILL6 O,}UT OF RANGE4040 85D8 0840 STA TEMPX4042 C8 0845 INY4043 B1E0 0850 LDA (WORK1),Y4045 18 0,}855 CLC4046 7D6206 0860 ADC 4049 C960 0865 CMP #96404B B005 0870 BCS FILL6 OUT OF RA,}NGE404D 85D9 0875 STA TEMPY404F 206E06 0880 JSR FILL94052 C6E4 0885 FILL6 DEC DIRC4054 19DC 0890 ,} BPL FILL34056 A2E0 0895 LDX #WORK1 ADVANCE WORK14058 204B06 0900 JSR ADV405B A5E0 0905 L,}DA WORK1405D A6E1 0910 LDX WORK1+140SF 205706 0915 JSR COMP4062 D0CA 0920 BNE FILL7 WORK1<>,}TABLE24064 A5E2 0925 LDA WORK24066 A6E3 0930 LDX WORK2+14068 205706 0935 JSR COMP406B D001 094,}0 BNE FILL8 COORDINATES WERE GENERATED406D 60 0945 RTS EXIT406E A5DA 0950 FILL8 LDA ,}TABLE1 BUILD NEW TABLE1 FROM TABLE24070 A6DB 0955 LDX TABLE1+14072 85E0 0960 STA WORK14074 86E1 0,}965 STX WORK1+14076 A000 0970 FILL11 LDY #04078 B1DE 0975 LDA (TABLE2),Y407A 91E0 0980 STA (WOR,}K1),Y407C C8 0985 INY407D B1DE 0990 LDA (TABLE2),Y407F 91E0 0995 STA (WORK1),Y4081 A2DE 10,}00 LDX #TEBALE 2 ADVANCE POINTERS4083 204B06 1005 JSR ADV4086 A2E0 1010 LDX #WORK14088 204B06 101,}5 JSR ADV408B A5E0 1020 LSA WORK2408D A6E3 1025 LDX WORK2+1408F 205706 1030 JSR COMP4092 ,}D0E2 1035 BNE FILL11 TABLE END NOT REACHED4094 A5E0 1040 LDA WORK14096 A6E1 1045 LDX WORK1+,}14098 85DE 1050 STA TABLE2409A 86DF 1055 STX TABLE2+1409C D080 1060 BNE FILL2 ALWAYS409E,} 1065 .ENDSTA TABLE2409A 86DF 1055 STX TABLE2+1409C D080 1060 BNE FILL2 ALWAYS409E,<hԅբ4 i԰ԭ58հ٥ɠ˥``BLE2+1409C D080 1060 BNE FILL2 ALWAYS409E0C=ee`i`` 0Uܦ݅戄J&J& =م& = =]j=f"fH=4}jhI1ؑȑ K``` 0Uܦ݅戄J&J& =م& = =]j=f"fH=4@@hhޥۅߥؠڥȑڥڦۅަ߅}^ɑȱ}b` nܢ K Wʥ W`ڦۅ8}ޑȱޑ K K WކЀۅަ߅}^ɑȱ}b` nܢ K Wʥ W`ڦۅ8'Die COM-Dateien auf dieser Disk sinddie mit Header gespeicherten Dateien*.TXT. Sie haben keine INIT oder RUNAdresse, sond<}ern sind lediglich dieaus den alten Listings von BernhardEngl abgetippten und gespeichertenDateien. Wie diese zu nutz<}en sindueberlasse ich gerne den erfahrenenProgrammierern. Bernhard PahlDRIVER .TXT Listing 1DIAM<}OND.TXT Listing 2DRIVER .COM $0600 - $063CDIAMND1.COM $063D - $06FFDIAMND2.COM $4000 - $409D *.BAS siehe Anleitung L<}ightPen************************************* Copyright 1984 by BERNHARD ENGL ** used by ABBUC with permission ******<}********************************************* Copyright 1984 by BERNHARD ENGL ** used by ABBUC with permission ******< b%DOS SYSb*)DUP SYSbSBSP1 BASbUBSP2 BASbXBSP3 BASb[MAL2 BASb`MAL3 BASbfMAL4 BASbMENUE BASb ZEICHNEDBASbDRIVER TXTb>DIAMOND TXTbDRIVER COMbDIAMND1 COMbDIAMND2 COMbREADME TXT