****************** * * * ROBOTRON 20-JULY-83 * 12-AUGUST-83 C:00 * 24-AUGUST-83 10:10 * * RDIRS.S DIRECTION DATA * * FOLLOWED BY RSTAMPS.S ****************** *** * * INFORMATION FOR LINKER * PUBLIC CRETODST,DIRTOSTE,STAMPHGH PUBLIC STAMPL,STAMPS,PALNWID,STAMPPWD * ************ * * TABLES FOR ANIMATION * ************ ORG $4000 ******* * CRETODST STANDS FOR CREATURE TO DIRECTION START * IT TELLS WHICH ENTRY IN THE DIRECTION TABLE IS THE * FIRST POINTER TO THE STEPS CRETODST DB 0 ;MC DB (GD-DIRTOSTE) ;GD DB (MOD-DIRTOSTE) ;MOD DB (DD-DIRTOSTE) ;DD DB (MID-DIRTOSTE) ;MI DB (HD-DIRTOSTE) ;H DB (SD-DIRTOSTE) ;S DB (QD-DIRTOSTE) ;Q DB (ED-DIRTOSTE) ;E DB (TD-DIRTOSTE) ;T DB (BD-DIRTOSTE) ;B DB 0 DB 0 DB 0 DB 0 DB (MCSD-DIRTOSTE) ;MCS ******* * DIRTOSTE STANDS FOR DIRECTION TO STEP * IT IS ACCESSED BY ADDING THE CONTENTS OF CRETODST * TO THE DIRECTION AND USING THAT TO INDEX IN. * TAKING ITS CONTENTS AND ADDING THE STEP GIVES A POINTER * INTO ALL THE STAMP TABLES DIRTOSTE DB 0 ;MC DIRECTIONS DB 0 ;1 DB 0 ;2 DB 0 ;3 DB 0 ;4 DB (MCD2-STAMPL) ;5 DB (MCD2-STAMPL) ;6 DB (MCD2-STAMPL) ;7 DB 0 ;8 DB (MCD3-STAMPL) ;9 DB (MCD3-STAMPL) ;A DB (MCD3-STAMPL) ;B DB 0 ;C DB (MCD1-STAMPL) ;D DB 0 ;E DB 0 ;F GD DB (GD0-STAMPL) ;G MOD DB (MOD0-STAMPL) ;MOMMY DIRECTIONS DB (MOD1-STAMPL) DB (MOD2-STAMPL) DB (MOD3-STAMPL) DB (MOD2-STAMPL) ;D4 DB (MOD2-STAMPL) ;D5 DB (MOD3-STAMPL) ;D6 DB (MOD3-STAMPL) ;D7 DB (FDIE-STAMPL) DD DB (DD0-STAMPL) ;DADDY DIRS DB (DD1-STAMPL) DB (DD2-STAMPL) DB (DD3-STAMPL) DB (DD2-STAMPL) ;D4 DB (DD2-STAMPL) ;D5 DB (DD3-STAMPL) ;D6 DB (DD3-STAMPL) ;D7 MID DB (MID0-STAMPL) ;MIKEY DIRS DB (MID1-STAMPL) DB (MID2-STAMPL) DB (MID3-STAMPL) DB (MID2-STAMPL) ;D4 DB (MID2-STAMPL) ;D5 DB (MID3-STAMPL) ;D6 DB (MID3-STAMPL) ;D7 HD DB (HD0-STAMPL) ;HULK DIRS DB (HD1-STAMPL) DB (HD2-STAMPL) DB (HD3-STAMPL) SD DB (SD0-STAMPL) ;S QD DB (QD0-STAMPL) ;Q ED DB (ED0-STAMPL) ;E TD DB (TD0-STAMPL) ;T BD DB (BD0-STAMPL) ;B DB (BD1-STAMPL) DB (BD2-STAMPL) DB (BD3-STAMPL) DB (BD2-STAMPL) ;D4 DB (BD2-STAMPL) ;D5 DB (BD3-STAMPL) ;D6 DB (BD3-STAMPL) ;D7 MCSD DB (MCSD0-STAMPL) ;MCS DB (MCSD0-STAMPL) ;1 DB (MCSD0-STAMPL) ;2 DB (MCSD0-STAMPL) ;3 DB (MCSD0-STAMPL) ;4 DB (MCSD5-STAMPL) ;5 DB (MCSD6-STAMPL) ;6 DB (MCSD7-STAMPL) ;7 DB (MCSD0-STAMPL) ;8 DB (MCSD6-STAMPL) ;9 DB (MCSD5-STAMPL) ;A DB (MCSD7-STAMPL) ;B DB (MCSD0-STAMPL) ;C DB (MCSDD-STAMPL) ;D DB (MCSDD-STAMPL) ;E DB (MCSD0-STAMPL) ;F *********** * DATA DESCRIBING THE STAMPS * STAMPL DB L(MCD0S0) DB L(MCD0S1) DB L(MCD0S0) DB L(MCD0S2) MCD1 DB L(MCD1S0) DB L(MCD1S1) DB L(MCD1S0) DB L(MCD1S2) MCD2 DB L(MCD2S0) DB L(MCD2S1) DB L(MCD2S0) DB L(MCD2S2) MCD3 DB L(MCD3S0) DB L(MCD3S1) DB L(MCD3S0) DB L(MCD3S2) GD0 DB L(GD0S0) DB L(GD0S1) DB L(GD0S0) DB L(GD0S2) DB L(GD0S3) ;THESE ARE EXPLOSIONS DB L(GD0S4) DB L(GD0S5) DB L(GD0S6) DB L(GD0S7) DB L(GD0S8) MOD0 DB L(MOD0S0) DB L(MOD0S1) DB L(MOD0S0) DB L(MOD0S2) MOD1 DB L(MOD1S0) DB L(MOD1S1) DB L(MOD1S0) DB L(MOD1S2) FDIE DB L(SKULL) DB L(SCORE1K) DB L(SCORE2K) DB L(SCORE3K) DB L(SCORE4K) DB L(SCORE5K) MOD2 DB L(MOD2S0) DB L(MOD2S1) DB L(MOD2S0) DB L(MOD2S2) MOD3 DB L(MOD3S0) DB L(MOD3S1) DB L(MOD3S0) DB L(MOD3S2) DD0 DB L(DD0S0) DB L(DD0S1) DB L(DD0S0) DB L(DD0S2) DD1 DB L(DD1S0) DB L(DD1S1) DB L(DD1S0) DB L(DD1S2) DD2 DB L(DD2S0) DB L(DD2S1) DB L(DD2S0) DB L(DD2S2) DD3 DB L(DD3S0) DB L(DD3S1) DB L(DD3S0) DB L(DD3S2) MID0 DB L(MID0S0) DB L(MID0S1) DB L(MID0S0) DB L(MID0S2) MID1 DB L(MID1S0) DB L(MID1S1) DB L(MID1S0) DB L(MID1S2) MID2 DB L(MID2S0) DB L(MID2S1) DB L(MID2S0) DB L(MID2S2) MID3 DB L(MID3S0) DB L(MID3S1) DB L(MID3S0) DB L(MID3S2) HD0 DB L(HD0S0) DB L(HD0S1) DB L(HD0S0) DB L(HD0S2) HD1 DB L(HD1S0) DB L(HD1S1) DB L(HD1S0) DB L(HD1S2) HD2 DB L(HD2S0) DB L(HD2S1) DB L(HD2S0) DB L(HD2S2) HD3 DB L(HD3S0) DB L(HD3S1) DB L(HD3S0) DB L(HD3S2) SD0 DB L(SD0S0) DB L(SD0S1) DB L(SD0S2) DB L(SD0S3) DB L(SD0S4) DB L(SD0S5) DB L(SD0S6) DB L(SD0S7) DB L(QD0S0) QD0 DB L(QD0S1) DB L(QD0S2) DB L(QD0S3) DB L(QD0S4) DB L(QD0S5) DB L(QD0S6) DB L(QD0S7) ED0 DB L(ED0S0) DB L(ED0S1) TD0 DB L(TD0S0) DB L(TD0S1) DB L(TD0S2) DB L(TD0S3) BD0 DB L(BD0S0) DB L(BD0S1) DB L(BD0S0) DB L(BD0S2) BD1 DB L(BD1S0) DB L(BD1S1) DB L(BD1S0) DB L(BD1S2) BD2 DB L(BD2S0) DB L(BD2S1) DB L(BD2S0) DB L(BD2S2) BD3 DB L(BD3S0) DB L(BD3S1) DB L(BD3S0) DB L(BD3S2) MCSD0 DB L(MCSD0S0) MCSD5 DB L(MCSD5S0) MCSD6 DB L(MCSD6S0) MCSD7 DB L(MCSD7S0) MCSDD DB L(MCSDDS0) STAMPHGH DB $B ;MC D0 S0 DB $B ;MC D1 DB $B ;MC D2 DB $B ;MC D3 DB $B ;MC D4 DB $B ;MC D5 DB $B ;MC D6 DB $B ;MC D7 DB $B ;MC D8 DB $B ;MC D9 DB $B ;MC DA DB $B ;MC DB DB $B ;MC DC DB $B ;MC DD DB $B ;MC DE DB $B ;MC DF DB $B ;G D0 DB $B ;MO D0 DB $B ;MO D1 DB $B ;MO D2 DB $B ;MO D3 DB $B ;MO D2 DB $B ;MO D2 DB $B ;MO D3 DB $B ;MO D3 DB $B ;FDIE (A DYING FAMILY MEMBER EITHER POINTS OR SKULL) DB $B ;D D0 DB $B ;D D1 DB $B ;D D2 DB $B ;D D3 DB $B ;D D2 DB $B ;D D2 DB $B ;D D3 DB $B ;D D3 DB $A ;MI D0 DB $A ;MI D1 DB $A ;MI D2 DB $A ;MI D3 DB $A ;MI D2 DB $A ;MI D2 DB $A ;MI D3 DB $A ;MI D3 DB $D ;H D0 DB $D ;H D1 DB $D ;H D2 DB $D ;H D3 DB 0 ;S D0 S0 DB 0 ;Q D0 S0 DB 0 ;E D0 S0 DB 0 ;T D0 S0 DB $D ;B D0 DB $D ;B D1 DB $D ;B D2 DB $D ;B D3 DB $D ;B D2 DB $D ;B D2 DB $D ;B D3 DB $D ;B D3 DB 0 ;MCSD0 DB 0 ;MCSD1 DB 0 ;MCSD2 DB 0 ;MCSD3 DB 0 ;MCSD4 DB $07 ;MCSD5 DB $07 ;MCSD6 DB $01 ;MCSD7 DB 0 ;MCSD8 DB $07 ;MCSD6 DB $07 ;MCSD5 DB $01 ;MCSD7 DB 0 ;MCSDC DB $07 ;MCSDD DB $07 ;MCSDD DB 0 ;MCSDF PALNWID DB $1E ;MC D0 S0 DB $1E ;MC D1 DB $1E ;MC D2 DB $1E ;MC D3 DB $1E ;MC D4 DB $1E ;MC D5 DB $1E ;MC D6 DB $1E ;MC D7 DB $1E ;MC D8 DB $1E ;MC D9 DB $1E ;MC DA DB $1E ;MC DB DB $1E ;MC DC DB $1E ;MC DD DB $1E ;MC DE DB $1E ;MC DF DB $3E ;G D0 DB $5E ;MO D0 DB $5E ;MO D1 DB $5F ;MO D2 DB $5F ;MO D3 DB $5E ;MO D2 DB $5E ;MO D2 DB $5F ;MO D3 DB $5F ;MO D3 DB $BD ;FDIE DB $7E ;D D0 DB $7E ;D D1 DB $7F ;D D2 DB $7F ;D D3 DB $7E ;D D2 DB $7E ;D D2 DB $7F ;D D3 DB $7F ;D D3 DB $3E ;MI D0 DB $3E ;MI D1 DB $3F ;MI D2 DB $3F ;MI D3 DB $3E ;MI D2 DB $3E ;MI D2 DB $3F ;MI D3 DB $3F ;MI D3 DB $9E ;H D0 DB $9E ;H D1 DB $9E ;H D2 DB $9E ;H D3 DB $FF ;S D0 S0 DB $FF ;Q D0 S0 DB $FF ;E D0 S0 DB $FF ;T D0 S0 DB $DE ;B D0 DB $DE ;B D1 DB $DE ;B D2 DB $DE ;B D3 DB $DE ;B D2 DB $DE ;B D2 DB $DE ;B D3 DB $DE ;B D3 DB $1F ;MCSD0 DB $1F ;MCSD1 DB $1F ;MCSD2 DB $1F ;MCSD3 DB $1F ;MCSD4 DB $1F ;MCSD5 DB $1F ;MCSD6 DB $1F ;MCSD7 DB $1F ;MCSD8 DB $1F ;MCSD6 DB $1F ;MCSD5 DB $1F ;MCSD7 DB $1F ;MCSDC DB $1F ;MCSDD DB $1F ;MCSDD DB $1F ;MCSDF STAMPPWD DB 4 ;MC D0 S0 DB 4 ;MC D1 DB 4 ;MC D2 DB 4 ;MC D3 DB 4 ;MC D4 DB 4 ;MC D5 DB 4 ;MC D6 DB 4 ;MC D7 DB 4 ;MC D8 DB 4 ;MC D9 DB 4 ;MC DA DB 4 ;MC DB DB 4 ;MC DC DB 4 ;MC DD DB 4 ;MC DE DB 4 ;MC DF DB $06 ;G D0 DB 4 ;MO D0 DB 4 ;MO D1 DB 4 ;MO D2 DB 4 ;MO D3 DB 4 ;MO D2 DB 4 ;MO D2 DB 4 ;MO D3 DB 4 ;MO D3 DB $01 ;FDIE DB 4 ;D D0 DB 4 ;D D1 DB 4 ;D D2 DB 4 ;D D3 DB 4 ;D D2 DB 4 ;D D2 DB 4 ;D D3 DB 4 ;D D3 DB 4 ;MI D0 DB 4 ;MI D1 DB 4 ;MI D2 DB 4 ;MI D3 DB 4 ;MI D2 DB 4 ;MI D2 DB 4 ;MI D3 DB 4 ;MI D3 DB $06 ;H D0 DB $06 ;H D1 DB $06 ;H D2 DB $06 ;H D3 DB 0 ;S D0 S0 DB 0 ;Q D0 S0 DB 0 ;E D0 S0 DB 0 ;T D0 S0 DB 6 ;B D0 DB 6 ;B D1 DB 6 ;B D2 DB 6 ;B D3 DB 6 ;B D2 DB 6 ;B D2 DB 6 ;B D3 DB 6 ;B D3 DB $0 ;MCSD0 DB $0 ;MCSD0 DB $0 ;MCSD0 DB $0 ;MCSD0 DB $0 ;MCSD0 DB $03 ;MCSD5 DB $03 ;MCSD6 DB $03 ;MCSD7 DB $0 ;MCSD0 DB $03 ;MCSD6 DB $03 ;MCSD5 DB $03 ;MCSD7 DB $0 ;MCSD0 DB $01 ;MCSDD DB $01 ;MCSDD DB $0 ;MCSD0 *********** * * STAMP DATA * ************ * * THE STAMPS START AT STAMPBAS BUT ARE FILLED WITH ZEROES UP TO STAMPBAS+$F00 * THE DIFERENT LINES OF EACH STAMP ARE 100H APART STAMPBAS EQU $4300 ;BASE ADDRESS OF STAMPS *** WE MUST MAKE SURE THIS IS NOT OVERWRITTEN BY THE END OF ********* THE PRECEDING TABLES. IF SO, INCREASE STAMPBAS ORG STAMPBAS * WE NEED 15 PAGES OF ZEROES HERE, AND 15 AFTER THE END OF * EACH STAMP. TO DO THIS, FIRST USE A DO LOOP * TO FILL MEMORY FROM STAMPBAS FOR 46 PAGES * 46 = 15 (ZEROES) + 16 (MAX STAMP) + 15 (ZEROES) * AFTER WE CREATE ALL THOSE ZEROES, DEFINE STAMPS ON TOP * AS NEEDED PRINT OFF DO 16 ;16 PAGES DO $10 ;ALLOCATE 256 BYTES PER PAGE DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ENDDO ENDDO ORG STAMPBAS+$1E00 DO 16 ;16 PAGES DO $10 ;ALLOCATE 256 BYTES PER PAGE DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ENDDO ENDDO PRINT ON ********** END OF RDIRS.S *****************************