Mercurial > hg > Members > kono > nitros9-code
changeset 2946:06508da42c98
pacos: Add code and bss sections, lwlink style
And add list of exported symbols in main90.as as well as an __os9
section for the module header values.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sat, 08 Feb 2014 01:03:30 +0100 |
| parents | 582b5b7232c0 |
| children | 0c06bcfccc82 |
| files | 3rdparty/packages/pacos9/board90.as 3rdparty/packages/pacos9/caged90.as 3rdparty/packages/pacos9/check90.as 3rdparty/packages/pacos9/ghosts90.as 3rdparty/packages/pacos9/main90.as 3rdparty/packages/pacos9/movpac90.as 3rdparty/packages/pacos9/score90.as 3rdparty/packages/pacos9/scrns90.as 3rdparty/packages/pacos9/setup90.as |
| diffstat | 9 files changed, 103 insertions(+), 29 deletions(-) [+] |
line wrap: on
line diff
--- a/3rdparty/packages/pacos9/board90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/board90.as Sat Feb 08 01:03:30 2014 +0100 @@ -13,9 +13,7 @@ STACK EQU 100 - PSECT BOARD,0,0,0,STACK,BOARDC - - VSECT + SECTION bss * Local variables @@ -26,6 +24,7 @@ ENDSECT + SECTION code * These are the FCB's for board #1
--- a/3rdparty/packages/pacos9/caged90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/caged90.as Sat Feb 08 01:03:30 2014 +0100 @@ -13,9 +13,7 @@ STACK EQU 100 - PSECT Caged,0,0,0,STACK,GHCHCK - - VSECT + SECTION bss * Lcoal Variables @@ -65,6 +63,7 @@ ENDSECT + SECTION code * Ghost is caged, so check timer value
--- a/3rdparty/packages/pacos9/check90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/check90.as Sat Feb 08 01:03:30 2014 +0100 @@ -12,9 +12,7 @@ STACK EQU 100 - PSECT Check,0,0,2,STACK,CHECKS - - VSECT + SECTION bss * Lcoal Variables @@ -24,6 +22,7 @@ ENDSECT + SECTION code PALST1: fcb $1b,$31,3,18 fcb $1b,$31,4,36
--- a/3rdparty/packages/pacos9/ghosts90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/ghosts90.as Sat Feb 08 01:03:30 2014 +0100 @@ -12,9 +12,7 @@ STACK EQU 250 - PSECT Ghosts,0,0,2,STACK,GHCHCK - - VSECT + SECTION bss * Lcoal Variables @@ -23,6 +21,7 @@ ENDSECT + SECTION code * Subtract 20 from ghost counter * Then check ghost status to determine what action
--- a/3rdparty/packages/pacos9/main90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/main90.as Sat Feb 08 01:03:30 2014 +0100 @@ -10,20 +10,97 @@ * use /dd/defs/os9defs.a ENDc + SECTION __os9 TYPE EQU $11 Prgrm($10)+Objct($01) ATTR EQU $80 REEntrent -REVS EQU $01 Revision level -ATREV EQU ATTR+REVS +REV EQU $01 Revision level + ENDSECT + EDITION EQU 2 EDITION #2 STACK EQU 500 UPDAT EQU 3 - PSECT MAIN,TYPE,ATREV,EDITION,STACK,PAC - - VSECT + SECTION bss * Local and global variables +ARRAY EXPORT +ARREND EXPORT +BONBUF EXPORT +BONCNT EXPORT +BONFLG EXPORT +BONTAB EXPORT +BONTIM EXPORT +BONTMP EXPORT +BONUSX EXPORT +BONUSY EXPORT +BRDNUM EXPORT +BRDTMP EXPORT +BTEMP EXPORT +BUFF EXPORT +BUTTON EXPORT +CYCLE EXPORT +DOTTMP EXPORT +DOTTOT EXPORT +EXTPAC EXPORT +EXTPC2 EXPORT +G1OFST EXPORT +G2OFST EXPORT +G3OFST EXPORT +G4OFST EXPORT +GCOUNT EXPORT +GHTABL EXPORT +GHTHIT EXPORT +HITFLG EXPORT +HSCASC EXPORT +JOYSTX EXPORT +JOYSTY EXPORT +MOVFLG EXPORT +PACMAN EXPORT +PACMN1 EXPORT +PACMN2 EXPORT +PALBT1 EXPORT +PATH2 EXPORT +PATH EXPORT +PBFN EXPORT +PCBFN EXPORT +PCXLOC EXPORT +PCYLOC EXPORT +PDBFN EXPORT +PDXLOC EXPORT +PDYLOC EXPORT +PGBFN EXPORT +PGXLOC EXPORT +PGYLOC EXPORT +PLAYRS EXPORT +PLCRNT EXPORT +POFSET EXPORT +POINTS EXPORT +PORT EXPORT +POWFLG EXPORT +PROCID EXPORT +PUTGHS EXPORT +PUTPACM EXPORT +PXLOC EXPORT +PXNEW EXPORT +PYLOC EXPORT +PYNEW EXPORT +RESPON EXPORT +SCNFLG EXPORT +SCNNUM EXPORT +SCNTOT EXPORT +SCRASC EXPORT +SCRBCD EXPORT +SCRPO2 EXPORT +SCRPOS EXPORT +SHCNT EXPORT +SNDPR1 EXPORT +SNDPR2 EXPORT +STRING EXPORT +STRLGH EXPORT +TABLE1 EXPORT +TABLE2 EXPORT + SIGCODE RMB 1 Intercept signal RMB PATH: RMB 1 Screen path number PATH2: RMB 1 Second screen path number @@ -203,6 +280,8 @@ ENDSECT + SECTION code + PTHLST FCS "/W" DWSET FCB $1B,$20,08,00,00,40,24,01,02,02 DWEND FCB $1B,$24 @@ -347,6 +426,8 @@ FCB $1b,$32,12,45,62,$1b,$32,10 +__start EXPORT +__start * Open window #1 PAC lda #UPDAT Set for OPEN with UPDATE leax PTHLST,pcr Point to addr of Path list
--- a/3rdparty/packages/pacos9/movpac90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/movpac90.as Sat Feb 08 01:03:30 2014 +0100 @@ -14,9 +14,7 @@ STACK EQU 100 - PSECT MOVPAC,0,0,2,STACK,MVPAC - - VSECT + SECTION bss * Local variables @@ -24,6 +22,7 @@ ENDSECT + SECTION code MVPAC: nop
--- a/3rdparty/packages/pacos9/score90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/score90.as Sat Feb 08 01:03:30 2014 +0100 @@ -12,9 +12,7 @@ STACK EQU 100 - PSECT SCORE,0,0,2,STACK,SBEGIN - - VSECT + SECTION bss * Local Variables @@ -32,6 +30,8 @@ ENDSECT + SECTION code + FILLST: fcc '/dd/sys/pac_scores' WRTNBY fcb 2,37,33,87,114,105,116,116
--- a/3rdparty/packages/pacos9/scrns90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/scrns90.as Sat Feb 08 01:03:30 2014 +0100 @@ -13,9 +13,7 @@ STACK EQU 100 - PSECT SCRNS,0,0,2,STACK,DELPAC - - VSECT + SECTION bss * Local variables @@ -23,6 +21,7 @@ ENDSECT + SECTION code ERSCRN fcb 2,32,33,$0B
--- a/3rdparty/packages/pacos9/setup90.as Sat Feb 08 01:03:26 2014 +0100 +++ b/3rdparty/packages/pacos9/setup90.as Sat Feb 08 01:03:30 2014 +0100 @@ -9,9 +9,7 @@ STACK EQU 100 - PSECT SETUP,0,0,0,STACK,SETUPB - - VSECT + SECTION bss * Local variables @@ -26,6 +24,7 @@ ENDSECT + SECTION code * The following fcb's,(up to SETLEN), will be put * in Group Buffer #= (Process ID)