Blame | Last modification | View Log | Download | RSS feed
Thu Mar 24 11:31:55 2016 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FA\lib1.asmOutput Filename : obj\FA\lib1.objListing Has Been Relocated2172 .LIST on21732174 F8FF66 .INCLUDE inc\dirp00.inc2175 ;----------------------------------------------------------2176 ; DIRP00.ASM2177 ; PROGETTO: B16012178 ;2179 ; Variabili in Direct Page $002180 ;----------------------------------------------------------21812182 ; sezione COMMON -- questo permette di includere il file in piu' file21832184 .LIST on21852186 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0021872188 000000 .ABSOLUTE ;; inizia sempre da $002189 000000 .ORG 0x002190 0000002191 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2192 000002 0000 .DW2193 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2194 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2195 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2196 ; <6>: flag warm reset2197 00000D 00 RTCFlag .DB21982199 00000E atadev .DS 2 ; flag device on ata bus #0 & #12200 ; <7>: device ready2201 ; <6>: compact flash device (C.F.)2202 ; <5>: device identification ok2203 ; <4>: MBR loaded2204 ; <3>: valid signature in MBR2205 ; <2>: first partition found&active2206 ; <1>:2207 ; <0>: valid partition flag22082209 000010 atasec .DS 8 ; max. user sectors on ata device2210 000018 atambr .DS 8 ; data for first partition found in mbr2211 ; first 3 bytes for start sector of partition2212 ; last byte for partition type2213 000020 ataprt .DS 8 ; total sec's of first partition22142215 000028 00 fdcdrv .DB ; phisycal drive status (drive #0)2216 ; <7>: disk format established in bit 0&12217 ; <6>: double step seek doneThu Mar 24 11:31:55 2016 Page 22218 ; <5>: trust format bit's (set after ok r/w)2219 ; <4>: write protect bit (if disk in drive)2220 ; <3>: don't care2221 ; <2>: don't care2222 ; <1>: HD disk if set else DD disk2223 ; <0>: CBM format if set else IBM format22242225 000029 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2226 ; <7>: disk format established in bit 0&12227 ; <6>: change disk simulation (after format)2228 ; <5>: don't care2229 ; <4>: write protect bit (under sw control)2230 ; <3>: don't care2231 ; <2>: don't care2232 ; <1>: HD disk if set else DD disk2233 ; <0>: CBM format if set else IBM format22342235 00002A 00 fdcctl .DB ; fdc controller status2236 ; <7>: drive is attached2237 ; <6>: drive need recalibration (restore)2238 ; <5>: FDC controller ok2239 ; <4>: motor on2240 ; <3>: dma is active2241 ; <2>: dma chip ok (post routine)2242 ; <1>: clock rate (1=HD,0=DD)2243 ; <0>: disk ready22442245 00002B 00 fdctrk .DB ; fd: current seek track2246 00002C 00 fdcerr .DB ; fd: last error code2247 00002D 00 ataerr .DB ; ata: last error code2248 00002E 00 ataxer .DB ; ata: last extended error code22492250 00002F 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)22512252 000030 0000 MemTop .DW ; top memoria RAM2253 000032 00 .DB ; banco top mem22542255 000033 00 DflTxtIn .DB ; device di default text input2256 000034 00 DflTxtOut .DB ; device di default text output22572258 000035 COPPtr LP ; long pointer for COP decoding2259 000038 00 COPIdx .DB ; COP signature/index22602261 ; variabili utilizzate da ACIA2262 000039 00 ACIAFlag .DB22632264 00003A 00 ACIArxe_1 .DB ; flag errore 7: errore RX (scarta dato)2265 ; 6: overflow buffer RX2266 ; 5: disconnessione remota2267 ; 2: framing error2268 ; 1: parity error2269 ; 0: overrun error2270 00003B 00 ACIArxe_2 .DB22712272 00003C 00 ACIAhsk_1 .DB ; handshake 7: handshake attivo2273 ; 6: handshake hardware (RTS,CTS)2274 00003D 00 ACIAhsk_2 .DBThu Mar 24 11:31:55 2016 Page 322752276 00003E 00 ACIAPause_1 .DB ; flag pausa 7: pausa remota (XOFF/RTS=1)2277 ; 6: pausa locale (XON/CTS=1)2278 00003F 00 ACIAPause_2 .DB22792280 000040 00 ACIAdsrt_1 .DB ; status transizioni DSR, CTS, DCD2281 ; 7: DSRT, 6: CTST, 5: DCDT2282 000041 00 ACIAdsrt_2 .DB22832284 000042 00 ACIAdsrl_1 .DB ; status livello linee DSR, CTS, DCD, DTR, RTS2285 ; 7: DSRLVL, 6: CTSLVL, 5: DCDLVL2286 ; 1:DTRLVL, 0:RTSLVL2287 000043 00 ACIAdsrl_2 .DB22882289 000044 00 ACIArem_1 .DB ; byte OR registro formato per pausa remota2290 000045 00 ACIArem_2 .DB22912292 000046 00 ACIAmsk_1 .DB ; maschera AND per test disconnessione2293 ; $80 per test DSR - $20 per test DCD2294 000047 00 ACIAmsk_2 .DB22952296 000048 00 ACIAcsr_1 .DB ; control status durante IRQ2297 000049 00 ACIAcsr_2 .DB2298 00004A 00 ACIAfr_1 .DB ; copia registro di formato2299 00004B 00 ACIAfr_2 .DB2300 00004C 00 ACIAOut_1 .DB ; trasmissione XON/XOFF2301 00004D 00 ACIAOut_2 .DB23022303 00004E 0000 ACIAICnt_1 .DW ; numero bytes in coda RX 12304 000050 0000 ACIAIHead_1 .DW ; puntatore testa buffer RX 12305 000052 0000 ACIAITail_1 .DW ; puntatore coda buffer RX 12306 000054 0000 ACIAOCnt_1 .DW ; numero bytes in coda TX 12307 000056 0000 ACIAOHead_1 .DW ; puntatore testa buffer TX 12308 000058 0000 ACIAOTail_1 .DW ; puntatore coda buffer TX 123092310 00005A 0000 ACIAICnt_2 .DW ; numero bytes in coda RX 22311 00005C 0000 ACIAIHead_2 .DW ; puntatore testa buffer RX 22312 00005E 0000 ACIAITail_2 .DW ; puntatore coda buffer RX 22313 000060 0000 ACIAOCnt_2 .DW ; numero bytes in coda TX 22314 000062 0000 ACIAOHead_2 .DW ; puntatore testa buffer TX 22315 000064 0000 ACIAOTail_2 .DW ; puntatore coda buffer TX 223162317 ; bios mem2318 000066 0000 nsize .DW ; dimensione blocco da allocare2319 ;bsize .DW ; dimensione vera blocco free2320 000068 0000 splitsz .DW ; dimensione blocco splittato2321 00006A 0000 bfree .DW ; puntatore blocco free2322 00006C 0000 hdrptr .DW ; puntatore header heap23232324 00006E 0000 pbrklv .DW ; current break level of current process2325 000070 0000 pbrkmin .DW ; minimum breal level of current process2326 000072 0000 pbrkmax .DW ; maximum breal level of current process23272328 000074 00 ACIATmp .DB2329 000075 00 .DB2330 0000762331 ; bios temp. work areaThu Mar 24 11:31:55 2016 Page 42332 000076 bwrktmp .DS $2823332334 00009E 00 BiosEnt .DB ; flag accesso a bios setup23352336 00009F 00 .DB ; dummy2337 0000A023382339 00009F .RELATIVE23402341 .ENDS23422346 .LIST on23472348 ; page 0 local var's (declared in bios temp. work area)2349 _P0BTMP: .SECTION page0, ref_only, offset bwrktmp ; DP Tmp. BIOS23502351 000076 cmdlin LP ; long pointer to command line2352 000079 optstr LP ; long pointer to options mask2353 00007C 0000 0000 dwres .LWORD ; result2354 000080 00 slen .DB ; string length2355 000081 00 squot .DB ; flag quotation marks2356 000082 00 cmdy .DB ; index2357 000083 00 chopt .DB ; option char2358 000084 00 prsfg .DB ; parsing flag2359 000085 00 opttyp .DB ; option type23602361 .ENDS23622363 ;---------------------------------------------------------------------------2364 ; code segment -- bank $FA2365 ;---------------------------------------------------------------------------23662367 .CODEFA23682369 .LONGA off2370 .LONGI off23712372 ; getopt2373 ;2374 ; param's:2375 ;2376 ; sFlag = <7>: show error message2377 ; <6>: accept decimal numeric arguments2378 ; <0>: called from monitor2379 ; sCmd = long pointer to command line2380 ; sOpt = long pointer to option's string2381 ; sRes = 32 bit result2382 ;2383 ; param's stack offset2384 000006 sRes .SET 62385 00000A sOpt .SET 102386 00000D sCmd .SET 132387 000010 sFlag .SET 1623882389 FA0003 _getopt:2390 .PUBLIC _getopt2391 FA0003 0B phdThu Mar 24 11:31:55 2016 Page 52392 FA0004 F4 00 00 pea #02393 FA0007 2B pld2394 FA0008 ACC16 ; move param's in local var's2395 FA0008 C2 20 rep #PMFLAG2396 .LONGA on2397 .MNLIST2398 FA000A A3 0A lda sOpt,s2399 FA000C 85 79 sta optstr2400 FA000E A3 0D lda sCmd,s2401 FA0010 85 76 sta cmdlin2402 FA0012 ACC082403 FA0012 E2 20 sep #PMFLAG2404 .LONGA off2405 .MNLIST2406 FA0014 A3 0C lda sOpt+2,s2407 FA0016 85 7B sta optstr+22408 FA0018 A3 0F lda sCmd+2,s2409 FA001A 85 78 sta cmdlin+22410 FA001C A3 10 lda sFlag,s2411 FA001E 85 84 sta prsfg2412 FA0020 A0 00 ldy #02413 FA0022 84 85 sty opttyp2414 FA0024 20 97 00 jsr ?104 ; get next char2415 FA0027 F0 6B beq ?95 ; return A=02416 FA0029 C9 2D cmp #'-' ; option?2417 FA002B F0 0B beq ?05 ; yes2418 FA002D 20 A0 00 jsr ?110 ; find end of argument2419 FA0030 B0 62 bcs ?95 ; error2420 FA0032 A9 80 lda #$80 ; no option argument2421 FA0034 85 83 sta chopt2422 FA0036 80 43 bra ?902423 FA0038 20 4B 01 ?05: jsr ?130 ; check option2424 FA003B B0 57 bcs ?95 ; error2425 FA003D 20 B6 01 jsr ?140 ; test option argument2426 FA0040 B0 52 bcs ?95 ; error2427 FA0042 A6 85 ldx opttyp2428 FA0044 E0 20 cpx #' ' ; option without argument?2429 FA0046 F0 33 beq ?90 ; yes...so exit2430 FA0048 E0 3A cpx #':' ; option requires a simple string argument?2431 FA004A F0 2F beq ?90 ; yes...so exit2432 FA004C E0 24 cpx #'$' ; option requires up case string argument?2433 FA004E F0 08 beq ?10 ; yes2434 FA0050 E0 21 cpx #'!' ; option requires a single char argument?2435 FA0052 F0 1D beq ?30 ; yes2436 FA0054 E0 5E cpx #'^' ; option requires a single up case char arg.?2437 FA0056 D0 1E bne ?40 ; no2438 FA0058 A0 00 ?10: ldy #02439 FA005A B7 7C ?15: lda [dwres],y ; up case string2440 FA005C F0 0F beq ?25 ; end of string2441 FA005E C9 61 cmp #'a'2442 FA0060 90 08 bcc ?202443 FA0062 C9 7B cmp #'z'+12444 FA0064 B0 04 bcs ?202445 FA0066 29 DF and #$DF2446 FA0068 97 7C sta [dwres],y2447 FA006A C8 ?20: iny2448 FA006B 80 ED bra ?15Thu Mar 24 11:31:55 2016 Page 62449 FA006D E0 24 ?25: cpx #'$' ; if requires string exit2450 FA006F F0 0A beq ?902451 FA0071 20 44 02 ?30: jsr ?150 ; check single char argument2452 FA0074 B0 1E bcs ?95 ; error2453 FA0076 20 9F 02 ?40: jsr ?160 ; others option type2454 FA0079 B0 19 bcs ?952455 FA007B ?90: ACC16 ; return to the caller result...2456 FA007B C2 20 rep #PMFLAG2457 .LONGA on2458 .MNLIST2459 FA007D A5 76 lda cmdlin ; ...and residual command line string2460 FA007F 83 0D sta sCmd,s2461 FA0081 A5 7C lda dwres2462 FA0083 83 06 sta sRes,s2463 FA0085 A5 7E lda dwres+22464 FA0087 83 08 sta sRes+2,s2465 FA0089 ACC082466 FA0089 E2 20 sep #PMFLAG2467 .LONGA off2468 .MNLIST2469 FA008B A5 78 lda cmdlin+22470 FA008D 83 0F sta sCmd+2,s2471 FA008F A4 85 ldy opttyp ; return Y=option type2472 FA0091 A5 83 lda chopt ; return A=option char2473 FA0093 18 clc ; no error2474 FA0094 2B ?95: pld2475 FA0095 6B rtl24762477 FA0096 C8 ?100: iny ; get char from command line2478 FA0097 B7 76 ?104: lda [cmdlin],y2479 FA0099 F0 04 beq ?1062480 FA009B C9 20 cmp #' '2481 FA009D F0 F7 beq ?1002482 FA009F 60 ?106: rts24832484 FA00A0 A2 20 ?110: ldx #' '2485 FA00A2 86 81 stx squot ; normal end of string char2486 FA00A4 64 80 stz slen ; size of argument2487 FA00A6 C9 22 cmp #'"' ; search end of string2488 FA00A8 D0 03 bne ?112 ; not quoted2489 FA00AA 85 81 sta squot ; quoted string2490 FA00AC C8 iny2491 FA00AD 84 82 ?112: sty cmdy ; save index2492 FA00AF B7 76 ?114: lda [cmdlin],y2493 FA00B1 D0 08 bne ?1152494 FA00B3 A6 81 ldx squot2495 FA00B5 E0 22 cpx #'"'2496 FA00B7 F0 37 beq ?122 ; missing final quote2497 FA00B9 80 0E bra ?1172498 FA00BB C5 81 ?115: cmp squot ; first blank/quote is end of string2499 FA00BD F0 05 beq ?1162500 FA00BF E6 80 inc slen2501 FA00C1 C8 iny2502 FA00C2 80 EB bra ?1142503 FA00C4 A9 00 ?116: lda #0 ; put string terminator2504 FA00C6 97 76 sta [cmdlin],y2505 FA00C8 C8 iny ; next token in command lineThu Mar 24 11:31:55 2016 Page 72506 FA00C9 A6 80 ?117: ldx slen ; check string length2507 FA00CB F0 53 beq ?126 ; error2508 FA00CD A6 82 ldx cmdy2509 FA00CF ACC16CLC2510 FA00CF C2 21 rep #(PMFLAG.OR.PCFLAG)2511 .LONGA on2512 .MNLIST2513 FA00D1 8A txa2514 FA00D2 65 76 adc cmdlin2515 FA00D4 85 7C sta dwres ; pointer to argument2516 FA00D6 ACC082517 FA00D6 E2 20 sep #PMFLAG2518 .LONGA off2519 .MNLIST2520 FA00D8 A5 78 lda cmdlin+22521 FA00DA 90 01 bcc ?1182522 FA00DC 1A inc a2523 FA00DD 85 7E ?118: sta dwres+22524 FA00DF 64 7F stz dwres+32525 FA00E1 ?119: ACC16CLC2526 FA00E1 C2 21 rep #(PMFLAG.OR.PCFLAG)2527 .LONGA on2528 .MNLIST2529 FA00E3 98 tya2530 FA00E4 65 76 adc cmdlin2531 FA00E6 85 76 sta cmdlin ; bump command line ptr2532 FA00E8 ACC082533 FA00E8 E2 20 sep #PMFLAG2534 .LONGA off2535 .MNLIST2536 FA00EA 90 03 bcc ?1202537 FA00EC E6 78 inc cmdlin+22538 FA00EE 18 clc2539 FA00EF 60 ?120: rts2540 FA00F0 A5 84 ?122: lda prsfg ; test bit 72541 FA00F2 10 2A bpl ?124 ; no show error message2542 FA00F4 20 42 01 jsr ?1282543 FA00F7 SCNPRINT2544 FA00F7 02 01 cop $012545 .MNLIST2546 FA00F9 6D 69 73 73 69 .DB 'missig quotation marks in argument.', 13, 067 20 71 75 6F74 61 74 69 6F6E 20 6D 61 726B 73 20 69 6E20 61 72 67 756D 65 6E 74 2E0D 002547 FA011E 38 ?124: sec ; error flag2548 FA011F 60 rts2549 FA0120 A5 84 ?126: lda prsfg2550 FA0122 10 FA bpl ?1242551 FA0124 20 42 01 jsr ?1282552 FA0127 SCNPRINT2553 FA0127 02 01 cop $012554 .MNLIST2555 FA0129 61 72 67 75 6D .DB 'argument zero length.', 13, 0Thu Mar 24 11:31:55 2016 Page 865 6E 74 20 7A65 72 6F 20 6C65 6E 67 74 682E 0D 002556 FA0140 38 ?127: sec2557 FA0141 60 rts2558 FA0142 4A ?128: lsr a2559 FA0143 90 05 bcc ?1292560 FA0145 SCNPRINT2561 FA0145 02 01 cop $012562 .MNLIST2563 FA0147 3A 3A 00 .DB '::', 02564 FA014A 60 ?129: rts25652566 FA014B C8 ?130: iny ; check option2567 FA014C B7 76 lda [cmdlin],y2568 FA014E F0 1E beq ?135 ; missing option2569 FA0150 C9 20 cmp #' '2570 FA0152 F0 1A beq ?135 ; missing option2571 FA0154 BB tyx2572 FA0155 85 83 sta chopt ; store option char2573 FA0157 A0 00 ldy #0 ; scan option string2574 FA0159 B7 79 ?132: lda [optstr],y2575 FA015B F0 2D beq ?136 ; option not found2576 FA015D C5 83 cmp chopt2577 FA015F F0 04 beq ?134 ; found2578 FA0161 C8 iny2579 FA0162 C8 iny2580 FA0163 80 F4 bra ?1322581 FA0165 C8 ?134: iny2582 FA0166 B7 79 lda [optstr],y ; get option type2583 FA0168 85 85 sta opttyp2584 FA016A 9B txy2585 FA016B C8 iny2586 FA016C 18 clc2587 FA016D 60 rts2588 FA016E2589 FA016E A5 84 ?135: lda prsfg2590 FA0170 10 CE bpl ?1272591 FA0172 20 42 01 jsr ?1282592 FA0175 SCNPRINT2593 FA0175 02 01 cop $012594 .MNLIST2595 FA0177 6D 69 73 73 69 .DB 'missing option.', 13, 06E 67 20 6F 7074 69 6F 6E 2E0D 002596 FA0188 38 sec2597 FA0189 60 rts25982599 FA018A A5 84 ?136: lda prsfg2600 FA018C 10 B2 bpl ?1272601 FA018E 20 42 01 jsr ?1282602 FA0191 A5 83 lda chopt2603 FA0193 48 pha2604 FA0194 4B phk2605 FA0195 F4 9F 01 pea #!?138Thu Mar 24 11:31:55 2016 Page 92606 FA0198 A9 05 lda #52607 FA019A 48 pha2608 FA019B BPRINTF2609 FA019B 02 11 cop $112610 .MNLIST2611 FA019D 38 sec2612 FA019E 60 rts26132614 FA019F 69 6C 6C 65 67 ?138: .DB 'illegal option ''-%c''.', 13, 061 6C 20 6F 7074 69 6F 6E 2027 2D 25 63 272E 0D 0026152616 FA01B6 A6 85 ?140: ldx opttyp ; option type2617 FA01B8 B7 76 lda [cmdlin],y ; get char after option2618 FA01BA F0 0B beq ?142 ; no argument2619 FA01BC C9 20 cmp #' '2620 FA01BE F0 07 beq ?142 ; no argument2621 FA01C0 E0 20 cpx #' ' ; option requires an argument?2622 FA01C2 F0 0A beq ?144 ; no...so error2623 FA01C4 4C A0 00 jmp ?110 ; get argument2624 FA01C7 E0 20 ?142: cpx #' ' ; option requires an argument?2625 FA01C9 D0 45 bne ?148 ; yes...so error2626 FA01CB 4C E1 00 jmp ?119 ; bump command line ptr2627 FA01CE2628 FA01CE A5 84 ?144: lda prsfg2629 FA01D0 10 0F bpl ?1452630 FA01D2 20 42 01 jsr ?1282631 FA01D5 A5 83 lda chopt2632 FA01D7 48 pha2633 FA01D8 4B phk2634 FA01D9 F4 E3 01 pea #!?1462635 FA01DC A9 05 ?144a: lda #52636 FA01DE 48 pha2637 FA01DF BPRINTF2638 FA01DF 02 11 cop $112639 .MNLIST2640 FA01E1 38 ?145: sec2641 FA01E2 60 rts26422643 FA01E3 6F 70 74 69 6F ?146: .DB 'option ''-%c'' does not requires an argument.', 13, 06E 20 27 2D 2563 27 20 64 6F65 73 20 6E 6F74 20 72 65 7175 69 72 65 7320 61 6E 20 6172 67 75 6D 656E 74 2E 0D 0026442645 FA0210 A5 84 ?148: lda prsfg2646 FA0212 10 CD bpl ?1452647 FA0214 20 42 01 jsr ?1282648 FA0217 A5 83 lda chopt2649 FA0219 48 pha2650 FA021A 4B phkThu Mar 24 11:31:55 2016 Page 102651 FA021B F4 20 02 pea #!?1492652 FA021E 80 BC bra ?144a26532654 FA0220 6F 70 74 69 6F ?149: .DB 'option ''-%c'' requires an argument.', 13, 06E 20 27 2D 2563 27 20 72 6571 75 69 72 6573 20 61 6E 2061 72 67 75 6D65 6E 74 2E 0D0026552656 FA0244 A5 80 ?150: lda slen ; check single char argument2657 FA0246 C9 01 cmp #12658 FA0248 D0 0C bne ?1522659 FA024A A7 7C lda [dwres]2660 FA024C 85 7C sta dwres2661 FA024E 64 7D stz dwres+12662 FA0250 64 7E stz dwres+22663 FA0252 64 7F stz dwres+32664 FA0254 18 clc2665 FA0255 60 rts2666 FA0256 A5 84 ?152: lda prsfg2667 FA0258 10 0F bpl ?1542668 FA025A 20 42 01 jsr ?1282669 FA025D A5 83 lda chopt2670 FA025F 48 pha2671 FA0260 4B phk2672 FA0261 F4 6B 02 pea #!?1562673 FA0264 A9 05 lda #52674 FA0266 48 pha2675 FA0267 BPRINTF2676 FA0267 02 11 cop $112677 .MNLIST2678 FA0269 38 ?154: sec2679 FA026A 60 rts26802681 FA026B 6F 70 74 69 6F ?156: .DB 'option ''-%c'' requires a single character argument.', 13, 06E 20 27 2D 2563 27 20 72 6571 75 69 72 6573 20 61 20 7369 6E 67 6C 6520 63 68 61 7261 63 74 65 7220 61 72 67 756D 65 6E 74 2E0D 0026822683 FA029F 18 ?160: clc2684 FA02A0 60 rtsLines Assembled : 2635 Errors : 0