![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zequates.src CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Infocom source] / coco|
Return to zequates.src CVS log | Up to [Infocom source] / coco |
1.1 ! root 1: PAGE ! 2: SBTTL "--- MEMORY ORGANIZATION ---" ! 3: ! 4: TRUE EQU $FF ! 5: FALSE EQU 0 ! 6: ! 7: DSTART EQU 0 ; START OF DIRECT-PAGE RAM ! 8: ! 9: MSTACK EQU MSTART+$FE ; TOP OF MACHINE STACK (254 BYTES) ! 10: IOBUFF EQU MSTART+$100 ; 256-BYTE DISK I/O BUFFER ! 11: ZSTACK EQU MSTART+$200 ; Z-STACK (255 WORDS) ! 12: ZSTAKL EQU 255 ; LENGTH OF Z-STACK IN WORDS ! 13: TOPSTA EQU (2*ZSTAKL)+ZSTACK ; TOP OF Z-STACK ! 14: PTABLE EQU MSTART+$400 ; PAGING TABLE ($140 BYTES/$A0 WORDS) ! 15: LRUMAP EQU MSTART+$550 ; TIMESTAMP MAP ($A0 BYTES) ! 16: LOCALS EQU MSTART+$600 ; LOCAL VARIABLE STORAGE (32 BYTES) ! 17: BUFFER EQU MSTART+$620 ; I/O LINE BUFFER (32 BYTES) ! 18: BUFSAV EQU MSTART+$640 ; I/O AUX BUFFER (32 BYTES) ! 19: ZIP EQU MSTART+$700 ; START OF EXECUTABLE CODE ! 20: ZCODE EQU ZIP+$1700 ; START OF Z-CODE (ASSUME 5.75K ZIP) ! 21: ! 22: ; Z-CODE HEADER OFFSETS ! 23: ! 24: ZVERS EQU 0 ; VERSION BYTE ! 25: ZMODE EQU 1 ; MODE SELECT BYTE ! 26: ZID EQU 2 ; GAME ID WORD ! 27: ZENDLD EQU 4 ; START OF NON-PRELOADED Z-CODE ! 28: ZBEGIN EQU 6 ; EXECUTION ADDRESS ! 29: ZVOCAB EQU 8 ; START OF VOCABULARY TABLE ! 30: ZOBJEC EQU 10 ; START OF OBJECT TABLE ! 31: ZGLOBA EQU 12 ; START OF GLOBAL VARIABLE TABLE ! 32: ZPURBT EQU 14 ; START OF "PURE" Z-CODE ! 33: ZSCRIP EQU 16 ; FLAG WORD ! 34: ZSERIA EQU 18 ; 3-WORD ASCII SERIAL NUMBER ! 35: ZFWORD EQU 24 ; START OF FWORDS TABLE ! 36: ZLENTH EQU 26 ; LENGTH OF Z-PROGRAM IN WORDS ! 37: ZCHKSM EQU 28 ; Z-CODE CHECKSUM WORD ! 38: ! 39: PAGE ! 40: SBTTL "--- ZIP D-PAGE VARIABLES ---" ! 41: ! 42: OPCODE EQU DSTART ; CURRENT OPCODE ! 43: ARGCNT EQU OPCODE+1 ; # ARGUMENTS ! 44: ARG1 EQU OPCODE+2 ; ARGUMENT #1 (WORD) ! 45: ARG2 EQU OPCODE+4 ; ARGUMENT #2 (WORD) ! 46: ARG3 EQU OPCODE+6 ; ARGUMENT #3 (WORD) ! 47: ARG4 EQU OPCODE+8 ; ARGUMENT #4 (WORD) ! 48: ! 49: LRU EQU OPCODE+10 ; (BYTE) LEAST RECENTLY USED PAGE INDEX ! 50: ZPURE EQU LRU+1 ; (BYTE) 1ST VIRTUAL PAGE OF PURE Z-CODE ! 51: PMAX EQU LRU+2 ; (BYTE) MAXIMUM # SWAPPING PAGES ! 52: ZPAGE EQU LRU+3 ; (BYTE) CURRENT SWAPPING PAGE ! 53: PAGE0 EQU LRU+4 ; (BYTE) 1ST ABS PAGE OF SWAPPING SPACE ! 54: TABTOP EQU LRU+5 ; (WORD) ADDRESS OF LAST P-TABLE ENTRY ! 55: STAMP EQU LRU+7 ; (BYTE) CURRENT TIMESTAMP (BM 11/24/84) ! 56: SWAP EQU LRU+8 ; (BYTE) EARLIEST BUFFER (BM 11/24/84) ! 57: ! 58: ZPCH EQU LRU+9 ; HIGHEST-ORDER BIT OF PC ! 59: ZPCM EQU ZPCH+1 ; MIDDLE 8 BITS OF PC ! 60: ZPCL EQU ZPCH+2 ; LOWER 8 BITS OF PC ! 61: ZPCPNT EQU ZPCH+3 ; POINTER TO ACTUAL PC PAGE (WORD) ! 62: ZPCFLG EQU ZPCH+5 ; FLAG: "TRUE" IF ZPCPNT VALID ! 63: ! 64: MPCH EQU ZPCH+7 ; HIGHEST-ORDER BIT OF MEM POINTER ! 65: MPCM EQU MPCH+1 ; MIDDLE 8 BITS OF MEM POINTER ! 66: MPCL EQU MPCH+2 ; LOW-ORDER 8 BITS OF MEMORY POINTER ! 67: MPCPNT EQU MPCH+3 ; ACTUAL POINTER TO MEMORY (WORD) ! 68: MPCFLG EQU MPCH+5 ; FLAG: "TRUE" IF MPCPNT VALID ! 69: ! 70: GLOBAL EQU MPCH+7 ; GLOBAL VARIABLE POINTER (WORD) ! 71: VOCAB EQU GLOBAL+2 ; VOCAB TABLE POINTER (WORD) ! 72: FWORDS EQU GLOBAL+4 ; FWORDS TABLE POINTER (WORD) ! 73: ! 74: OZSTAK EQU GLOBAL+6 ; ZSP SAVE REGISTER (FOR ZCALL) ! 75: ! 76: CSTEMP EQU OZSTAK+2 ; SET IF TEMP CHARSET IN EFFECT ! 77: CSPERM EQU CSTEMP+1 ; CURRENT PERM CHARSET ! 78: STBYTF EQU CSTEMP+2 ; 0=1ST, 1=2ND, 2=3RD, 0=LAST ! 79: ! 80: ZSTWRD EQU CSTEMP+3 ; WORD STORAGE (WORD) ! 81: ZSTBUI EQU ZSTWRD+2 ; Z-STRING INPUT BUFFER (6 BYTES) ! 82: ZSTBUO EQU ZSTWRD+8 ; Z-STRING OUTPUT BUFFER (6 BYTES) ! 83: RTABP EQU ZSTWRD+14 ; RESULT TABLE POINTER ! 84: STABP EQU ZSTWRD+15 ; SOURCE TABLE POINTER ! 85: PZSTFO EQU ZSTWRD+16 ; FWORD TABLE BLOCK OFFSET ! 86: ! 87: VAL EQU ZSTWRD+17 ; VALUE RETURN REGISTER (WORD) ! 88: TEMP EQU VAL+2 ; TEMPORARY REGISTER (WORD) ! 89: TEMP2 EQU VAL+4 ; ANOTHER TEMPORARY REGISTER (WORD) ! 90: MASK EQU VAL+6 ; BIT-MASK REGISTER (WORD) ! 91: SQUOT EQU VAL+8 ; SIGN OF QUOTIENT ! 92: SREM EQU VAL+9 ; SIGN OF REMAINDER ! 93: MTEMP EQU VAL+10 ; MATH TEMP REGISTER (WORD) ! 94: ! 95: DRIVE EQU VAL+12 ; DRIVE NUMBER ! 96: DBUFF EQU DRIVE+1 ; DISK I/O BUFFER POINTER (WORD) ! 97: DBLOCK EQU DRIVE+3 ; Z-BLOCK # (WORD) ! 98: TRACK EQU DRIVE+5 ; TRACK/SECTOR ADDRESS (WORD) ! 99: ! 100: TIMEFL EQU DRIVE+7 ; "TRUE" IF TIME MODE ! 101: ! 102: CHRPNT EQU TIMEFL+1 ; I/O BUFFER INDEX ! 103: CPSAV EQU CHRPNT+1 ; SAVE REGISTER FOR [CHRPNT] ! 104: BINDEX EQU CHRPNT+2 ; BUFFER DISPLAY INDEX ! 105: LINCNT EQU CHRPNT+3 ; # LINES DISPLAYED SINCE LAST USL ! 106: IOCHAR EQU CHRPNT+4 ; CURRENT I/O CHARACTER ! 107: GDRIVE EQU CHRPNT+5 ; GAME-SAVE DEFAULT DRIVE # ! 108: GPOSIT EQU CHRPNT+6 ; GAME-SAVE DEFAULT POSITION ! 109: RAND1 EQU CHRPNT+7 ; RANDOM NUMBER REGISTER ! 110: RAND2 EQU CHRPNT+8 ; DITTO ! 111: CYCLE EQU CHRPNT+9 ; TIMER FOR CURSOR BLINK (WORD) ! 112: BLINK EQU CHRPNT+11 ; MASK FOR CURSOR BLINK ! 113: CFLAG EQU CHRPNT+12 ; CURSOR ENABLE FLAG ! 114: SCRIPT EQU CHRPNT+13 ; SCRIPTING ENABLE FLAG ! 115: IHOLD EQU CHRPNT+14 ; INTERRUPT HOLD ! 116: TPOSIT EQU CHRPNT+15 ; TEMP GAME POSITION ! 117: TDRIVE EQU CHRPNT+16 ; TEMP GAME DRIVE ! 118: ! 119: ZPGTOP EQU CHRPNT+15 ; END OF DIRECT-PAGE VARIABLES ! 120: ! 121: END ! 122:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.