Mercurial > hg > Members > kono > nitros9-code
changeset 1421:148d610f55a4
Start of 6809izatino of code
| author | boisy |
|---|---|
| date | Mon, 01 Dec 2003 02:46:42 +0000 |
| parents | e0d84a845d1a |
| children | 59187a65f10c |
| files | 3rdparty/packages/multivue/cmds_6809/gshell.asm |
| diffstat | 1 files changed, 286 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/3rdparty/packages/multivue/cmds_6809/gshell.asm Sun Nov 30 23:24:19 2003 +0000 +++ b/3rdparty/packages/multivue/cmds_6809/gshell.asm Mon Dec 01 02:46:42 2003 +0000 @@ -1,8 +1,6 @@ nam GShell Graphics Shell ttl Source derived by Kent D. Meyers. - IFNE H6309 - * Signal handlers will have to handle new RBF call for directory updates * DIR has to be open (uses path #), but can be in READ+DIR mode * Renames, etc. will have to close DIR 1st, do function, re-open. @@ -358,7 +356,12 @@ stx >MEMEND Save as end of data memory ptr leay ,U Point Y to start of data area bsr MAIN Call main GSHELL routine + IFNE H6309 clrd No error & exit + ELSE + clra + clrb + ENDC std ,--s lbra EXIT @@ -544,7 +547,13 @@ rts * Shut cursor & scaling off -CURSCLOF clrd +CURSCLOF + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC pshs d ldb 5,S pshs d @@ -719,7 +728,13 @@ WAITRTN2 lbra WAITLOOP * Same screen overlay shell -LETTERS clrd +LETTERS + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC pshs d pshs d No parameter for calling program incb @@ -824,7 +839,12 @@ pshs U lbsr UNSLICON Bad dir, unselect drive leas 2,S + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std SELECTED Current device=none ldd 2,S Did user have a different drive selected before? beq ICONEXT2 No, exit @@ -928,7 +948,12 @@ lbsr UNSLICON Unselect icon lbsr ENBLSOFF Shut all FILES menu items off leas 2,S + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std SELECTED Set selected file/device to none ICONEXIT leas 4,S puls U,PC @@ -1004,7 +1029,13 @@ EXECAIFP pshs d Save ptr to parms string lbsr STPREFIX Prefix that onto Fork line string leas 2,S -EXECAIF2 clrd +EXECAIF2 + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC pshs d,U ldd ID.MNAME,U Get ptr to module name to fork pshs d @@ -1085,7 +1116,12 @@ std ,S Save it lbsr UNSLICON Unselect the current drive leas 2,S + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std STRTICON Set ptr to start icon for screen to NONE std SELECTED Current selected icon to NONE std DEVICNOW Current selected device to NONE @@ -1102,7 +1138,12 @@ * Entry: 0-1,s RTS address * 2-3,s ptr to GD.* (process table entry ptr) to kill KILPDESC pshs U + IFNE H6309 clrd No entry found yet + ELSE + clra + clrb + ENDC pshs d Save it ldu PTBLSPTR Get ptr to start of process descriptor table beq KILPDS00 None, exit @@ -1217,7 +1258,12 @@ lbsr PUTSTRNG leas 2,S std GD.MNAME,U Save ptr to module name + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std GD.MTYPE,U Default stuff to zeros std GD.INDVC,U ??? to 0 std GD.PRCID,U Process ID # to 0 @@ -1263,7 +1309,12 @@ lbsr GCSETOFF Shut graphics cursor off lbsr MOUSOFF Shut mouse off lbsr WIPICONS Wipe icons off screen (should not touch dir bar) + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std SELECTED 0 out currently selected icon ptr ldd MAXICONS Get # icons/screen muld SCREENOW Multiply by screen set # @@ -1273,11 +1324,20 @@ DRAWSCR1 ldu FL.LINK,U DRAWSCR2 ldd 2,S Get screen set # we want to print + IFNE H6309 decd Base 0 + ELSE + subd #$0001 + ENDC std 2,S Save it back bge DRAWSCR1 If not 1st, skip ahead stu STRTICON Save ptr to 1st icon on current screen + IFNE H6309 clrd + ELSE + clra + clrb + ENDC bra DRAWSCR4 DRAWSCR3 pshs U @@ -1285,7 +1345,11 @@ leas 2,S ldu FL.LINK,U ldd 2,S + IFNE H6309 incd + ELSE + addd #$0001 + ENDC DRAWSCR4 std 2,S stu -2,S beq DRAWSCR5 @@ -1323,7 +1387,13 @@ leas 3,s Eat stack decb Base 0 for scroll bar SETSTAT call bge NotNeg not negative, skip ahead -Force0 clrd Force to 0 +Force0 + IFNE H6309 + clrd Force to 0 + ELSE + clra + clrb + ENDC NotNeg cmpb #20 Past end? bls DRAWSCR6 No, good, so update scroll bars ldb #20 Force to 20 @@ -1378,7 +1448,12 @@ lbsr CWAREA Clear out interior window lbsr CLRSCRN lbsr FULLSCRN Full interior window size (except border) + IFNE H6309 clrd Redo scroll bars at 0,0 + ELSE + clra + clrb + ENDC std 4,S std 2,S lbsr ST.SBAR @@ -1390,7 +1465,12 @@ ldb #$ff Flag that we have to redo icons stb WIPED bsr WIPICONS Wipe icons off screen (leave current dir border) + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std FILESCTR # files in current dir=0 ldb #PTR.SLP Hourglass ptr pshs d,X,Y @@ -1469,7 +1549,11 @@ std DIRPTR CLASTEST ldd ,S Get # of dir entries in this 2k block + IFNE H6309 decd Subtract 1 + ELSE + subd #$0001 + ENDC std ,S bge CLASSIFY Still going, classify file type, otherwise, get next 2k block @@ -1502,11 +1586,21 @@ fcb NUL * Count # of screens to hold icons -CNTSCRNS clrd +CNTSCRNS + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC std SCREENOW Set current "screen" of icons to 0 (1st) ldd FILESCTR Get # files current dir beq CNTSCRN2 zero, save & exit + IFNE H6309 decd + ELSE + subd #$0001 + ENDC divd MAXICONS+1 Divide by # icons/"screen" clra 16 bit result CNTSCRN2 std NSCREENS Save # of icon "screens" & return @@ -1771,8 +1865,15 @@ bne Minus9 leax -16,x ldd FL.XSTRT,u Get original icon start again + IFNE H6309 lsld Put column # in A lsld + ELSE + lslb + rola + lslb + rola + ENDC AdjLoop leax 2,x 2 pixels per column deca bne AdjLoop @@ -2084,7 +2185,12 @@ FILE.XXX pshs U ldu 4,S Get ptr to file table entry leas -64,S Make large buffer on stack + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std 28,S ldd FL.FNAME,U Get ptr to filename pshs d @@ -2185,9 +2291,18 @@ ldd NXTICONO,Y ldx 22+6,S std ,X + IFNE H6309 incd + ELSE + addd #$0001 + ENDC std NXTICONO,Y + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std ID.LINK,X ldd #24 std ,S @@ -2217,7 +2332,12 @@ leas 2,S FILEXXX2 ldd 30,S bge FILEXXX3 + IFNE H6309 clrd + ELSE + clra + clrb + ENDC bra FILEXXX6 FILEXXX3 ldd 28,S @@ -2278,7 +2398,12 @@ ISIT.AIF ldx 2,S ldd ,X++ + IFNE H6309 andd #$5f5f + ELSE + anda #$5f + andb #$5f + ENDC cmpd #"AI bne ISITAIF4 ldd ,X @@ -3265,7 +3390,12 @@ FLSORT lbsr SUREBOX6 std -2,S beq FLSORT1 + IFNE H6309 clrd + ELSE + clra + clrb + ENDC pshs d pshs d No parameter for program pshs d No overlay window @@ -4104,7 +4234,13 @@ * Select off of the TANDY menu * Entry: 0-1,s = RTS parameter * 2-3,s = Menu item # selected -TNDYSLCT clrd Put 4 zero bytes on stack +TNDYSLCT + IFNE H6309 + clrd Put 4 zero bytes on stack + ELSE + clra + clrb + ENDC pshs D pshs D ldb 7,S Get 1 byte version of menu item selected @@ -4420,7 +4556,12 @@ pshs d lbsr ST.RELEA leas 2,S + IFNE H6309 clrd Clear out signal received & return + ELSE + clra + clrb + ENDC std <RECDSGNL rts @@ -4540,7 +4681,11 @@ lbsr SETSGNLS tst RECDSGNL+1 bne SUREBOX0 + IFNE H6309 tfr 0,x Sleep for remainder of tick (ldx #0 for 6809) + ELSE + ldx #$0000 + ENDC os9 F$SLEEP SUREBOX0 leas 16,S ldd RECDSGNL @@ -4659,7 +4804,13 @@ bsr OLAYIOPS lbra ISC128K5 -OLAYBERR clrd +OLAYBERR + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC puls U,PC OLAYIOPS pshs U @@ -4667,7 +4818,12 @@ bsr IOOPTSON ldd WNDWPATH Get GSHELL window path std GD.WPATH,U Save as window path for forked program + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std GD.SCRNO,U Screen # 0 incb std GD.DW.OW,U ??? to 1 @@ -4723,7 +4879,11 @@ decb OLAYGNB1 std 6,S Save overlay window width ldd 20,S ??? + IFNE H6309 incd + ELSE + addd #$0001 + ENDC std 20,S leax ,S Where we are going to store Y size pshs X @@ -4833,7 +4993,12 @@ beq INPTQUIT Yes, abort input cmpb #MOUSIGNL Mouse signal? bne INPTKYBD No, skip ahead (must be keyboard) + IFNE H6309 clrd Mouse signal, abort input & return + ELSE + clra + clrb + ENDC bra INPTEXIT INPTKYBD cmpb #KYBDSGNL Keyboard signal? @@ -4853,7 +5018,12 @@ ldd WNDWPATH pshs D,X lbsr I.READ Read 1 key from keyboard (hot key) + IFNE H6309 clrd exit + ELSE + clra + clrb + ENDC leas 8,S rts @@ -5331,7 +5501,12 @@ * >128k RAM, try to make new window??? ISCR512K pshs U ldu 4,S Get ptr to current GD (forked process table) structure + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std ACTVSCRN Current active screen to none std DWSETSTY New window type to none ldx 6,S @@ -5357,7 +5532,13 @@ cmpa #25 routine bne ISC512K6 * New window is full size goes here -ISC512K3 clrd Default window x,y start to 0,0 +ISC512K3 + IFNE H6309 + clrd Default window x,y start to 0,0 + ELSE + clra + clrb + ENDC std GD.XSTRT,U std GD.YSTRT,U ldd #319 Default to 320 X pixel size @@ -5428,7 +5609,11 @@ bsr DIVDX8 std 4,S ldd GD.XEND,U Save X window size + IFNE H6309 incd + ELSE + addd #$0001 + ENDC bsr DIVDX8 subd 4,S std 8,S @@ -6212,14 +6397,24 @@ leas 2,S FIXDRTBX ldx <DRTBLPTR + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std <SELECTED std FL.LINK-FL.SIZE,X ldd <DEVICNOW beq FIXDRTB1 cmpx <DEVICNOW bhi FIXDRTB1 + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std <DEVICNOW std <STRTICON lbsr ENFREFL1 @@ -6293,7 +6488,13 @@ ldb 3,S beq CHGDEVC4 stu FL.LINK-FL.SIZE,U -CHGDEVC4 clrd +CHGDEVC4 + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC std FL.LINK,U leau FL.SIZE,U ldb 3,S @@ -6374,7 +6575,13 @@ rts * Draw border stuff for current dir, re-title dir bar -WRITDBAR clrd +WRITDBAR + IFNE H6309 + clrd + ELSE + clra + clrb + ENDC pshs d ldx #39 39,0 for 1st coord (relative to window inside border) ldd WNDWPATH @@ -6399,7 +6606,12 @@ ldb #GRP.FNT std 2,S lbsr FONT Set font to special GSHELL font set + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std 4,S ldb #6 std 2,S @@ -6420,7 +6632,12 @@ ldb #GRP.FNT std 2,S lbsr FONT Text cursor to 10,0 + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std 4,S ldb #10 std 2,S @@ -6494,16 +6711,29 @@ MALLOC pshs D,U Preserve regs ldd 6,S Get # bytes to be allocated addd #3 nbytes + sizeof(HEADER) - 1 + IFNE H6309 lsrd div by sizeof(HEADER) (4 bytes) lsrd incd result+1 + ELSE + lsra + rorb + lsra + rorb + addd #$0001 + ENDC std ,S nunits = result (units allocated seems to be 4 byte chunks) ldx ALLOCP,Y q = allocp (Get current value) bne MALLOC1 if not 0 (If not zero, it has been initialized) ldx #BASE q = &base (Initialize it to BASE) stx ALLOCP,Y allocp = q = &base stx BASE,Y base.ptr = .... = &base (BASE points to itself) + IFNE H6309 clrd + ELSE + clra + clrb + ENDC std BASE+2,Y base.size = 0 (it's size=0) MALLOC1 ldu ,X p = q->ptr (Get ptr to current allocp (last mem entry?) bra MALLOC3 @@ -6538,7 +6768,12 @@ bne MALLOC2 lbsr MORECORE nunits above return addr (Get more data mem) bne MALLOC2 if (p = .... == 0) (Get mem failed?) + IFNE H6309 clrd set up zero for return + ELSE + clra + clrb + ENDC MALLOC7 leas 2,S puls U,PC @@ -6660,7 +6895,12 @@ F.NML1 bcc F.NML2 puls X,Y stb ERRNO+1,Y + IFNE H6309 clrd + ELSE + clra + clrb + ENDC rts F.NML2 sty [10,S] @@ -6703,7 +6943,13 @@ * Exit: [,x] child's exit code * D=0 - if [,x] ptr was 0 * else D= Child's proces # -F.WAIT clrd Wait for signal +F.WAIT + IFNE H6309 + clrd Wait for signal + ELSE + clra + clrb + ENDC os9 F$WAIT bcs OS9ERR2 Error, save error code & return (no child process) ldx 2,S Get ptr to ??? @@ -6737,7 +6983,12 @@ READ1 bcc WRITE10 cmpb #E$EOF EOF error? bne WRITERR No, report error + IFNE H6309 clrd If EOF error, report 0 bytes read + ELSE + clra + clrb + ENDC puls Y,PC * Read line: Exits with D=# bytes read @@ -6874,7 +7125,13 @@ bne STRNCMP4 No, exit with <> tstb End of string early? bne STRNCMP1 No, continue comparing -STRNCMP2 clrd Exit with = +STRNCMP2 + IFNE H6309 + clrd Exit with = + ELSE + clra + clrb + ENDC puls X,U,PC * If done up to max length, compare last chars of each string @@ -7020,7 +7277,12 @@ bcs SCSIZERR stx [8,S] Save X size (by pointer) sty [10,S] Save Y size (by pointer) + IFNE H6309 clrd + ELSE + clra + clrb + ENDC bra SCSIZEXT SCSIZERR ldy 2,S Get data area pointer back @@ -7249,7 +7511,12 @@ * Exit: D=signed 16 bit value ATOI pshs U Preserve U ldu 4,S Get ptr to text to convert + IFNE H6309 clrd Clear carry, and default # to 0 + ELSE + clra + clrb + ENDC pshs CC,d,dp CC=storage for current ASC char, dp=sign, D=current result ATOI1 ldb ,U+ Get 1st ascii character stb ,S Save it @@ -7407,7 +7674,12 @@ rts SYSRET bcs OS9ERR + IFNE H6309 clrd + ELSE + clra + clrb + ENDC rts EXIT @@ -7992,7 +8264,3 @@ emod MODSIZE equ * end - - ELSE -* 6809 version - ENDC