github.com/erkyrath.infocom-zcode-terps
1
0
Fork 0
mirror of https://github.com/erkyrath/infocom-zcode-terps.git synced 2026-03-03 01:58:03 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
master
erkyrath.infocom-zcode-terps/apple/yzip/rel.13/tables.asm
Andrew Plotkin b642da811e Initial commit.
2023-11-16 18:19:54 -05:00

330 lines
12 KiB
NASM
Raw Permalink Blame History

STTL "--- ZIP DATA TABLES ---"
PAGE
CHADR_H:
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db >C20,>C21,>C22,>C23,>C24,>C25,>C26,>C27
DB >C28,>C29,>C2A,>C2B,>C2C,>C2D,>C2E,>C2F
db >C30,>C31,>C32,>C33,>C34,>C35,>C36,>C37
DB >C38,>C39,>C3A,>C3B,>C3C,>C3D,>C3E,>C3F
db >C40,>C41,>C42,>C43,>C44,>C45,>C46,>C47
DB >C48,>C49,>C4A,>C4B,>C4C,>C4D,>C4E,>C4F
db >C50,>C51,>C52,>C53,>C54,>C55,>C56,>C57
DB >C58,>C59,>C5A,>C5B,>C5C,>C5D,>C5E,>C5F
db >C60,>C61,>C62,>C63,>C64,>C65,>C66,>C67
DB >C68,>C69,>C6A,>C6B,>C6C,>C6D,>C6E,>C6F
db >C70,>C71,>C72,>C73,>C74,>C75,>C76,>C77
DB >C78,>C79,>C7A,>C7B,>C7C,>C7D,>C7E
CHADR_L:
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db <C20,<C21,<C22,<C23,<C24,<C25,<C26,<C27
DB <C28,<C29,<C2A,<C2B,<C2C,<C2D,<C2E,<C2F
db <C30,<C31,<C32,<C33,<C34,<C35,<C36,<C37
DB <C38,<C39,<C3A,<C3B,<C3C,<C3D,<C3E,<C3F
db <C40,<C41,<C42,<C43,<C44,<C45,<C46,<C47
DB <C48,<C49,<C4A,<C4B,<C4C,<C4D,<C4E,<C4F
db <C50,<C51,<C52,<C53,<C54,<C55,<C56,<C57
DB <C58,<C59,<C5A,<C5B,<C5C,<C5D,<C5E,<C5F
db <C60,<C61,<C62,<C63,<C64,<C65,<C66,<C67
DB <C68,<C69,<C6A,<C6B,<C6C,<C6D,<C6E,<C6F
db <C70,<C71,<C72,<C73,<C74,<C75,<C76,<C77
DB <C78,<C79,<C7A,<C7B,<C7C,<C7D,<C7E
CHWID:
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 8,6,10,13,13,14,12,5,7,7,9,10,6,9,5,10
db 11,7,10,10,13,10,11,9,11,11,5,6,9,9,9,11,16,11,11,11,11
db 9,9,11,11,5,11,12,9,15,13,11,11,11,11,11,11,11,11
db 16,11,11,11,9,11,9,11,9,7,11,11,11,11,11,9,11,11,6,9,11,6
db 15,11,11,11,11,9,10,9,11,11,15,11,11,11,9,6,9,12
RADIX H ; make everything be hex
CHAR_TABLE EQU *
C20 DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 ;(SPACE)
C21 DB 78,78,78,78,78,00,78,00,00 ;! 5
C22 DB 73,80,73,80,73,80,00,00,00,00,00,00,00,00,00,00,00,00 ;" 9
C23 DB 39,c0,ff,f0,39,c0,39,c0,ff,f0,39,c0,00,00,00,00,00,00 ;# 12
C24 DB 06,00,7f,e0,e6,00,7f,e0,06,70,7f,e0,06,00,00,00,00,00 ;$ 12
C25 DB 78,e0,cd,c0,7b,80,07,00,0e,f0,1d,98,38,f0,00,00,00,00 ;% 13
C26 DB 7f,00,e3,80,e0,00,78,00,e0,e0,e1,c0,7f,80,00,00,00,00 ;& 11
C27 DB 70,70,70,00,00,00,00,00,00 ;' 4
C28 DB 1c,38,70,70,70,38,1c,00,00 ;( 6
C29 DB 70,38,1c,1c,1c,38,70,00,00 ;) 6
C2A DB db,3c,ff,3c,db,00,00,00,00 ;* 8
C2B DB 1c,00,1c,00,ff,80,1c,00,1c,00,00,00,00,00,00,00,00,00 ;+ 9
C2C DB 00,00,00,00,00,38,38,18,70 ;, 5
C2D DB 00,00,00,ff,00,00,00,00,00 ;- 8
C2E DB 00,00,00,00,00,70,70,00,00 ;. 4
C2F DB 03,80,07,00,0e,00,1c,00,38,00,70,00,e0,00,00,00,00,00 ;/ 9
C30 DB 1f,00,3b,80,71,c0,71,c0,71,c0,3b,80,1f,00,00,00,00,00 ;0 10
C31 DB 1c,7c,1c,1c,1c,1c,1c,00,00 ;1 6
C32 DB 3f,00,63,80,06,80,0e,00,1c,00,70,00,7f,80,00,00,00,00 ;2 9
C33 DB 7f,80,03,00,06,00,1f,00,03,80,63,80,3f,00,00,00,00,00 ;3 9
C34 DB 07,c0,0f,c0,1d,c0,39,c0,71,c0,7f,f0,01,c0,00,00,00,00 ;4 12
C35 DB 7f,80,78,00,78,00,7f,00,03,80,63,80,3f,00,00,00,00,00 ;5 9
C36 DB 1f,80,38,00,70,00,7f,80,71,c0,71,c0,3f,80,00,00,00,00 ;6 10
C37 DB 7f,07,07,0e,1c,1c,1c,00,00 ;7 8
C38 DB 3f,80,71,c0,71,c0,3f,80,71,c0,71,c0,3f,80,00,00,00,00 ;8 10
C39 DB 3f,80,71,c0,71,c0,3f,c0,01,c0,03,80,3f,00,00,00,00,00 ;9 10
C3A DB 00,00,70,70,00,70,70,00,00 ;: 4
C3B DB 00,00,38,38,00,38,38,18,70 ;; 5
C3C DB 00,0e,38,e0,38,0e,00,00,00 ;< 8
C3D DB 00,00,7f,00,7f,00,00,00,00 ;= 8
C3E DB 00,70,1c,07,1c,70,00,00,00 ;> 8
C3F DB 3f,80,71,c0,03,80,0e,00,0e,00,00,00,0e,00,00,00,00,00 ;? 10
C40 DB 1f,f8,e0,0e,e3,e7,e6,77,e6,77,e3,bc,e0,00,1f,f8,00,00 ;@ 16
C41 DB 3f,80,71,c0,71,c0,7f,c0,71,c0,71,c0,71,c0,00,00,00,00 ;A 10
C42 DB 7f,80,71,c0,71,c0,7f,00,71,c0,71,c0,7f,80,00,00,00,00 ;B 10
C43 DB 3f,80,71,c0,70,00,70,00,70,00,71,c0,3f,80,00,00,00,00 ;C 10
C44 DB 7f,80,71,c0,71,c0,71,c0,71,c0,71,c0,7f,80,00,00,00,00 ;D 10
C45 DB 7f,70,70,7f,70,70,7f,00,00 ;E 8
C46 DB 7f,70,70,7e,70,70,70,00,00 ;F 8
C47 DB 3f,80,71,c0,70,00,73,c0,71,c0,71,c0,3f,80,00,00,00,00 ;G 10
C48 DB 71,c0,71,c0,71,c0,7f,c0,71,c0,71,c0,71,c0,00,00,00,00 ;H 10
C49 DB 70,70,70,70,70,70,70,00,00 ;I 4
C4A DB 01,c0,01,c0,01,c0,01,c0,71,c0,71,c0,3f,80,00,00,00,00 ;J 10
C4B DB 70,e0,71,c0,73,80,7f,00,73,80,71,c0,70,e0,00,00,00,00 ;K 11
C4C DB 70,70,70,70,70,70,7f,00,00 ;L 8
C4D DB 78,3c,7c,7c,7e,fc,77,dc,73,9c,70,1c,70,1c,00,00,00,00 ;M 14
C4E DB 78,70,7c,70,7e,70,77,70,73,f0,71,f0,70,f0,00,00,00,00 ;N 12
C4F DB 3f,80,71,c0,71,c0,71,c0,71,c0,71,c0,3f,80,00,00,00,00 ;O 10
C50 DB 7f,80,71,c0,71,c0,7f,80,70,00,70,00,70,00,00,00,00,00 ;P 10
C51 DB 3f,80,71,c0,71,c0,71,c0,71,c0,71,c0,3f,00,03,c0,00,00 ;Q 10
C52 DB 7f,80,71,c0,71,c0,7f,00,71,c0,71,c0,71,c0,00,00,00,00 ;R 10
C53 DB 3f,80,71,c0,78,00,1f,00,03,c0,71,c0,3f,80,00,00,00,00 ;S 10
C54 DB 7f,c0,0e,00,0e,00,0e,00,0e,00,0e,00,0e,00,00,00,00,00 ;T 10
C55 DB 71,c0,71,c0,71,c0,71,c0,71,c0,71,c0,1f,00,00,00,00,00 ;U 10
C56 DB 71,c0,71,c0,71,c0,71,c0,73,80,77,00,7e,00,00,00,00,00 ;V 10
C57 DB 71,c7,71,c7,71,c7,71,c7,71,c7,71,dc,7f,f8,00,00,00,00 ;W 16
C58 DB 71,c0,71,c0,71,c0,1f,00,71,c0,71,c0,71,c0,00,00,00,00 ;X 10
C59 DB 71,c0,71,c0,71,c0,3f,80,0e,00,0e,00,0e,00,00,00,00,00 ;Y 10
C5A DB 7f,c0,01,c0,03,80,0e,00,38,00,70,00,7f,c0,00,00,00,00 ;Z 10
C5B DB 7f,70,70,70,70,70,7f,00,00 ;[ 8
C5C DB 70,00,38,00,1c,00,0e,00,07,00,03,80,01,c0,00,00,00,00 ;\ 10
C5D DB 7f,07,07,07,07,07,7f,00,00 ;] 8
C5E DB 00,00,0c,00,3f,00,e1,c0,00,00,00,00,00,00,00,00,00,00 ;^ 10
C5F DB 00,00,00,00,00,00,00,ff,00 ;_ 8
C60 DB 70,38,1c,00,00,00,00,00,00 ;` 6
C61 DB 00,00,00,00,3f,80,01,c0,3f,c0,71,c0,3f,c0,00,00,00,00 ;a 10
C62 DB 70,00,70,00,7f,80,71,c0,71,c0,71,c0,7f,80,00,00,00,00 ;b 10
C63 DB 00,00,00,00,3f,80,71,c0,70,00,71,c0,3f,80,00,00,00,00 ;c 10
C64 DB 01,c0,01,c0,3f,c0,71,c0,71,c0,71,c0,3f,c0,00,00,00,00 ;d 10
C65 DB 00,00,00,00,3f,80,79,c0,7f,c0,70,00,3f,80,00,00,00,00 ;e 10
C66 DB 0f,1c,7f,1c,1c,1c,1c,00,00 ;f 8
C67 DB 00,00,00,00,3f,c0,71,c0,71,c0,71,c0,3f,c0,01,c0,3f,80 ;g 10
C68 DB 70,00,70,00,7f,80,71,c0,71,c0,71,c0,71,c0,00,00,00,00 ;h 10
C69 DB 70,00,70,70,70,70,70,00,00 ;i 5
C6A DB 0e,00,0e,0e,0e,0e,0e,0e,7c ;j 8
C6B DB 70,00,70,00,71,c0,73,80,7f,00,73,80,71,c0,00,00,00,00 ;k 10
C6C DB 70,70,70,70,70,70,70,00,00 ;l 5
C6D DB 00,00,00,00,7f,fc,73,9c,73,9c,73,9c,73,9c,00,00,00,00 ;m 14
C6E DB 00,00,00,00,7f,80,71,c0,71,c0,71,c0,71,c0,00,00,00,00 ;n 10
C6F DB 00,00,00,00,3f,80,71,c0,71,c0,71,c0,3f,80,00,00,00,00 ;o 10
C70 DB 00,00,00,00,7f,80,71,c0,71,c0,71,c0,7f,80,70,00,70,00 ;p 10
C71 DB 00,00,00,00,3f,80,71,c0,71,c0,71,c0,3f,c0,01,c0,01,c0 ;q 10
C72 DB 00,00,77,7c,70,70,70,00,00 ;r 8
C73 DB 00,00,00,00,3f,00,70,00,1e,00,03,80,3f,00,00,00,00,00 ;s 9
C74 DB 1c,1c,7f,1c,1c,1c,0f,00,00 ;t 8
C75 DB 00,00,00,00,71,c0,71,c0,71,c0,71,c0,3f,c0,00,00,00,00 ;u 10
C76 DB 00,00,00,00,71,c0,71,c0,73,80,77,00,7e,00,00,00,00,00 ;v 10
C77 DB 00,00,00,00,73,9c,73,9c,73,9c,73,9c,7f,f8,00,00,00,00 ;w 14
C78 DB 00,00,00,00,71,c0,71,c0,1f,00,71,c0,71,c0,00,00,00,00 ;x 10
C79 DB 00,00,00,00,71,c0,71,c0,71,c0,71,c0,3f,c0,01,c0,3f,80 ;y 10
C7A DB 00,00,00,00,7f,c0,03,80,0e,00,38,00,7f,c0,00,00,00,00 ;z 10
C7B DB 1f,38,38,f0,38,38,1f,00,00 ;} 8
C7C DB 70,70,70,70,70,70,70,70,70 ;| 5
C7D DB f8,1c,1c,0f,1c,1c,f8,00,00 ;} 8
C7E DB 00,00,00,00,3c,e0,e7,80,00,00,00,00,00,00,00,00,00,00 ;~ 11
;
; base addresses for the screen lines
;
BASEL:
DB 00,00,00,00,00,00,00,00
DB 80,80,80,80,80,80,80,80
DB 00,00,00,00,00,00,00,00
DB 80,80,80,80,80,80,80,80
DB 00,00,00,00,00,00,00,00
DB 80,80,80,80,80,80,80,80
DB 00,00,00,00,00,00,00,00
DB 80,80,80,80,80,80,80,80
DB 28,28,28,28,28,28,28,28
DB A8,A8,A8,A8,A8,A8,A8,A8
DB 28,28,28,28,28,28,28,28
DB A8,A8,A8,A8,A8,A8,A8,A8
DB 28,28,28,28,28,28,28,28
DB A8,A8,A8,A8,A8,A8,A8,A8
DB 28,28,28,28,28,28,28,28
DB A8,A8,A8,A8,A8,A8,A8,A8
DB 50,50,50,50,50,50,50,50
DB D0,D0,D0,D0,D0,D0,D0,D0
DB 50,50,50,50,50,50,50,50
DB D0,D0,D0,D0,D0,D0,D0,D0
DB 50,50,50,50,50,50,50,50
DB D0,D0,D0,D0,D0,D0,D0,D0
DB 50,50,50,50,50,50,50,50
DB D0,D0,D0,D0,D0,D0,D0,D0
BASEH:
DB 20,24,28,2C,30,34,38,3C
DB 20,24,28,2C,30,34,38,3C
DB 21,25,29,2D,31,35,39,3D
DB 21,25,29,2D,31,35,39,3D
DB 22,26,2A,2E,32,36,3A,3E
DB 22,26,2A,2E,32,36,3A,3E
DB 23,27,2B,2F,33,37,3B,3F
DB 23,27,2B,2F,33,37,3B,3F
DB 20,24,28,2C,30,34,38,3C
DB 20,24,28,2C,30,34,38,3C
DB 21,25,29,2D,31,35,39,3D
DB 21,25,29,2D,31,35,39,3D
DB 22,26,2A,2E,32,36,3A,3E
DB 22,26,2A,2E,32,36,3A,3E
DB 23,27,2B,2F,33,37,3B,3F
DB 23,27,2B,2F,33,37,3B,3F
DB 20,24,28,2C,30,34,38,3C
DB 20,24,28,2C,30,34,38,3C
DB 21,25,29,2D,31,35,39,3D
DB 21,25,29,2D,31,35,39,3D
DB 22,26,2A,2E,32,36,3A,3E
DB 22,26,2A,2E,32,36,3A,3E
DB 23,27,2B,2F,33,37,3B,3F
DB 23,27,2B,2F,33,37,3B,3F
;
; this gives the bit offset for each one
;
XBITTBL:
DB 0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
DB 4,1,5,2,6,3,0
RADIX D
ZIPCOLOR: db 0,1,6,7,$C,$B,$E,$F
APLCOLOR: db 2,3,$FF,$FF,$FF,$FF,4,5,$FF,$FF,$FF,7,$FF,$FF,8,9
OLDZV:
;
; Variables that used to be in the zero page but got moved out
;
PSVFLG EQU OLDZV ; (BYTE) PRESERVE FLAG FOR LEX 0=DON'T 1=DO
VOCFLG EQU PSVFLG+1 ; (BYTE) WHICH VOC TBL, 0=NORMAL 1= ARG3
DBLOCK EQU VOCFLG+1 ; (WORD) Z-BLOCK TO READ
QUOT EQU DBLOCK+2 ; (WORD) QUOTIENT FOR DIVISION
REMAIN EQU QUOT+2 ; (WORD) REMAINDER FOR DIVISION
QSIGN EQU REMAIN+2 ; (BYTE) SIGN OF QUOTIENT
RSIGN EQU QSIGN+1 ; (BYTE) SIGN OF REMAINDER
DIGITS EQU RSIGN+1 ; (BYTE) DIGIT COUNT FOR "PRINTN"
OLDLEN EQU DIGITS+1 ; (BYTE) OLD LINE LENGTH
OLDEND EQU OLDLEN+1 ; (BYTE) OLD LAST CHAR IN [LBUFF]
SPSTAT EQU OLDEND+1 ; (BYTE) SPLIT SCREEN STATUS FLAG
LFROM EQU SPSTAT+1 ; (WORD) "FROM" LINE ADDRESS
LTO EQU LFROM+2 ; (WORD) "TO" LINE ADDRESS
PRLEN EQU LTO+2 ; (BYTE) SCRIPT LINE LENGTH
GPOSIT EQU PRLEN+1 ; (BYTE) DEFAULT SAVE POSITION
GDRIVE EQU GPOSIT+1 ; (BYTE) DEFAULT SAVE DRIVE
TPOSIT EQU GDRIVE+1 ; (BYTE) TEMP SAVE POSITION
TDRIVE EQU TPOSIT+1 ; (BYTE) TEMP SAVE DRIVE
TSLOT EQU TDRIVE+1 ; (BYTE) TEMP SAVE SLOT
DRIVE EQU TSLOT+1 ; (BYTE) CURRENT DRIVE
SIDEFLG EQU DRIVE+1 ; (BYTE) which disk side are we on
SRHOLD EQU SIDEFLG+1 ; (WORD) <>0 if doing sequential random
SCRIPTF EQU SRHOLD+2 ; (BYTE) DIROUT FLAG FOR PRINTER OUTPUT
SCRIPTFLG EQU SCRIPTF+1 ; (BYTE) Does window allow scripting?
OLDZSP EQU SCRIPTFLG+1 ; (WORD)
CURSFLG EQU OLDZSP+2 ; (BYTE) 1==New cursor X for DLINE
DBLK EQU CURSFLG+1 ; (WORD)
RDTBL1 EQU DBLK+2 ; (WORD) READ TABLE 1 (Game Relative)
RDTBL2 EQU RDTBL1+2 ; (WORD) READ TABLE 2
NENTS EQU RDTBL2+2 ; (WORD) # ENTRIES IN VOCAB TABLE
DIRITM EQU NENTS+2 ; (WORD) OFFSET IN OUTPUT TBL (DIRTBL)
DIRCNT EQU DIRITM+2 ; (WORD) COUNT OF CHARS IN TBL (DIRTBL)
SVTCHAR EQU DIRCNT+2 ; (WORD) Old TCHARS table address
VOCMPC EQU SVTCHAR+2 ; (3 BYTES) Save for vocabulary MPC
VCESVE EQU VOCMPC+3 ; (3 BYTES) Save for VOCEND
VWLSVE EQU VCESVE+3 ; (3 BYTES) Save for VOCLEN
DIDVTBL EQU VWLSVE+3 ; (BYTE) <>0 if we have done default table
IN EQU DIDVTBL+1 ; (9 BYTES) INPUT BUFFER
OUT EQU IN+9 ; (9 BYTES) OUTPUT BUFFER
CURSOR_OFF EQU OUT+9 ; (BYTE) ==1 if char cursor not to be on
CRLF_CHECK EQU CURSOR_OFF+1 ; (BYTE) ==1 to do CRLF function check
PTR_COUNT EQU CRLF_CHECK+1 ; (BYTE) ==0 if checking pointer movement
INFODOS_END EQU PTR_COUNT+1 ; (WORD) last segment of infodos special
OLDZVLEN EQU INFODOS_END-PSVFLG+2 ; this is how much to reserve
BLKB OLDZVLEN,0 ; and zero it out
; ------------------
; ERROR MESSAGE STRINGS
; ------------------
E27: db E27L
db "Disk I/O Error"
E27L EQU $-E27-1
E2B: db E2BL
db "Disk write protected"
E2BL EQU $-E2B-1
E40: db E40L
db "Bad Filename"
E40L EQU $-E40-1
E44: db E44L
db "Path not found"
E44L: EQU $-E44-1
E45: db E45L
db "Volume not found"
E45L EQU $-E45-1
E46: db E46L
db "File Not Found"
E46L EQU $-E46-1
E48: db E48L
db "Disk Full"
E48L EQU $-E48-1
E49: db E49L
db "LaneDOS limit: 12 files/directory"
E49L EQU $-E49-1
E4E: db E4EL
db "LaneDOS limit: No writes to TREE files"
E4EL EQU $-E4E-1
E4C: db E4CL
db "Unexpected EOF"
E4CL EQU $-E4C-1
ELIST: db $27
dw E27
db $2B
dw E2B
db $40
dw E40
db $44
dw E44
db $45
dw E45
db $46
dw E46
db $48
dw E48
db $49
dw E49
db $4C
dw E4C
db $4E
dw E4E
ELISTL EQU $-ELIST-3 ; mark last error code
END
Reference in New Issue View Git Blame Copy Permalink