List Directory example#
00010 .LI OFF 00020 .OR $4000 00030 * 00040 * 00050 COL1 .EQ $2C5 00060 COL2 .EQ $2C6 00070 COL4 .EQ $2C8 00080 CURINH .EQ $2F0 00090 * 00100 IOBCCMD .EQ $342 00110 IOBCBFL .EQ $344 00120 IOBCBFH .EQ $345 00130 IOBCLNL .EQ $348 00140 IOBCLNH .EQ $349 00150 IOBCAB1 .EQ $34A 00160 IOBCAB2 .EQ $34B 00170 * 00180 CIO .EQ $E456 00190 * 00200 ROW .EQ $54 00210 COLUMN .EQ $55 00220 * 00230 * 00240 OPEN .EQ 3 00250 GET .EQ 7 00260 CLOSE .EQ 12 00270 * 00280 * 00290 * 00300 * 00310 S JSR EOPEN Editor 00320 LDA #0 oeffnen 00330 STA COL2 Farben 00340 STA COL4 setzen 00350 LDA #$C Cursor 00360 STA COL1 ausschal 00370 STA CURINH ten. 00380 JSR PRINT 00390 .AS "}Demoprogramm auf der BIBOASSEMBLER" 00400 .HX 9B 00410 .AS "Tool Box Diskette................." 00420 .HX 9B 00430 .AS "\^]\^]\^? Directory Drive 1\^]\^]@" 00440 JSR OPEND Datenkanal oeffnen 00450 BMI EOF Fehler, ja ==> 00460 LOOP JSR PRINT Positio- 00470 .HX 9B nieren 00480 .AS "\^? @" 00490 LOOP2 JSR GETBYTE Zeichen holen 00500 CPY #1 Wenn fehler 00510 BNE EOF dann End Of File 00520 CMP #$9B Zeichen CR 00530 BEQ LOOP Ja, Naechste Zeile 00540 JSR PUTCHAR Zeichen drucken 00550 JMP LOOP2 weiter machen 00560 * 00570 EOF JSR CLOSED Datenkanal schliessen 00580 JSR TASTE Warten 00590 JMP S Wiederholen 00600 * 00610 ------------------------------ 00620 OPEND JSR CLOSED Datenkanal schliessen 00630 LDX #$10 Kanal 1 00640 LDA #OPEN Open 00650 STA IOBCCMD,X 00660 LDA #NAME Filename 00670 STA IOBCBFL,X Addresse 00680 LDA /NAME in IOBC 00690 STA IOBCBFH,X 00700 LDA #6 Directory 00710 STA IOBCAB1,X 00720 LDA #0 00730 STA IOBCAB2,X 00740 JMP CIO 00750 ------------------------------ 00760 GETBYTE LDX #$10 00770 LDA #GET Get Byte 00780 STA IOBCCMD,X 00790 LDA #0 00800 STA IOBCLNL,X Len=0 00810 STA IOBCLNH,X 00820 JMP CIO 00830 ------------------------------ 00840 CLOSED LDX #$10 00850 LDA #CLOSE Close 00860 STA IOBCCMD,X 00870 JMP CIO 00880 ------------------------------ 00890 TASTE LDA ROW Cursor 00900 PHA merken 00910 LDA COLUMN 00920 PHA 00930 LDA #23 Neue 00940 STA ROW Position 00950 LDA #3 POS.3,23 00960 STA COLUMN 00970 JSR PRINT Textausgabe 00980 .DA "\M^YƒÈÛÎÂÙÙÂ\240ÂÈÓÏÂÁÂÓ¨\240‘·ÛÙÂ\240‰Úı„ÎÂÓ\^Y@" 00990 JSR GETKEY Auf Tastewarten 01000 PLA Alten 01010 STA COLUMN Cursor 01020 PLA restau- 01030 STA ROW rieren 01040 RTS 01050 ------------------------------ 01060 GETKEY LDA $E425 Siehe 01070 PHA INOUT.INC 01080 LDA $E424 01090 PHA 01100 RTS 01110 ------------------------------ 01120 EOPEN LDA $E401 Editor 01130 PHA oeffnen 01140 LDA $E400 JUMP 01150 PHA ueber 01160 RTS Stack 01170 ------------------------------ 01180 NAME .DA "D1:*.*",#$9B 01190 * 01200 .IN "D:PRINTS.INC"
