.FILE "wrespal.asm" .OPTION B,D,L,T .include "macros.h" .DATA .even SUBR HRTPNK_P .word 64 .word 00000h,07f9ah,07b16h,07ef3h,076b2h,06e90h,06e6fh,06670h .word 06a4eh,0624eh,0662dh,05e2eh,0660bh,05e0ch,05debh,055edh .word 051cah,05586h,04daah,04988h,04967h,04126h,03d25h,03904h .word 034e4h,030a2h,02ca3h,02482h,02441h,01863h,01021h,00800h .word 07fffh,077bdh,06f7bh,06739h,05ef7h,056b5h,04e73h,04631h .word 03defh,035adh,02d6bh,02529h,01ce7h,014a5h,00c63h,00421h .word 07f5fh,07edeh,07e5dh,079dah,07977h,07135h,06d13h,068f2h .word 060b1h,05c90h,0586fh,0502dh,0480bh,0400ah,03406h,02c03h SUBR HRTBLU_P .word 64 .word 00000h,07f9ah,07b16h,07ef3h,076b2h,06e90h,06e6fh,06670h .word 06a4eh,0624eh,0662dh,05e2eh,0660bh,05e0ch,05debh,055edh .word 051cah,05586h,04daah,04988h,04967h,04126h,03d25h,03904h .word 034e4h,030a2h,02ca3h,02482h,02441h,01863h,01021h,00800h .word 07fffh,077bdh,06f7bh,06739h,05ef7h,056b5h,04e73h,04631h .word 03defh,035adh,02d6bh,02529h,01ce7h,014a5h,00c63h,00421h .word 02fbfh,02b3fh,02abeh,0263bh,025d8h,01d96h,01974h,01553h .word 00d12h,008f1h,004d0h,0008eh,0006ch,0004bh,00027h,00024h SUBR HRTGRN_P .word 64 .word 00H,07F9AH,07B16H,07EF3H,076B2H,06E90H,06E6FH,06670H .word 06A4EH,0624EH,0662DH,05E2EH,0660BH,05E0CH,05DEBH,055EDH .word 051CAH,05586H,04DAAH,04988H,04967H,04126H,03D25H,03904H .word 034E4H,030A2H,02CA3H,02482H,02441H,01863H,01021H,0800H .word 07FFFH,077BDH,06F7BH,06739H,05EF7H,056B5H,04E73H,04631H .word 03DEFH,035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H .word 06B7AH,05755H,04330H,02F2BH,01F07H,0EE3H,02C0H,0280H .word 0260H,0220H,01E0H,01A0H,0180H,0140H,0100H,0E0H SUBR HRTPRP_P .word 64 .word 00H,07F9AH,07B16H,07EF3H,076B2H,06E90H,06E6FH,06670H .word 06A4EH,0624EH,0662DH,05E2EH,0660BH,05E0CH,05DEBH,055EDH .word 051CAH,05586H,04DAAH,04988H,04967H,04126H,03D25H,03904H .word 034E4H,030A2H,02CA3H,02482H,02441H,01863H,01021H,0800H .word 07FFFH,077BDH,06F7BH,06739H,05EF7H,056B5H,04E73H,04631H .word 03DEFH,035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H .word 06F7BH,06ADBH,06A5BH,065BBH,0613BH,0609BH,05C3BH,05018H .word 04816H,04013H,03410H,02C0EH,0240BH,01C08H,01006H,0803H SUBR RZRPRP_P .word 64 .word 00000h,07fdeh,04a50h,041edh,035cdh,02d8ch,01d07h,018e6h .word 014c5h,010a4h,00c83h,00862h,00821h,00000h,07ffeh,07fdah .word 07f98h,07f55h,07f54h,07f35h,07f12h,07ef3h,07ed0h,07ed1h .word 07ad2h,07eafh,07e8eh,07290h,0766eh,0724eh,06a4eh,06e2dh .word 0620ch,065eah,05debh,05dcah,059cah,055a8h,05188h,04d67h .word 04125h,04502h,038e3h,03461h,02061h,01c20h,01000h,07fe8h .word 07fa0h,07ee0h,065e0h,03d80h,0701ch,06419h,05415h,04812h .word 04010h,0380eh,0340dh,0300ch,02c0bh,02409h,01c07h,01405h .if 0 SUBR RZRGRN_P .word 64 .word 00000h,07fdeh,04a50h,041edh,035cdh,02d8ch,01d07h,018e6h .word 014c5h,010a4h,00c83h,00862h,00821h,00000h,07ffeh,07fdah .word 07f98h,07f55h,07f54h,07f35h,07f12h,07ef3h,07ed0h,07ed1h .word 07ad2h,07eafh,07e8eh,07290h,0766eh,0724eh,06a4eh,06e2dh .word 0620ch,065eah,05debh,05dcah,059cah,055a8h,05188h,04d67h .word 04125h,04502h,038e3h,03461h,02061h,01c20h,01000h,07fe8h .word 07fa0h,07ee0h,065e0h,03d80h,00785h,00323h,002a1h,00240h .word 00200h,001c0h,001a0h,00180h,00160h,00120h,000e0h,000a0h .endif SUBR RZRRED_P .word 64 .word 00H,07FDEH,04A50H,041EDH,035CDH,02D8CH,01D07H,018E6H .word 014C5H,010A4H,0C83H,0862H,0821H,00H,07FFEH,07FDAH .word 07F98H,07F55H,07F54H,07F35H,07F12H,07EF3H,07ED0H,07ED1H .word 07AD2H,07EAFH,07E8EH,07290H,0766EH,0724EH,06A4EH,06E2DH .word 0620CH,065EAH,05DEBH,05DCAH,059CAH,055A8H,05188H,04D67H .word 04125H,04502H,038E3H,03461H,02061H,01C20H,01000H,07FE8H .word 07FA0H,07EE0H,065E0H,03D80H,07610H,0714AH,06CA5H,06C00H .word 06000H,05400H,04800H,04000H,03400H,02800H,02000H,01400H SUBR RZRBLU_P .word 64 .word 00H,07FDEH,04A50H,041EDH,035CDH,02D8CH,01D07H,018E6H .word 014C5H,010A4H,0C83H,0862H,0821H,00H,07FFEH,07FDAH .word 07F98H,07F55H,07F54H,07F35H,07F12H,07EF3H,07ED0H,07ED1H .word 07AD2H,07EAFH,07E8EH,07290H,0766EH,0724EH,06A4EH,06E2DH .word 0620CH,065EAH,05DEBH,05DCAH,059CAH,055A8H,05188H,04D67H .word 04125H,04502H,038E3H,03461H,02061H,01C20H,01000H,07FE8H .word 07FA0H,07EE0H,065E0H,03D80H,02E7EH,01E1DH,011BCH,095AH .word 0119H,0D6H,093H,070H,04DH,02AH,027H,025H SUBR UNDNEG_P .word 64 .word 00000h,00000h,00421h,00842h,00c63h,014a5h,018c6h,01ce7h .word 02529h,0294ah,0318ch,035adh,039ceh,04210h,04631h,04a52h .word 05294h,056b5h,05ef7h,06318h,06739h,06f7bh,0739ch,00421h .word 00842h,00c63h,014a5h,018c6h,01ce7h,02108h,0294ah,02d6bh .word 0318ch,039ceh,03defh,04210h,04a52h,04e73h,05294h,05ad6h .word 05ef7h,06318h,06b5ah,06f7bh,0739ch,07bdeh,00421h,00842h .word 01084h,014a5h,01ce7h,02529h,0294ah,0318ch,035adh,03defh .word 04210h,04a52h,05294h,056b5h,05ef7h,06318h,06b5ah,0739ch .if 0 SUBR UNDPRP_P .word 64 .word 018d5h,07bbbh,07b77h,076f3h,06eb0h,0666fh,05e2dh,051ebh .word 049cbh,045a9h,04167h,03947h,03d25h,03d03h,03105h,030e3h .word 028c3h,02c80h,02081h,01861h,01840h,01420h,00c00h,07fffh .word 06b39h,06717h,062f6h,05ad5h,05272h,04a51h,0420fh,03deeh .word 039cdh,035ach,0318bh,0316ah,02949h,02107h,01ce6h,014c5h .word 014a4h,00c83h,00862h,00841h,00441h,00420h,0781eh,0701ch .word 0681ah,06419h,05c17h,05415h,05014h,04812h,04010h,0380eh .word 0340dh,02c0bh,02409h,02008h,01806h,01004h,00c03h,00401h .endif SUBR UNDBLK_P .word 64 .word 018d5h,07bbbh,07b77h,076f3h,06eb0h,0666fh,05e2dh,051ebh .word 049cbh,045a9h,04167h,03947h,03d25h,03d03h,03105h,030e3h .word 028c3h,02c80h,02081h,01861h,01840h,01420h,00c00h,07fffh .word 06b39h,06717h,062f6h,05ad5h,05272h,04a51h,0420fh,03deeh .word 039cdh,035ach,0318bh,0316ah,02949h,02107h,01ce6h,014c5h .word 014a4h,00c83h,00862h,00841h,00441h,00420h,0739ch,06b5ah .word 06318h,05ef7h,056b5h,05294h,04a52h,04631h,03defh,039ceh .word 0318ch,0294ah,02529h,01ce7h,018c6h,01084h,00c63h,00421h SUBR UNDGRN_P SUBR UNDBLU_P .word 64 .word 00H,07BBBH,07B77H,076F3H,06EB0H,0666FH,05E2DH,051EBH .word 049CBH,045A9H,04167H,03947H,03D25H,03D03H,03105H,030E3H .word 028C3H,02C80H,02081H,01861H,01840H,01420H,0C00H,07FFFH .word 06B39H,06717H,062F6H,05AD5H,05272H,04A51H,0420FH,03DEEH .word 039CDH,035ACH,0318BH,0316AH,02949H,02107H,01CE6H,014C5H .word 014A4H,0C83H,0862H,0841H,0441H,0420H,0125FH,0E1FH .word 09DFH,099FH,095FH,093DH,091BH,08F9H,095H,073H .word 051H,02FH,02DH,0BH,09H,07H,06H,04H .if 0 SUBR YOKRED_P .word 64 .word 00000h,07fffh,0739ch,06b5ah,06318h,05ad6h,05294h,04a52h .word 04210h,039ceh,0318ch,0294ah,02108h,014a5h,00c63h,00421h .word 00400h,07f9ah,07b14h,07ef1h,07acfh,076b0h,0768eh,06e4bh .word 06a4dh,0622ch,0660bh,05a0ch,059eah,051a8h,05187h,04988h .word 04966h,04124h,04102h,03904h,038e2h,030a1h,03480h,02881h .word 02840h,02400h,01400h,07e91h,07daah,07905h,070c3h,06ce4h .word 064a2h,06081h,05ca2h,05860h,05840h,05460h,05040h,04c60h .word 04c40h,04420h,04000h,03c20h,03c00h,03400h,02c00h,02000h .endif SUBR YOKPRP_P .word 64 .word 00000h,07fffh,0739ch,06b5ah,06318h,05ad6h,05294h,04a52h .word 04210h,039ceh,0318ch,0294ah,02108h,014a5h,00c63h,00421h .word 00400h,07f9ah,07b14h,07ef1h,07acfh,076b0h,0768eh,06e4bh .word 06a4dh,0622ch,0660bh,05a0ch,059eah,051a8h,05187h,04988h .word 04966h,04124h,04102h,03904h,038e2h,030a1h,03480h,02881h .word 02840h,02400h,01400h,06e9bh,06dbbh,0691ah,060d8h,05cf7h .word 054b5h,05094h,04cb3h,04872h,04852h,04471h,04050h,03c6fh .word 03c4fh,0342dh,0300ch,02c2bh,02c0bh,02409h,01c07h,01004h SUBR YOKBLU_P .word 64 .word 00H,07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02108H,014A5H,0C63H,0421H .word 0400H,07F9AH,07B14H,07EF1H,07ACFH,076B0H,0768EH,06E4BH .word 06A4DH,0622CH,0660BH,05A0CH,059EAH,051A8H,05187H,04988H .word 04966H,04124H,04102H,03904H,038E2H,030A1H,03480H,02881H .word 02840H,02400H,01400H,0267FH,01E3FH,015DFH,0D9FH,053FH .word 0DFH,0BEH,0BDH,09BH,079H,077H,056H,054H .word 032H,030H,0FH,0DH,0BH,09H,08H,06H SUBR YOKGRN_P .word 64 .word 00H,07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02108H,014A5H,0C63H,0421H .word 0400H,07F9AH,07B14H,07EF1H,07ACFH,076B0H,0768EH,06E4BH .word 06A4DH,0622CH,0660BH,05A0CH,059EAH,051A8H,05187H,04988H .word 04966H,04124H,04102H,03904H,038E2H,030A1H,03480H,02881H .word 02840H,02400H,01400H,043B0H,0338CH,02789H,01B66H,0B62H .word 0340H,0320H,02E0H,02C0H,02A0H,0280H,0240H,0220H .word 0200H,01C0H,01C0H,01A0H,0160H,0140H,0120H,0E0H .if 0 SUBR SHNRED_P .word 63 .word 018d5h,07fddh,07f98h,07f58h,07f34h,07ad1h,07ab0h,0768fh .word 06e90h,06e6eh,06e4dh,0622ch,05e0ch,059eah,05dc9h,055cah .word 051a8h,04d89h,04d87h,04567h,04925h,04124h,03925h,03d03h .word 038e2h,038c1h,030e4h,030c3h,03480h,02460h,02420h,01c40h .word 01400h,00400h,076d6h,0720fh,06dabh,07128h,070c5h,06c42h .word 06800h,06400h,05800h,05000h,04800h,03800h,02800h,01800h .word 07fffh,0739ch,06b5ah,06318h,05ad6h,05294h,04631h,03defh .word 035adh,02d6bh,02529h,01ce7h,014a5h,00c63h,00421h .endif SUBR SHNPRP_P .word 63 .word 018d5h,07fddh,07f98h,07f58h,07f34h,07ad1h,07ab0h,0768fh .word 06e90h,06e6eh,06e4dh,0622ch,05e0ch,059eah,05dc9h,055cah .word 051a8h,04d89h,04d87h,04567h,04925h,04124h,03925h,03d03h .word 038e2h,038c1h,030e4h,030c3h,03480h,02460h,02420h,01c40h .word 01400h,00400h,076d6h,07210h,06dabh,064b9h,05c77h,05816h .word 05415h,04c13h,04410h,03c0eh,0340ch,02409h,01405h,00401h .word 07fffh,0739ch,06b5ah,06318h,05ad6h,05294h,04631h,03defh .word 035adh,02d6bh,02529h,01ce7h,014a5h,00c63h,00421h SUBR SHNBLU_P .word 64 .word 00H,07FDDH,07F98H,07F58H,07F34H,07AD1H,07AB0H,0768FH .word 06E90H,06E6EH,06E4DH,0622CH,05E0CH,059EAH,05DC9H,055CAH .word 051A8H,04D89H,04D87H,04567H,04925H,04124H,03925H,03D03H .word 038E2H,038C1H,030E4H,030C3H,03480H,02460H,02420H,01C40H .word 01400H,0400H,06B5FH,052BFH,03A1EH,0259EH,0113DH,0FDH .word 0DAH,0D7H,0D4H,0B1H,0AEH,08BH,068H,045H .word 07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04631H,03DEFH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H SUBR SHNGRN_P .word 64 .word 00H,07FDDH,07F98H,07F58H,07F34H,07AD1H,07AB0H,0768FH .word 06E90H,06E6EH,06E4DH,0622CH,05E0CH,059EAH,05DC9H,055CAH .word 051A8H,04D89H,04D87H,04567H,04925H,04124H,03925H,03D03H .word 038E2H,038C1H,030E4H,030C3H,03480H,02460H,02420H,01C40H .word 01400H,0400H,063B8H,04F93H,0378DH,02368H,01344H,0340H .word 02E0H,0280H,0220H,01C0H,0160H,0120H,0C0H,060H .word 07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04631H,03DEFH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H .if 0 SUBR BAMBLU_P .word 64 .word 000e7h,07fffh,04a52h,04210h,039ceh,0318ch,02d6bh,02529h .word 01ce7h,014a5h,00c63h,00842h,07d46h,07126h,06cc2h,06126h .word 060c4h,06c41h,060a2h,05c41h,05083h,04c41h,03c20h,03020h .word 01800h,077fah,0327eh,01996h,00d59h,01153h,00512h,000f1h .word 000cfh,0006dh,07f79h,07f55h,07b13h,07ad1h,0728fh,0766dh .word 06a4dh,0626bh,065e9h,059c9h,05187h,04d87h,05165h,04585h .word 04901h,04103h,03903h,034c1h,02840h,01000h,07befh,07fc2h .word 07f82h,07ee1h,07e60h,07dc0h,07d20h,064e0h,04ca0h,04080h .endif SUBR BAMFRE_P .word 64 .word 00000h,07d60h,07de0h,07e60h,07ee0h,07f60h,07fe0h,07f40h .word 07ec0h,07e20h,07da0h,07d00h,07d60h,07dc0h,07e20h,07e80h .word 07ee0h,07f20h,07f80h,07fe0h,07fa0h,07f60h,07f40h,07f00h .word 07ec0h,07e80h,07e60h,07e20h,07de0h,07da0h,07d60h,07d40h .word 07d80h,07dc0h,07e20h,07e60h,07ec0h,07f00h,07f40h,07fa0h .word 07fe0h,07f80h,07f20h,07ea0h,07e40h,07de0h,07d80h,07d20h .word 07d60h,07dc0h,07e20h,07e80h,07ee0h,07f20h,07f80h,07fe0h .word 07f80h,07f20h,07ec0h,07e80h,07e20h,07dc0h,07d60h,07d00h SUBR BAMYLW_P .word 64 .word 000e7h,07fffh,04a52h,04210h,039ceh,0318ch,02d6bh,02529h .word 01ce7h,014a5h,00c63h,00842h,07d46h,07126h,06cc2h,06126h .word 060c4h,06c41h,060a2h,05c41h,05083h,04c41h,03c20h,03020h .word 01800h,077f6h,077f1h,07bd0h,07fa7h,07f82h,06b01h,05a60h .word 045e0h,03560h,07f79h,07f55h,07b13h,07ad1h,0728fh,0766dh .word 06a4dh,0626bh,065e9h,059c9h,05187h,04d87h,05165h,04585h .word 04901h,04103h,03903h,034c1h,02840h,01000h,07befh,07fc2h .word 07f82h,07ee1h,07e60h,07dc0h,07d20h,064e0h,04ca0h,04080h SUBR BAMPRP_P .word 64 .word 00H,07FFFH,04A52H,04210H,039CEH,0318CH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0842H,07D46H,07126H,06CC2H,06126H .word 060C4H,06C41H,060A2H,05C41H,05083H,04C41H,03C20H,03020H .word 01800H,077FAH,07DDFH,07C1FH,0701CH,06419H,05816H,04C13H .word 04010H,0340DH,07F79H,07F55H,07B13H,07AD1H,0728FH,0766DH .word 06A4DH,0626BH,065E9H,059C9H,05187H,04D87H,05165H,04585H .word 04901H,04103H,03903H,034C1H,02840H,01000H,07BEFH,07FC2H .word 07F82H,07EE1H,07E60H,07DC0H,07D20H,064E0H,04CA0H,04080H SUBR BAMRED_P .word 64 .word 00H,07FFFH,04A52H,04210H,039CEH,0318CH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0842H,07D46H,07126H,06CC2H,06126H .word 060C4H,06C41H,060A2H,05C41H,05083H,04C41H,03C20H,03020H .word 01800H,077FAH,07D6BH,07C00H,07000H,06400H,05400H,04800H .word 03C00H,03000H,07F79H,07F55H,07B13H,07AD1H,0728FH,0766DH .word 06A4DH,0626BH,065E9H,059C9H,05187H,04D87H,05165H,04585H .word 04901H,04103H,03903H,034C1H,02840H,01000H,07BEFH,07FC2H .word 07F82H,07EE1H,07E60H,07DC0H,07D20H,064E0H,04CA0H,04080H SUBR DNKPRP_P .word 64 .word 0318ch,07fffh,06f7bh,05ef7h,04e73h,03defh,02d6bh,02529h .word 01ce7h,014a5h,00c63h,00421h,07febh,07fa5h,07b41h,06ec0h .word 06260h,03effh,02abfh,01a7ch,00a39h,00217h,001f4h,001b2h .word 00170h,0012eh,000ech,004abh,0046ah,00468h,07ef9h,07e55h .word 07dd1h,07cc8h,07400h,06c00h,06400h,05c00h,05400h,04c00h .word 04400h,03800h,03000h,02021h,07fbfh,0769dh,06d9bh,064b9h .word 05c17h,05014h,04812h,04010h,0340dh,02c0bh,02409h,01806h .word 01004h,0626eh,05a0eh,045a9h,04566h,03926h,01c83h,01841h .if 0 SUBR DNKBLU_P .word 64 .word 00000h,07fffh,06f7bh,05ef7h,04e73h,03defh,02d6bh,02529h .word 01ce7h,014a5h,00c63h,00421h,07febh,07fa5h,07b41h,06ec0h .word 06260h,05f8fh,0536bh,04748h,03705h,02ae3h,01ec0h,01a80h .word 01640h,01600h,011c1h,01181h,00d41h,00d01h,07ef9h,07e55h .word 07dd1h,07cc8h,07400h,06c00h,06400h,05c00h,05400h,04c00h .word 04400h,03800h,03000h,02021h,067bfh,03afeh,0227dh,001bbh .word 00179h,00136h,000f4h,000d2h,0008fh,0006dh,0004bh,00028h .word 00027h,0626eh,05a0eh,045a9h,04566h,03926h,01c83h,01841h .endif SUBR DNKGRN_P .word 64 .word 00H,07FFFH,06F7BH,05EF7H,04E73H,03DEFH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0421H,07FEBH,07FA5H,07B41H,06EC0H .word 06260H,05F8FH,0536BH,04748H,03705H,02AE3H,01EC0H,01A80H .word 01640H,01600H,011C1H,01181H,0D41H,0D01H,07EF9H,07E55H .word 07DD1H,07CC8H,07400H,06C00H,06400H,05C00H,05400H,04C00H .word 04400H,03800H,03000H,02021H,05FB7H,03B8EH,01765H,0340H .word 0300H,02C0H,0280H,0240H,0200H,01A0H,0160H,0120H .word 0E0H,0626EH,05A0EH,045A9H,04566H,03926H,01C83H,01841H SUBR DNKGRY_P .word 64 .word 00H,07FFFH,06F7BH,05EF7H,04E73H,03DEFH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0421H,07FEBH,07FA5H,07B41H,06EC0H .word 06260H,05F8FH,0536BH,04748H,03705H,02AE3H,01EC0H,01A80H .word 01640H,01600H,011C1H,01181H,0D41H,0D01H,07EF9H,07E55H .word 07DD1H,07CC8H,07400H,06C00H,06400H,05C00H,05400H,04C00H .word 04400H,03800H,03000H,02021H,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02529H,01CE7H,014A5H,0C63H .word 0421H,0626EH,05A0EH,045A9H,04566H,03926H,01C83H,01841H .if 0 SUBR LEXWHT_P .word 64 .word 00000h,07fddh,07fbch,07f55h,07af4h,07ab2h,07ab0h,07a6eh .word 06e4dh,0722ch,06a2dh,0660dh,05e0dh,061ebh,05dc9h,059a9h .word 05189h,05167h,04546h,04103h,03d04h,03505h,02cc3h,02c81h .word 02440h,01800h,00400h,0529ah,039dbh,0319ah,02955h,018d1h .word 0084dh,0042ah,06d8ch,06d07h,06863h,04c42h,03863h,03800h .word 02800h,07bdeh,0739ch,06739h,056b5h,04631h,02529h,014a5h .word 00c63h,07fffh,077bdh,06f7bh,06739h,05ef7h,05ad6h,05294h .word 04a52h,04210h,039ceh,0318ch,0294ah,02108h,018c6h,014a5h .endif SUBR LEXPRP_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C82H .word 02442H,01842H,0842H,0667AH,05D78H,058B6H,05415H,04411H .word 0340DH,0280AH,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07FFFH,07F9FH,07F1FH,07E9FH,0763DH,071DCH,0697AH .word 06559H,05D57H,05555H,04D53H,04551H,04150H,0394EH,0314CH SUBR LEXYEL_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C81H .word 02440H,01800H,0400H,07FF9H,07FF0H,07FA8H,07F20H,06E80H .word 055E0H,03D40H,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07FFFH,07FFBH,07FF6H,07FD2H,07F8DH,07F69H,07F24H .word 07F02H,07EE2H,07662H,069C2H,05942H,04CE2H,03C62H,03042H SUBR LEXRED_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C81H .word 02440H,01800H,0400H,07F18H,079EFH,074C6H,06C00H,05400H .word 04000H,02800H,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07FFFH,07F9CH,07F18H,07EB5H,07A52H,075EFH,071ADH .word 06D4AH,06D08H,068A5H,06463H,06042H,04842H,03042H,01842H .IF 1 ;SUBR LEXYEL_P ; .word 64 ; .word 00000h,07fddh,07fbch,07f55h,07af4h,07ab2h,07ab0h,07a6eh ; .word 06e4dh,0722ch,06a2dh,0660dh,05e0dh,061ebh,05dc9h,059a9h ; .word 05189h,05167h,04546h,04103h,03d04h,03505h,02cc3h,02c81h ; .word 02440h,01800h,00400h,0529ah,039dbh,0319ah,02955h,018d1h ; .word 0084dh,0042ah,06d8ch,06d07h,06863h,04c42h,03863h,03800h ; .word 02800h,07bdeh,0739ch,06739h,056b5h,04631h,02529h,014a5h ; .word 00c63h,07fa0h,07b40h,07300h,06ec0h,06680h,06240h,05a00h ; .word 055c0h,04da0h,04960h,04140h,03d00h,034e0h,030c0h,028a0h ; SUBR LEXPRP_P ; .word 64 ; .word 0250eh,07bbch,07b9bh,07b34h,076d3h,07691h,0768fh,0764dh ; .word 06a2ch,06e0bh,0660ch,061ech,059ech,05dcah,059a8h,05588h ; .word 04d68h,04d46h,04125h,03ce2h,038e3h,030e4h,028a2h,02861h ; .word 02021h,01421h,00421h,0667ah,05d78h,058b6h,05415h,04411h ; .word 0340dh,0280ah,06d8ch,06d07h,06863h,04c42h,03863h,03800h ; .word 02800h,07bdeh,0739ch,06739h,056b5h,04631h,02529h,014a5h ; .word 00c63h,07fdfh,07f3fh,07abeh,0723ch,069dah,06579h,05d17h ; .word 058f6h,050f4h,048f2h,040f0h,038eeh,034edh,02cebh,024e9h SUBR BAMGRN_P .word 64 .word 00H,07FFFH,04A52H,04210H,039CEH,0318CH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0842H,07D46H,07126H,06CC2H,06126H .word 060C4H,06C41H,060A2H,05C41H,05083H,04C41H,03C20H,03020H .word 01800H,077FAH,03E0H,0380H,0320H,02C0H,0240H,01E0H .word 0180H,0120H,07F79H,07F55H,07B13H,07AD1H,0728FH,0766DH .word 06A4DH,0626BH,065E9H,059C9H,05187H,04D87H,05165H,04585H .word 04901H,04103H,03903H,034C1H,02840H,01000H,07BEFH,07FC2H .word 07F82H,07EE1H,07E60H,07DC0H,07D20H,064E0H,04CA0H,04080H SUBR BAMPNK_P .word 64 .word 00H,07FFFH,04A52H,04210H,039CEH,0318CH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0842H,07D46H,07126H,06CC2H,06126H .word 060C4H,06C41H,060A2H,05C41H,05083H,04C41H,03C20H,03020H .word 01800H,077FAH,07D70H,07CF0H,07C71H,07C12H,07010H,0640DH .word 0580BH,05009H,07F79H,07F55H,07B13H,07AD1H,0728FH,0766DH .word 06A4DH,0626BH,065E9H,059C9H,05187H,04D87H,05165H,04585H .word 04901H,04103H,03903H,034C1H,02840H,01000H,07BEFH,07FC2H .word 07F82H,07EE1H,07E60H,07DC0H,07D20H,064E0H,04CA0H,04080H SUBR BAMORG_P .word 64 .word 00H,07FFFH,04A52H,04210H,039CEH,0318CH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0842H,07D46H,07126H,06CC2H,06126H .word 060C4H,06C41H,060A2H,05C41H,05083H,04C41H,03C20H,03020H .word 01800H,077FAH,07E80H,07E40H,07E20H,07DE0H,07180H,06940H .word 05D00H,054C0H,07F79H,07F55H,07B13H,07AD1H,0728FH,0766DH .word 06A4DH,0626BH,065E9H,059C9H,05187H,04D87H,05165H,04585H .word 04901H,04103H,03903H,034C1H,02840H,01000H,07BEFH,07FC2H .word 07F82H,07EE1H,07E60H,07DC0H,07D20H,064E0H,04CA0H,04080H SUBR BAMGRY_P .word 64 .word 00H,07FFFH,04A52H,04210H,039CEH,0318CH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0842H,07D46H,07126H,06CC2H,06126H .word 060C4H,06C41H,060A2H,05C41H,05083H,04C41H,03C20H,03020H .word 01800H,077FAH,05EF7H,05294H,04A52H,03DEFH,035ADH,0294AH .word 02108H,014A5H,07F79H,07F55H,07B13H,07AD1H,0728FH,0766DH .word 06A4DH,0626BH,065E9H,059C9H,05187H,04D87H,05165H,04585H .word 04901H,04103H,03903H,034C1H,02840H,01000H,07BEFH,07FC2H .word 07F82H,07EE1H,07E60H,07DC0H,07D20H,064E0H,04CA0H,04080H SUBR DNKPNK_P .word 64 .word 00H,07FFFH,06F7BH,05EF7H,04E73H,03DEFH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0421H,07FEBH,07FA5H,07B41H,06EC0H .word 06260H,05F8FH,0536BH,04748H,03705H,02AE3H,01EC0H,01A80H .word 01640H,01600H,011C1H,01181H,0D41H,0D01H,07EF9H,07E55H .word 07DD1H,07CC8H,07400H,06C00H,06400H,05C00H,05400H,04C00H .word 04400H,03800H,03000H,02021H,07EDCH,07E19H,07D77H,07CB4H .word 07C12H,07410H,06C0FH,0640EH,05C0CH,0540BH,04C0AH,04409H .word 03C08H,0626EH,05A0EH,045A9H,04566H,03926H,01C83H,01841H SUBR DNKORG_P .word 64 .word 00H,07FFFH,06F7BH,05EF7H,04E73H,03DEFH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0421H,07FEBH,07FA5H,07B41H,06EC0H .word 06260H,05F8FH,0536BH,04748H,03705H,02AE3H,01EC0H,01A80H .word 01640H,01600H,011C1H,01181H,0D41H,0D01H,07EF9H,07E55H .word 07DD1H,07CC8H,07400H,06C00H,06400H,05C00H,05400H,04C00H .word 04400H,03800H,03000H,02021H,07F99H,07F12H,07EACH,07E45H .word 07DE0H,071A0H,06960H,05D40H,05100H,048C0H,03CA0H,03080H .word 02860H,0626EH,05A0EH,045A9H,04566H,03926H,01C83H,01841H SUBR DNKRED_P .word 64 .word 00H,07FFFH,06F7BH,05EF7H,04E73H,03DEFH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0421H,07FEBH,07FA5H,07B41H,06EC0H .word 06260H,05F8FH,0536BH,04748H,03705H,02AE3H,01EC0H,01A80H .word 01640H,01600H,011C1H,01181H,0D41H,0D01H,07EF9H,07E55H .word 07DD1H,07CC8H,07400H,06C00H,06400H,05C00H,05400H,04C00H .word 04400H,03800H,03000H,02021H,07ED6H,07A10H,0794AH,07484H .word 07400H,06800H,05C00H,05000H,04400H,03800H,02C00H,02000H .word 01400H,0626EH,05A0EH,045A9H,04566H,03926H,01C83H,01841H SUBR DNKYEL_P .word 64 .word 00H,07FFFH,06F7BH,05EF7H,04E73H,03DEFH,02D6BH,02529H .word 01CE7H,014A5H,0C63H,0421H,07FEBH,07FA5H,07B41H,06EC0H .word 06260H,05F8FH,0536BH,04748H,03705H,02AE3H,01EC0H,01A80H .word 01640H,01600H,011C1H,01181H,0D41H,0D01H,07EF9H,07E55H .word 07DD1H,07CC8H,07400H,06C00H,06400H,05C00H,05400H,04C00H .word 04400H,03800H,03000H,02021H,07FF6H,07FEEH,07FC7H,07FA0H .word 07740H,06EE0H,066A0H,05E60H,05600H,04DC0H,04580H,03D40H .word 03520H,0626EH,05A0EH,045A9H,04566H,03926H,01C83H,01841H SUBR HRTORG_P .word 64 .word 00H,07F9AH,07B16H,07EF3H,076B2H,06E90H,06E6FH,06670H .word 06A4EH,0624EH,0662DH,05E2EH,0660BH,05E0CH,05DEBH,055EDH .word 051CAH,05586H,04DAAH,04988H,04967H,04126H,03D25H,03904H .word 034E4H,030A2H,02CA3H,02482H,02441H,01863H,01021H,0800H .word 07FFFH,077BDH,06F7BH,06739H,05EF7H,056B5H,04E73H,04631H .word 03DEFH,035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H .word 07F98H,07F33H,07EEFH,07EABH,07A67H,07A03H,079C0H,071A0H .word 06980H,06560H,05D40H,05520H,04D00H,044E0H,03CC0H,038C0H SUBR HRTRED_P .word 64 .word 00H,07F9AH,07B16H,07EF3H,076B2H,06E90H,06E6FH,06670H .word 06A4EH,0624EH,0662DH,05E2EH,0660BH,05E0CH,05DEBH,055EDH .word 051CAH,05586H,04DAAH,04988H,04967H,04126H,03D25H,03904H .word 034E4H,030A2H,02CA3H,02482H,02441H,01863H,01021H,0800H .word 07FFFH,077BDH,06F7BH,06739H,05EF7H,056B5H,04E73H,04631H .word 03DEFH,035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H .word 07B9CH,07AF7H,07A52H,079CEH,0794AH,078A5H,07842H,06800H .word 06000H,05800H,05000H,04800H,04000H,03800H,03000H,02800H SUBR HRTGRY_P .word 64 .word 00H,07F9AH,07B16H,07EF3H,076B2H,06E90H,06E6FH,06670H .word 06A4EH,0624EH,0662DH,05E2EH,0660BH,05E0CH,05DEBH,055EDH .word 051CAH,05586H,04DAAH,04988H,04967H,04126H,03D25H,03904H .word 034E4H,030A2H,02CA3H,02482H,02441H,01863H,01021H,0800H .word 07FFFH,077BDH,06F7BH,06739H,05EF7H,056B5H,04E73H,04631H .word 03DEFH,035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H .word 06F7BH,06739H,06318H,05AD6H,05294H,04E73H,04631H,03DEFH .word 035ADH,0318CH,0294AH,02108H,01CE7H,014A5H,0C63H,0842H SUBR HRTYEL_P .word 64 .word 00H,07F9AH,07B16H,07EF3H,076B2H,06E90H,06E6FH,06670H .word 06A4EH,0624EH,0662DH,05E2EH,0660BH,05E0CH,05DEBH,055EDH .word 051CAH,05586H,04DAAH,04988H,04967H,04126H,03D25H,03904H .word 034E4H,030A2H,02CA3H,02482H,02441H,01863H,01021H,0800H .word 07FFFH,077BDH,06F7BH,06739H,05EF7H,056B5H,04E73H,04631H .word 03DEFH,035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H .word 06F58H,06F54H,06F2FH,06F0BH,06EE6H,06EC2H,06EA0H,06A60H .word 06220H,059E0H,055A0H,04D60H,04940H,04100H,03CC0H,034A0H SUBR LEXGRN_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C81H .word 02440H,01800H,0400H,03F6FH,02709H,0EA3H,0240H,01E0H .word 0180H,0140H,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07BFEH,067F9H,053D4H,03F8FH,02F4BH,02328H,016E5H .word 0EA3H,0E63H,0E23H,0DE3H,0DA3H,0D63H,0D23H,0D03H SUBR LEXPNK_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C81H .word 02440H,01800H,0400H,07F9EH,07E5AH,07D37H,07C34H,06830H .word 0502CH,03828H,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07FFFH,07F9EH,07F3DH,07EDCH,07E7BH,07E19H,07DB8H .word 07D57H,07CF5H,07C94H,07C52H,0684FH,0544CH,03C48H,02845H SUBR LEXORG_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C81H .word 02440H,01800H,0400H,07FB9H,07F10H,07E68H,07E00H,06D80H .word 05520H,03CC0H,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07FFFH,07FDBH,07F98H,07F54H,07F30H,07EECH,07EA9H .word 07E65H,07E22H,075E2H,069A2H,05962H,04D42H,03D02H,030C2H SUBR LEXGRY_P .word 64 .word 00H,07FDDH,07FBCH,07F55H,07AF4H,07AB2H,07AB0H,07A6EH .word 06E4DH,0722CH,06A2DH,0660DH,05E0DH,061EBH,05DC9H,059A9H .word 05189H,05167H,04546H,04103H,03D04H,03505H,02CC3H,02C81H .word 02440H,01800H,0400H,0739CH,06318H,05294H,04210H,0318CH .word 02108H,014A5H,06D8CH,06D07H,06863H,04C42H,03863H,03800H .word 02800H,07BDEH,0739CH,06739H,056B5H,04631H,02529H,014A5H .word 0C63H,07FFFH,077BDH,06F7BH,06739H,05EF7H,05AD6H,05294H .word 04A52H,04210H,039CEH,0318CH,0294AH,02108H,018C6H,014A5H SUBR RZRPNK_P .word 64 .word 00H,07FDEH,04A50H,041EDH,035CDH,02D8CH,01D07H,018E6H .word 014C5H,010A4H,0C83H,0862H,0821H,00H,07FFEH,07FDAH .word 07F98H,07F55H,07F54H,07F35H,07F12H,07EF3H,07ED0H,07ED1H .word 07AD2H,07EAFH,07E8EH,07290H,0766EH,0724EH,06A4EH,06E2DH .word 0620CH,065EAH,05DEBH,05DCAH,059CAH,055A8H,05188H,04D67H .word 04125H,04502H,038E3H,03461H,02061H,01C20H,01000H,07FE8H .word 07FA0H,07EE0H,065E0H,03D80H,07E19H,07DB8H,07D77H,07915H .word 074B3H,06871H,0604FH,0542DH,04C2BH,04409H,03808H,03006H SUBR RZRORG_P .word 64 .word 00H,07FDEH,04A50H,041EDH,035CDH,02D8CH,01D07H,018E6H .word 014C5H,010A4H,0C83H,0862H,0821H,00H,07FFEH,07FDAH .word 07F98H,07F55H,07F54H,07F35H,07F12H,07EF3H,07ED0H,07ED1H .word 07AD2H,07EAFH,07E8EH,07290H,0766EH,0724EH,06A4EH,06E2DH .word 0620CH,065EAH,05DEBH,05DCAH,059CAH,055A8H,05188H,04D67H .word 04125H,04502H,038E3H,03461H,02061H,01C20H,01000H,07FE8H .word 07FA0H,07EE0H,065E0H,03D80H,07E44H,07DE0H,07DA0H,07980H .word 06D40H,06120H,054E0H,04CC0H,040A0H,03480H,02C60H,02040H SUBR RZRGRY_P .word 64 .word 00H,07FDEH,04A50H,041EDH,035CDH,02D8CH,01D07H,018E6H .word 014C5H,010A4H,0C83H,0862H,0821H,00H,07FFEH,07FDAH .word 07F98H,07F55H,07F54H,07F35H,07F12H,07EF3H,07ED0H,07ED1H .word 07AD2H,07EAFH,07E8EH,07290H,0766EH,0724EH,06A4EH,06E2DH .word 0620CH,065EAH,05DEBH,05DCAH,059CAH,055A8H,05188H,04D67H .word 04125H,04502H,038E3H,03461H,02061H,01C20H,01000H,07FE8H .word 07FA0H,07EE0H,065E0H,03D80H,05AD6H,04A52H,03DEFH,02D6BH .word 01CE7H,018C6H,014A5H,01084H,0C63H,0842H,0421H,0421H SUBR RZRYEL_P .word 64 .word 00H,07FDEH,04A50H,041EDH,035CDH,02D8CH,01D07H,018E6H .word 014C5H,010A4H,0C83H,0862H,0821H,00H,07FFEH,07FDAH .word 07F98H,07F55H,07F54H,07F35H,07F12H,07EF3H,07ED0H,07ED1H .word 07AD2H,07EAFH,07E8EH,07290H,0766EH,0724EH,06A4EH,06E2DH .word 0620CH,065EAH,05DEBH,05DCAH,059CAH,055A8H,05188H,04D67H .word 04125H,04502H,038E3H,03461H,02061H,01C20H,01000H,07FE8H .word 07FA0H,07EE0H,065E0H,03D80H,07BA0H,07720H,076C0H,07260H .word 07200H,06DC0H,06180H,05940H,04D00H,040E0H,038A0H,02C80H SUBR SHNPNK_P .word 64 .word 00H,07FDDH,07F98H,07F58H,07F34H,07AD1H,07AB0H,0768FH .word 06E90H,06E6EH,06E4DH,0622CH,05E0CH,059EAH,05DC9H,055CAH .word 051A8H,04D89H,04D87H,04567H,04925H,04124H,03925H,03D03H .word 038E2H,038C1H,030E4H,030C3H,03480H,02460H,02420H,01C40H .word 01400H,0400H,07F5DH,07E9BH,07DFAH,07D58H,07C97H,07C16H .word 07414H,06812H,06010H,0580FH,04C0DH,0440BH,0380AH,03008H .word 07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04631H,03DEFH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H SUBR SHNORG_P .word 64 .word 00H,07FDDH,07F98H,07F58H,07F34H,07AD1H,07AB0H,0768FH .word 06E90H,06E6EH,06E4DH,0622CH,05E0CH,059EAH,05DC9H,055CAH .word 051A8H,04D89H,04D87H,04567H,04925H,04124H,03925H,03D03H .word 038E2H,038C1H,030E4H,030C3H,03480H,02460H,02420H,01C40H .word 01400H,0400H,07EA8H,07E86H,07E64H,07E43H,07E01H,07DE0H .word 075C0H,069A0H,06180H,05940H,04D20H,04500H,038E0H,030C0H .word 07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04631H,03DEFH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H SUBR SHNGRY_P .word 64 .word 00H,07FDDH,07F98H,07F58H,07F34H,07AD1H,07AB0H,0768FH .word 06E90H,06E6EH,06E4DH,0622CH,05E0CH,059EAH,05DC9H,055CAH .word 051A8H,04D89H,04D87H,04567H,04925H,04124H,03925H,03D03H .word 038E2H,038C1H,030E4H,030C3H,03480H,02460H,02420H,01C40H .word 01400H,0400H,06318H,05AD6H,05294H,04A52H,04210H,039CEH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H .word 07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04631H,03DEFH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H SUBR SHNYEL_P .word 64 .word 00H,07FDDH,07F98H,07F58H,07F34H,07AD1H,07AB0H,0768FH .word 06E90H,06E6EH,06E4DH,0622CH,05E0CH,059EAH,05DC9H,055CAH .word 051A8H,04D89H,04D87H,04567H,04925H,04124H,03925H,03D03H .word 038E2H,038C1H,030E4H,030C3H,03480H,02460H,02420H,01C40H .word 01400H,0400H,07FD8H,07FB3H,07F8EH,07F89H,07F84H,07F80H .word 07300H,06AA0H,05E20H,055E0H,04980H,03D20H,034E0H,028A0H .word 07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04631H,03DEFH .word 035ADH,02D6BH,02529H,01CE7H,014A5H,0C63H,0421H,00H SUBR UNDPNK_P .word 64 .word 00H,07BBBH,07B77H,076F3H,06EB0H,0666FH,05E2DH,051EBH .word 049CBH,045A9H,04167H,03947H,03D25H,03D03H,03105H,030E3H .word 028C3H,02C80H,02081H,01861H,01840H,01420H,0C00H,07FFFH .word 06B39H,06717H,062F6H,05AD5H,05272H,04A51H,0420FH,03DEEH .word 039CDH,035ACH,0318BH,0316AH,02949H,02107H,01CE6H,014C5H .word 014A4H,0C83H,0862H,0841H,0441H,0420H,07E9DH,07E3CH .word 07DFBH,07D9AH,07D5AH,07D19H,07CB8H,07C95H,07493H,05C0DH .word 0540CH,04C0AH,04409H,03C08H,03406H,02C05H,02404H,01C03H SUBR UNDORG_P .word 64 .word 00H,07BBBH,07B77H,076F3H,06EB0H,0666FH,05E2DH,051EBH .word 049CBH,045A9H,04167H,03947H,03D25H,03D03H,03105H,030E3H .word 028C3H,02C80H,02081H,01861H,01840H,01420H,0C00H,07FFFH .word 06B39H,06717H,062F6H,05AD5H,05272H,04A51H,0420FH,03DEEH .word 039CDH,035ACH,0318BH,0316AH,02949H,02107H,01CE6H,014C5H .word 014A4H,0C83H,0862H,0841H,0441H,0420H,07E65H,07E44H .word 07E22H,07E21H,07E00H,07DE0H,075C0H,06DA0H,06980H,05920H .word 05100H,048E0H,040C0H,038C0H,030A0H,02880H,02060H,01C40H SUBR UNDYEL_P .word 64 .word 00H,07BBBH,07B77H,076F3H,06EB0H,0666FH,05E2DH,051EBH .word 049CBH,045A9H,04167H,03947H,03D25H,03D03H,03105H,030E3H .word 028C3H,02C80H,02081H,01861H,01840H,01420H,0C00H,07FFFH .word 06B39H,06717H,062F6H,05AD5H,05272H,04A51H,0420FH,03DEEH .word 039CDH,035ACH,0318BH,0316AH,02949H,02107H,01CE6H,014C5H .word 014A4H,0C83H,0862H,0841H,0441H,0420H,07FEBH,07FC8H .word 07FA5H,07F82H,07F60H,07700H,06EC0H,06660H,05E20H,055C0H .word 04D80H,04540H,03D20H,034E0H,02CA0H,02480H,01C60H,01440H SUBR UNDRED_P .word 64 .word 0318ch,07bbbh,07b77h,076f3h,06eb0h,0666fh,05e2dh,051ebh .word 049cbh,045a9h,04167h,03947h,03d25h,03d03h,03105h,030e3h .word 028c3h,02c80h,02081h,01861h,01840h,01420h,00c00h,07bddh .word 06b39h,06717h,062f6h,05ad5h,05272h,04a51h,0420fh,03deeh .word 039cdh,035ach,0318bh,0316ah,02949h,02107h,01ce6h,014c5h .word 014a4h,00c83h,00862h,00841h,00441h,00420h,07cc6h,07cc6h .word 07cc6h,078c6h,06ca5h,06084h,05863h,04c42h,04421h,03800h .word 03000h,02c00h,02400h,02000h,01800h,01000h,00c00h,00400h SUBR YOKPNK_P .word 64 .word 00H,07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02108H,014A5H,0C63H,0421H .word 0400H,07F9AH,07B14H,07EF1H,07ACFH,076B0H,0768EH,06E4BH .word 06A4DH,0622CH,0660BH,05A0CH,059EAH,051A8H,05187H,04988H .word 04966H,04124H,04102H,03904H,038E2H,030A1H,03480H,02881H .word 02840H,02400H,01400H,07EDCH,07E7BH,07E1AH,07DBAH,07D5AH .word 07CFAH,078D8H,070B7H,06CB5H,06894H,06473H,05C71H,05850H .word 0544FH,04C2DH,0482CH,0440BH,03C0AH,03809H,03408H,02C07H SUBR YOKORG_P .word 64 .word 00H,07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02108H,014A5H,0C63H,0421H .word 0400H,07F9AH,07B14H,07EF1H,07ACFH,076B0H,0768EH,06E4BH .word 06A4DH,0622CH,0660BH,05A0CH,059EAH,051A8H,05187H,04988H .word 04966H,04124H,04102H,03904H,038E2H,030A1H,03480H,02881H .word 02840H,02400H,01400H,07F10H,07ECDH,07E89H,07E46H,07E22H .word 07DE0H,079C0H,071A0H,06D80H,06560H,06140H,05920H,05500H .word 04D00H,048E0H,040C0H,044C0H,03CC0H,038A0H,03480H,02C80H SUBR YOKGRY_P .word 64 .word 00H,07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02108H,014A5H,0C63H,0421H .word 0400H,07F9AH,07B14H,07EF1H,07ACFH,076B0H,0768EH,06E4BH .word 06A4DH,0622CH,0660BH,05A0CH,059EAH,051A8H,05187H,04988H .word 04966H,04124H,04102H,03904H,038E2H,030A1H,03480H,02881H .word 02840H,02400H,01400H,05AD6H,05294H,04E73H,04A52H,04210H .word 03DEFH,039CEH,0318CH,02D6BH,0294AH,02108H,01CE7H,018C6H .word 014A5H,0C63H,01084H,0C63H,0421H,00H,00H,00H SUBR YOKYEL_P .word 64 .word 00H,07FFFH,0739CH,06B5AH,06318H,05AD6H,05294H,04A52H .word 04210H,039CEH,0318CH,0294AH,02108H,014A5H,0C63H,0421H .word 0400H,07F9AH,07B14H,07EF1H,07ACFH,076B0H,0768EH,06E4BH .word 06A4DH,0622CH,0660BH,05A0CH,059EAH,051A8H,05187H,04988H .word 04966H,04124H,04102H,03904H,038E2H,030A1H,03480H,02881H .word 02840H,02400H,01400H,07B8FH,07B6CH,07B48H,07B45H,07B21H .word 07B20H,076E0H,06EA0H,06A60H,06640H,05E00H,059C0H,051A0H .word 04D60H,04940H,04100H,04500H,040E0H,038C0H,034A0H,02C80H .ENDIF ****************************************************************************** .end