; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; mdrQydkc`|R 1991.10.24(THU) ; ;-------------------------------------------------------------------- ; ORG 0CFC40H ; ;=============================================== (zel_code1) ============ GLB GRDCDD,DJCDITST ;======================================================================== ; EXTEND MEM8 IDX8 ; ; ; ; ;************************************************************************ ;* [ GROUND ] * ;* Character code data * ;* (A:1 , a:3 , B:2 , C:0) * ;************************************************************************ GRDCDD EQU $ ; read code data ; 0 1 2 3 4 5 6 7 8 9 A B C D E F HEX 27,27,27,27,27,27,02,02,01,01,01,00,00,00,00,00 ; 00 HEX 27,01,01,01,01,01,02,02,27,27,27,00,00,00,00,00 ; 01 HEX 27,01,01,01,20,01,02,02,27,27,27,00,00,00,00,00 ; 02 HEX 27,01,01,01,01,20,02,02,02,02,02,00,00,00,00,00 ; 03 HEX 01,01,01,01,1A,01,12,01,01,02,01,01,28,2E,2A,2B ; 04 HEX 01,01,18,18,1A,01,12,01,01,2C,02,2D,29,2F,02,02 ; 05 HEX 01,01,01,01,01,01,02,01,02,2E,00,00,2C,00,4E,4F ; 06 HEX 01,01,01,01,01,01,02,01,02,00,2E,00,00,00,02,22 ; 07 HEX 01,01,02,00,00,00,18,12,02,02,00,48,00,00,00,00 ; 08 HEX 01,01,02,00,01,01,10,1A,02,00,00,48,00,00,00,00 ; 09 HEX 10,10,02,00,01,01,01,01,00,00,48,00,00,09,00,00 ; 0A HEX 02,02,02,00,01,01,2B,00,00,09,00,00,00,00,00,00 ; 0B HEX 01,01,01,01,01,01,02,02,02,02,02,02,02,00,00,00 ; 0C HEX 01,01,01,01,01,01,02,02,02,02,02,02,02,00,00,00 ; 0D HEX 01,01,01,46,01,01,02,02,02,02,02,02,02,00,00,00 ; 0E HEX 01,01,01,01,01,01,02,02,02,02,02,02,02,00,00,00 ; 0F HEX 02,02,42,02,02,02,02,02,02,02,29,22,00,00,00,00 ; 10 HEX 02,02,02,02,02,02,02,02,02,02,29,22,00,00,00,00 ; 11 HEX 02,02,02,02,02,02,02,02,02,02,00,00,00,00,00,00 ; 12 HEX 02,02,02,02,02,02,02,02,02,02,00,00,00,00,00,00 ; 13 HEX 01,01,01,01,01,01,01,01,01,01,01,00,00,00,02,44 ; 14 HEX 01,01,01,01,01,01,01,01,02,02,02,00,00,00,02,44 ; 15 HEX 01,01,01,01,01,01,01,01,02,02,02,00,00,00,00,00 ; 16 HEX 01,01,43,01,01,01,01,01,02,02,02,00,00,00,00,00 ; 17 HEX 50,02,54,51,57,57,56,56,27,27,27,00,40,40,48,48 ; 18 HEX 50,02,54,51,57,2A,56,56,27,27,27,00,40,40,57,48 ; 19 HEX 27,02,52,53,02,01,12,18,55,55,00,00,48,02,02,00 ; 1A HEX 27,02,52,53,09,01,1A,10,55,55,00,00,48,02,02,00 ; 1B HEX 02,02,18,08,08,08,09,09,08,08,29,02,02,02,1A,02 ; 1C HEX 08,08,10,08,12,00,09,09,09,09,09,48,09,29,00,4B ; 1D HEX 02,02,02,00,08,02,02,00,00,00,00,01,00,00,20,00 ; 1E HEX 02,02,02,02,02,02,02,00,00,01,01,01,02,00,08,00 ; 1F ; ; ; ; ; ;************************************************************************ ;* [ DANJYON ] * ;* Character code data * ;* (A:1 , a:3 , B:2 , C:0) * ;************************************************************************ RDCODE1 EQU $ ; read code data ; 0 1 2 3 4 5 6 7 8 9 A B C D E F HEX 01,01,01,00,02,01,02,00,01,01,02,02,02,02,02,02 ; 00 HEX 02,02,02,00,00,01,00,00,02,00,00,02,02,02,02,02 ; 01 HEX 02,02,02,02,01,01,01,02,02,02,02,02,01,01,00,00 ; 02 HEX 02,02,02,02,02,02,01,02,02,02,02,02,01,01,00,00 ; 03 HEX 00,00,00,2A,01,20,01,01,04,01,01,18,01,02,1C,01 ; 04 HEX 28,28,2A,2A,01,02,01,01,04,00,00,00,28,01,0A,00 ; 05 HEX 01,01,0C,0C,02,02,02,02,28,2A,20,20,20,02,08,00 ; 06 HEX 04,04,01,01,01,02,02,02,00,00,20,20,00,02,00,00 ; 07 HEX 01,01,01,01,01,01,01,01,01,01,01,01,01,01,02,02 ; 08 HEX 01,01,01,01,01,01,01,01,01,01,18,10,10,01,01,01 ; 09 HEX 01,01,04,04,04,04,04,04,01,02,02,00,00,00,00,00 ; 0A HEX 01,01,01,01,01,01,01,01,01,01,01,01,01,01,02,02 ; 0B HEX 00,00,00,00,00,00,00,00,00,00,00,00,00,00,62,62 ; 0C HEX 00,00,24,24,00,00,00,00,00,00,00,00,00,00,62,62 ; 0D HEX 27,02,02,02,27,27,01,00,00,00,00,24,00,00,00,00 ; 0E HEX 27,27,27,27,27,10,02,01,00,00,00,24,00,00,00,00 ; 0F HEX 27,02,02,02,27,27,27,27,02,02,02,24,00,00,00,00 ; 10 HEX 27,27,27,27,27,20,02,02,01,02,02,23,02,00,00,00 ; 11 HEX 27,27,27,27,27,20,02,27,02,54,00,00,27,02,02,02 ; 12 HEX 27,27,27,27,27,27,02,27,02,54,00,00,27,02,02,02 ; 13 ;;;;;;;; HEX 01,01,02,02,02,02,6E,6F,02,6C,02,02,01,01,01,01 ; 14 ;;;;;;;; HEX 02,02,02,02,02,02,02,02,02,02,02,02,01,01,01,01 ; 15 ;;;;;;;; HEX 02,02,01,01,01,01,6E,6F,01,6C,01,01,02,02,02,02 ; 16 ;;;;;;;; HEX 00,00,22,00,00,02,02,02,02,02,02,02,02,02,02,02 ; 17 ;;;;;;;; HEX 01,01,01,01,02,02,02,02,02,18,00,00,00,00,00,00 ; 18 ;;;;;;;; HEX 01,01,01,01,02,02,02,02,02,00,00,00,00,00,00,00 ; 19 ;;;;;;;; HEX 02,02,02,02,02,02,02,02,02,00,00,00,00,00,00,00 ; 1A ;;;;;;;; HEX 02,02,02,02,02,02,02,02,02,00,00,00,00,00,00,00 ; 1B HEX 27,27,00,27,60,60,01,01,01,01,02,02,0D,00,00,4B ; 1C HEX 67,67,67,67,66,66,66,66,00,00,20,20,20,20,20,20 ; 1D HEX 27,63,27,55,55,01,44,00,01,20,02,02,1C,3A,3B,00 ; 1E HEX 27,63,27,53,53,01,44,01,0D,00,00,00,09,09,09,09 ; 1F ; ; ; ; ; ; ;************************************************************************ ;* Danjyon code init. set (DJCDITST) * ;************************************************************************ DJCDITST EQU $ MEM16 REP #00100000B ; memory 16bit mode ; LDX #03EH DCIS40 EQU $ LDA >RDCODE1+000H,X STA >RDCODE0+000H,X LDA >RDCODE1+040H,X STA >RDCODE0+040H,X LDA >RDCODE1+080H,X STA >RDCODE0+080H,X LDA >RDCODE1+0C0H,X STA >RDCODE0+0C0H,X LDA >RDCODE1+100H,X STA >RDCODE0+100H,X LDA >RDCODE1+140H,X STA >RDCODE0+1C0H,X DEX DEX BPL DCIS40 ; ; ; MEM8 SEP #00100000B ; memory 8bit mode RTL ; ; ; ; ; ; ; ; END