historicalsource
/
revolution-x
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
revolution-x/GXADJ.ASM

5264 lines
124 KiB
NASM
Raw Permalink Blame History

This file contains invisible Unicode characters!

This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.

.MLIB "GXMACS.LIB"
.FILE "GXADJ.ASM"
.TITLE "<<< GENERATION X - ADJUSTMENTS HANDLER >>>"
.WIDTH 132
.OPTION B,D,L,T
.MNOLIST
**************************************************************************
* *
* COPYRIGHT (C) 1992 MIDWAY MANUFACTURING COMPANY. *
* ALL RIGHTS RESERVED. *
* *
**************************************************************************
.INCLUDE "gx.inc"
.INCLUDE "IMGTBL.GLO"
.INCLUDE "GXSTRING.H"
.INCLUDE "GXDICT.H"
*
* IN THIS MODULE
*
.DEF GO_ADJ, DO_ADJH, TAMPEREDP, GET_CSPT
.DEF BINBCD, USA_1, USA_2, USA_3, USA_4, USA_ELECTITLE
.DEF GERMAN_1, GERMAN_2, GERMAN_3, GERMAN_4, GERMAN_ELECTITLE
.DEF FRENCH_1, FRENCH_2, FRENCH_3, FRENCH_4, FRENCH_ELECTITLE
.DEF DIPCOINTAB, SET_COIN_ADJ, MEN_ADJ, CKDIP, DIPCREDTAB
*SYMBOLS IN APCMOS.ASM
.REF CMOS_VAL, PUT_ADJ, F_ADC_S, FAC_SET
*SYMBOLS IN APMENU.ASM
.REF P_FORK, B_MENU, ST_STICK, GETSTICK, MENU_TOP, BLNKHELP
.REF H_SLAVE, COL_INST, STD_BORD, MESS_MM, LASTCOLOR
.ref DIAG_UP, DIAG_DOWN, DIAG_ENTER
*SYMBOLS IN APHSTD.ASM
.REF INIT_HSR
*SYMBOLS IN APCOIN.ASM
.REF NO_CREDS
*SYMBOLS IN APDTST.ASM
.REF READ_DIP
.TEXT
**************************************************************************
* *
* GET_CSPT *
* *
* THIS IS CALLED TO RETURN IN A6 THE CURRENT *
* CSELCT LINE AS STORED IN THE ADJUSTMENT TABLE. *
* *
**************************************************************************
GET_CSPT
MMTM SP,A0
MOVI ADJPRICE,A0
CALLA GET_ADJ ;GET THE COIN SELECT NUMBER BEING USED.
CALLR CS_POINT
MMFM SP,A0
RETS
**************************************************************************
* *
* CS_POINT *
* *
* THIS IS CALLED TO POINT AT AN ENTRY IN THE COINAGE *
* SELECT TABLE. *
* *
* IT TAKES OFFSET IN A0. *
* IT RETURNS POINTER IN A6. *
* *
**************************************************************************
CS_POINT
MMTM SP,A0,A1
MOVE A0,A0 ;ZERO?
JRZ CS1 ;YEP...RETURN FIRST LINE
CMPI CS_ENTS,A0 ;IN RANGE?
JRLS CS2 ;YEP...CONTINUE
MOVI 1,A0 ;TOO LARGE.......USE 1ST LINE.
CS2
DEC A0 ;INDEX INTO TABLE
CS1
MOVI CS_SIZE,A1 ;SIZE PER ENTRY
MPYU A0,A1 ;OFFSET INTO TABLE
ADDI CSELCT,A1
MOVE A1,A6 ;RETURN THE POINTER
MMFM SP,A0,A1
RETS
**************************************************************************
* *
* BINBCD *
* *
* CONVERT BINARY NUMBER IN A0 TO BCD. *
* *
**************************************************************************
BINBCD
MMTM SP,A1,A2,A3,A4,A5
CMPI 99999999,A0 ;ARE WE TOO BIG?
JRLS BBIR ;IN RANGE
MOVI 99999999H,A0 ;RETURN THE LARGEST NUMBER WE HAVE!
JRUC BB_RET
BBIR
MOVI 10,A1 ;ALWAYS DIVIDE BY A0
CLR A5 ;ACCUMULATE RESULT IN A5
CLR A4 ;A4 HAS CURRENT SHIFT COUNT
MOVE A0,A3 ;<A2><A3> HAS NUMERATOR
DO_BCD_AGAIN
CLR A2
DIVU A1,A2 ;A2 HAS LEFTOVER...A3 HAS CURRENT DIGIT
SLL A4,A3 ;SHIFT IT CORRECT NUMBER OF TIMES
ADD A3,A5 ;ADD IT INTO RESULT REG
ADDK 4,A4 ;ADD 4 TO SHIFT COUNT
MOVE A2,A3 ;REFRESH NUMERATOR
JRNZ DO_BCD_AGAIN
MOVE A5,A0 ;PUT OUT RESULT
BB_RET
MMFM SP,A1,A2,A3,A4,A5
RETS
**************************************************************************
* *
* BCDBIN *
* *
* THIS TURNS A BCD NUMBER (IN A0) INTO A BINARY *
* NUMBER. *
* *
**************************************************************************
BCDBIN
MMTM SP,A1,A2,A3,A4,A5 ;WORK REGGIES.
CLR A2 ;ACCUMULATE IN A2
MOVI 1,A3 ;CURRENT FACTOR IS 1.
MOVI 10,A4 ;SAVE SOME MOVI INSTS LATER
MOVI 16,A5 ;DIVIDE IT DOWN BY 16 AT A TIME
BCBLOOP
MOVE A0,A1 ;DIVIDEND IN <A0><A1>
JRZ BCBDONE ;ALL UNITS EXHAUSTED!
CLR A0
DIVU A5,A0 ;DIVIDE BY 10H...(REMAINDER IN A1)
MPYU A3,A1 ;TIMES POSITION FACTOR
ADD A1,A2 ;INTO ACCUMULATION REGISTER
MPYU A4,A3 ;NEXT DIGIT IS WORTH 10 TIMES THIS ONE
JRUC BCBLOOP
BCBDONE
MOVE A2,A0 ;RETURN RESULT IN A0
MMFM SP,A1,A2,A3,A4,A5 ;WORK REGGIES.
RETS
*
* Adjustment menu requested.....make sure CMOS is ok!
*
GO_ADJ
MOVI MEN_ADJ,A8
MOVI COLOR_WHITE,A14
MOVE A14,@LASTCOLOR,W
GEN_ADJUST
MOVE A8,-*A12,L ;PUSH MENU ON STACK
CALLA CMOS_VAL ;CHECK OUT THE REGION
JRZ SET_OK ;ITS OK.....CONTINUE....
CALLA FAC_SET
; JSRP GET_FAC ;BRING TO FACTORY SETTINGS OR QUIT.
; JSRP ANY_BUT
CALLA CMOS_VAL ;CAN'T GO IF WE'RE NOT OK NOW
JRNZ GO_ADQ ;ITS NOT VALID....NO ADJUSTING!
SET_OK
MOVK 1,A0
MOVE A0,-*A12,W ;LIKE GEN_MENU...KEEP NUMBER ON STACK
*
ADJ_LOOP
CALLA CLR_SCRN ;CLEAR THE SCREEN!
MOVI ADJ_ADV,A8
JSRP L_MESS ;PRINT THE NEW INSTRUCTIONS
MOVE *A12(WORD_SIZE),A8,L ;GET THE MENU
JSRP MENU_TOP ;PRINT OUT THE TOP.
MOVI COLOR_RED,A9
CALLA COL_INST ;PUT UP A DIFFERENT INSTR. BOX
MOVE *A12,A9,W ;GET INDEX TO USE.
JSRP B_MENU ;FETCH THE ENTRY TO ADJUST.
*
* EACH ADJUSTMENT HAS A STRUCTURE ASSOCIATED WITH IT.
* A9 RETURNS A STRUCTURE FOR THE ITEM SELECTED.
*
MOVE A9,A9 ;0 IS RETURN TO MAIN MENU
JRZ GO_ADJX
*
* A8 HAS THE MENU NUMBER.....UNLIKE GEN_MENU...DON'T STEP!
*
MOVE A8,*A12,W ;PUT IT SAFELY ON OUR STACK.
MOVE *A9(AD_ROUT),A0,L ;GET THE ROUTINE TO CALL FOR ACTIVATION
MOVI ADJ_LOOP,A7
MOVE A7,-*A12,L ;PUSH RETURN ADDRESS
JUMP A0 ;"CALL THE ROUTINE (PASSING STRUCT IN A9)
GO_ADJX
ADDI WORD_SIZE,A12 ;"POP" THE POSITION INDICATOR
GO_ADQ
ADDI LONG_SIZE,A12 ;POP MENU
RETP ;OK...RETURN!
**************************************************************************
* *
* PRICE_ADJ *
* *
* THIS IS EXECUTED WHEN THE "CUSTOM PRICING" ENTRY IS *
* SELECTED FOR ADJUSTMENT FROM THE ADJUSTMENT MENU. *
* *
* IT CREATES A WHOLE NEW ADJUSTMENT MENU CONTIANING: *
* *
* *
* LEFT CHUTE UNITS *
* RIGHT CHUTE UNITS *
* THIRD CHUTE UNITS *
* FOURTH CHUTE UNITS *
* UNITS / CREDIT *
* UNITS / BONUS *
* MINIMUM UNITS *
* CREDITS TO START *
* CREDITS TO CONTINUE *
* COINS PER DOLLAR *
* MAXIMUM CREDITS *
* *
**************************************************************************
PRICE_ADJ
MOVI MEN_CUST,A8 ;HANDLE JUST LIKE MAIN ADJ. MENU
MOVI COLOR_BLUE,A14
MOVE A14,@LASTCOLOR,W
JAUC GEN_ADJUST
**************************************************************************
* *
* MORE_ADJ *
* *
* This is executed when the "More Adjustments ..." entry is *
* selected from the adjustment menu. *
* *
* It creates a new menu of MORE ADJUSTMENTS containing: *
* *
* ATTRACT-MODE SOUND *
* AUTO HIGH SCORE RESET *
* HIGH SCORE ENTRY *
* SET MINIMUM SOUND VOLUME *
* *
**************************************************************************
MORE_ADJ
MOVI MEN_ADJ2,A8 ;HANDLE JUST LIKE MAIN ADJ. MENU
MOVI COLOR_WHITE,A14
MOVE A14,@LASTCOLOR,W
JAUC GEN_ADJUST
**************************************************************************
* *
* GEN_ADJ *
* *
* THIS IS THE ROUTINE THAT IS EXECUTED TO DO *
* THE ADJUSTING ONCE A BUTTON IS CLICKED ON *
* AN ADJUSTMENT. *
* *
* A9 -> ADJUSTMENT STRUCTURE! *
* *
**************************************************************************
MEN_OFF EQU PDATA ;WORD-OFFSET INTO MENU OF SELECTION
MEN_ROUT EQU MEN_OFF+WORD_SIZE ;LONG-ROUTINE FOR SELECTION
MEN_ROM EQU MEN_ROUT+LONG_SIZE ;LONG-POINTER TO ROM STRUCTURE
MEN_ULX EQU MEN_ROM+LONG_SIZE ;WORD-LEFT X (CENTER X WHEN CENTERING)
MEN_ULY EQU MEN_ULX+WORD_SIZE ;WORD-TOP Y
MEN_DY EQU MEN_ULY+WORD_SIZE ;WORD-Y UNITS PER ENTRY
MEN_COLR EQU MEN_DY+WORD_SIZE ;WORD-COLOR FOR ENTRIES
MEN_BAR EQU MEN_COLR+WORD_SIZE ;WORD-HEIGHT OF SELECTION BAR
MEN_BDY EQU MEN_BAR+WORD_SIZE ;WORD-DY FROM TOP OF TEXT TO TOP OF BAR.
MEN_BDX EQU MEN_BDY+WORD_SIZE ;WORD-DX FROM LEFT OF WORD TO LEFT OF BAR
MEN_BWID EQU MEN_BDX+WORD_SIZE ;WORD-WIDTH OF BAR
MEN_SCOL EQU MEN_BWID+WORD_SIZE ;WORD-COLOR OF SELECTED TEXT
MEN_TPTR EQU MEN_SCOL+WORD_SIZE ;LONG-POINTER TO BEGINNING OF TEXT ENTRIES.
MEN_ENTS EQU MEN_TPTR+LONG_SIZE ;WORD-NUMBER OF ENTRIES IN MENU
MEN_CUR EQU MEN_ENTS+WORD_SIZE ;WORD-CURRENT SELECTION (1ST IS 1)
MEN_WALK EQU MEN_CUR+WORD_SIZE ;WORD-NUMBER OF ENTRY WE'RE ON AS WE WALK
MEN_STIK EQU MEN_WALK+WORD_SIZE ;LONG-"STUCK" STATE OF SWITCHES
MEN_ACT EQU MEN_STIK+LONG_SIZE ;LONG-SWITCH WE'RE ACTING ON. (BIT)
MEN_TYPO EQU MEN_ACT+LONG_SIZE ;WORD-TYPOMATIC COUNTER
MEN_HITS EQU MEN_TYPO+WORD_SIZE ;WORD-CONSECUTIVE TYPOMATIC HITS
MEN_ADV EQU MEN_HITS+WORD_SIZE ;WORD-NON-ZERO IF ADVANCE WAS BUTTON USED
GEN_ADJ
MOVE A9,*A13(PDATA),L ;SAVE THE STRUCTURE POINTER
MOVE A9,A8 ;GET TO GENERAL POINTING REGISTER
JSRP DO_IN_WHITE ;GO FROM LF TO WHITE RIGHT AWAY.
; JSRP ADJ_DOOR ;CAN'T DO IT UNLESS DOOR IS OPEN.
; MOVE A0,A0
; JRNZ ADJ_CAN ;CANCELLED
*
CALLR CLR_MAIN ;CLEAR OUT THE MAIN MENU REGION
CALLR ADJ_INST ;PUT INSTRUCTIONS AT BOTTOM.
JSRP ST_STICK ;LOCKOUT STUCK SWITCHES
CLR A0
MOVE A0,*A13(MEN_HITS),W
MOVE A0,*A13(MEN_TYPO),L
SLEEP 1 ;STOP RACE ON INSTRUCTIONS
SLEEP 1 ;BE OVER PARANOID
ADJ_CHNG
SLEEP 1 ;NOW LOOP ON STICK...EXIT
JSRP GETSTICK ;CHECK OUT THE PLAYER BOARD
MOVE A0,A0
JRNZ ML1 ;BR = GOT SOMETHING
MOVE A0,*A13(MEN_HITS),W ;CLEAR TIMER AND DIRECTION
MOVE A0,*A13(MEN_TYPO),W
JRUC ADJ_CHNG
ML1
MOVE *A13(MEN_HITS),A1,W ;GET LAST DIRECTION
ANDI 7,A1 ;MASK OFF REPEAT BIT
CMP A0,A1
JRZ ML2 ;BR = YES, STILL SAME THING
MOVE A0,*A13(MEN_HITS),W
CLR A1
MOVE A1,*A13(MEN_TYPO),W ;CLEAR THE TIMER
JRUC MLDONE ;PROCESS INITIAL HIT
ML2
MOVE *A13(MEN_HITS),A1,W ;SNAG THE REPEAT BIT
ANDI 80H,A1
JRNZ ML3 ;BR = IN REPEAT MODE
MOVE *A13(MEN_TYPO),A0,W ;GET TIMER
INC A0
MOVE A0,*A13(MEN_TYPO),W
CMPI 15,A0
JRLO ADJ_CHNG ;GO BACK TO SLEEP
CLR A0
MOVE A0,*A13(MEN_TYPO),W ;CLEAR OUT THE TIMER
MOVE *A13(MEN_HITS),A1,W
MOVE A1,A0
ORI 80H,A1 ;PUT UPPER BIT ON
MOVE A1,*A13(MEN_HITS),W ;SET DIRECTION WITH REPEAT ON
JRUC MLDONE
ML3
MOVE *A13(MEN_TYPO),A0,W ;GET TIMER
INC A0
MOVE A0,*A13(MEN_TYPO),W
CMPI 5,A0
JRLO ADJ_CHNG ;GO BACK TO SLEEP
CLR A0
MOVE A0,*A13(MEN_TYPO),W ;CLEAR OUT THE TIMER
MOVE *A13(MEN_HITS),A0,W
ANDI 7H,A0 ;TURN OFF REPEAT BIT
MLDONE
MOVE *A13(PDATA),A8,L ;GET OUR POINTER
MOVE A0,A1 ;KEEP GETSTICK VALUE
JRZ ADJ_CHNG ;ITS ZERO....NO MORE WORK NEEDED
MOVE *A8(AD_CMOS),A0,W ;GET ADJ NUMBER
MOVE A0,A2 ;COPY FOR LATER
CALLR GET_EADJ ;READ IT OUT (FIXING ZERO IF NEC)
MOVE A0,A3 ;SAVE "OLD" VALUE
*
* A0 = ADJUSTMENT VALUE
* A1 = GET_STICK VALUE
* A2 = ADJUSTMENT NUMBER
* A3 = ADJUSTMENT VALUE READ!
* A8 = ADJUSTMENT STRUCTURE POINTER
*
CMPI 3,A1 ;BUTTON......BACK TO ADJ MENU!
JRZ ADJ_BUTT ;YEP....WE'RE OUT OF HERE.
cmpi 4,a1 ;ESCAPE ?
jrz ADJ_BUTT ;YEP....GIT THE HELL OUT.
CMPI 1,A1
JRZ ADJ_DOWN ;ITS DOWN....
*
* REQUEST TO GO UP....
*
CALLR INC_ADJ ;INCREMENT IT
SOUND1 DIAG_UP
JRUC ADJ_JOIN
ADJ_DOWN
mmtm sp,a0,a1,a2,a3,a8
SOUND1 DIAG_DOWN
mmfm sp,a0,a1,a2,a3,a8
CALLR DEC_ADJ ;DECREMENT IT
ADJ_JOIN
MOVE A2,A0 ;ADJUSTMENT NUMBER
CALLR GET_EADJ ;READ IT OUT (FIXING ZERO IF NEC)
CMP A0,A3 ;DID IT NOT CHANGE?
JRZ ADJ_CHNG ;NOPE....NO ACTION!
*
* IT CHANGED....WE NEED TO BEEP AND RE-PLOT LOWER
* PORTION TO REFLECT NEW SETTING.
*
; SOUND1 ADJ_BEEP ;MAKE A BEEP.
JSRP DO_IN_WHITE ;AND UPDATE THE ADJUSTMENT
JRUC ADJ_CHNG ;AND LOOP!
DO_IN_WHITE
CALLR CLR_CUR ;CLEAR OUT CURRENT SETTING
MOVI COLOR_WHITE,A11 ;THEY'RE STARING....NO HEADACHES
JAUC AD_CRVAL ;PRINT THE NEW VALUE
ADJ_BUTT
SOUND1 DIAG_ENTER
*
* KILL THE FLASHING ARROW
*
* MOVE *A13(PROCID),A0,W ;NOW KILL HIM
* MOVI 0FFFFH,A1
* CALLA KILALL ;THIS WILL DO IT!
ADJ_CAN RETP
PRICE_CHECK
CMPI DO_PRICE,A8
JRNZ PRICE_RET
MMTM SP,A0,A1,A6
MOVI ADJ1ST6,A0 ; NON-STANADARD TITLE IF 1ST 6 MODIFIED
CALLA GET_ADJ ; WELL?
JRNZ PRICE_PROC_RET ; PUT OUT THE TITLE LINE AS TAMPERED!
MOVI ADJ1ST6,A0
MOVK 1,A1
CALLA PUT_ADJ
CALLR GET_CSPT
CALLR SET_COIN_ADJ ; SET THE ADJUSTMENTS UP IN CMOS
MMFM SP,A0,A1,A6
MOVE A0,A3
INC A0
SETZ
JRUC PRICE_RET
PRICE_PROC_RET
MMFM SP,A0,A1,A6
CLRZ
PRICE_RET
RETS
**************************************************************************
* *
* DEC_ADJ *
* *
* THIS IS CALLED TO MOVE TO THE PREVIOUS VALUE. *
* A0 = VALUE READ FROM CMOS *
* A2 = ADJUSTMENT NUMBER (TO WRITE IT BACK) *
* A8 = ADJUSTMENT STRUCTURE POINTER. *
* *
* INC_ADJ IS USED TO STEP TO THE NEXT VALUE *
* *
**************************************************************************
DEC_ADJ
MMTM SP,A0,A1,A2,A3
CALLR PRICE_CHECK
JRZ FINISH_CHANGE
MOVE A0,A3 ;COPY ORIGINAL VALUE
MOVE *A8(AD_DELTA),A1,L ;GET UNITS BETWEEN VALUES
CALLR MAKE_BIN_IF_NEC ;CHANGE RADIX FOR MATH IF NECESSARY
SUB A1,A0 ;REMOVE THIS FROM READ VALUE
JRUC FINISH_CHANGE ;GO TO COMMON ROUTINE TO WRAP IT UP
INC_ADJ
MMTM SP,A0,A1,A2,A3
CALLR PRICE_CHECK
JRZ FINISH_CHANGE
MOVE A0,A3 ;COPY ORIGINAL VALUE
MOVE *A8(AD_DELTA),A1,L ;GET UNITS BETWEEN VALUES
CALLR MAKE_BIN_IF_NEC
ADD A1,A0 ;REMOVE THIS FROM READ VALUE
FINISH_CHANGE
CALLR BCD_IF_NEC ;BACK TO BCD AFTER THE MATH
CALLR PUT_IN_RANGE ;ADJUST TO ACCOUNT FOR WRAP AND LIMITS
MOVE *A8(AD_ZEQU),A1,L ;This number becomes zero
CMP A0,A1 ;is this the number?
JRNZ FC_NZ ;NOPE...STORE IT!
CLR A0 ;USE ZERO IN PLACE OF THIS NUMBER!
FC_NZ
MOVE A0,A1 ;WRITING REG
MOVE A2,A0 ;ADJUSTMENT NUMBER
CALLA PUT_ADJ ;WRITE IT BACK
*
* SEE IF WE'RE DOING MASTER COINAGE.
*
CMP A1,A3 ;DID THE NUMBER CHANGE?
JRZ NOT_COIN ;NOPE...DON'T LOAD IT UP!
*
* AT THIS POINT WE KNOW THAT THE VALUE BEING ADJUSTED CHANGED.
*
CALLR DIRTY_IF_NEC ;IF ITS A COIN VALUE TAKE NOTE!
CMPI ADJPRICE,A0 ;IS IT?
JRNZ NOT_COIN ;NOT COIN
; CALLA LD_CTAB ;BATCH WRITE THE VALUES IN!
CALLA NO_CREDS ;REMOVE CREDITS AND FRACTIONS WHEN
* ;MODE CHANGES
NOT_COIN
CALLA F_ADC_S ;MAKE CHECKSUM VALID!
MMFM SP,A0,A1,A2,A3
RETS
**************************************************************************
* *
* DIRTY_IF_NEC *
* *
* THIS IS CALLED BY ALL ADJUSTMENTS WHEN THEY ACTUALLY *
* CHANGE THEIR VALUE. FOR THE COINAGE ADJUSTMENTS, *
* IF ANY OF THE 1ST 6 VALUES ARE TOUCHED WE NEED TO MAKE *
* *
* ADJ1ST6 = ZERO. *
* *
* IF ANY OF THE 1ST 8 VALUES ARE TOUCHED WE NEED TO MAKE *
* *
* ADJVIRGIN = ZERO. *
* *
* THE AD_FLAGS FIELD IN THE ADJUSTMENT STRUCTURE HAVE BITS *
* INDICATING WHICH (IF ANY) SHOULD BE DIRTYED. *
* *
**************************************************************************
DIRTY_IF_NEC
MMTM SP,A0,A1,A2
MOVE *A8(AD_FLAGS),A2,W ;FETCH THE FLAGS
BTST VIRG_BIT,A2 ;DOES CHANGING THIS SAY SET VIRG BIT.
JRZ NOT_1ST_8 ;NOPE
MOVI ADJVIRGIN,A0
CLR A1
CALLA PUT_ADJ
NOT_1ST_8
BTST SIX_BIT,A2 ;1ST 6?
JRZ NOT_1ST_6
MOVI ADJ1ST6,A0
CLR A1
CALLA PUT_ADJ
NOT_1ST_6
BTST HSR_BIT,A2 ;HIGH SCORE RESET NUM?
JRZ NOT_HSR ;NOPE
CALLA INIT_HSR ;IT WAS CHANGED....STUFF THE VALUE!
NOT_HSR
MMFM SP,A0,A1,A2
RETS
**************************************************************************
* *
* MAKE_BIN_IF_NEC *
* *
* THIS IS CALLED AFTER THE A0 HAS THE ADJUSTMENT AND *
* A1 HAS THE AMOUNT TO ADD OR SUBTRACT. IF WE'RE *
* DOING BCD MATH THEN CONVERT BOTH A0 AND A1. *
* *
**************************************************************************
MAKE_BIN_IF_NEC
MMTM SP,A2
MOVE *A8(AD_FLAGS),A2,W ;GET THE FLAGS
BTST BCD_BIT,A2 ;BCD?
JRZ MBINX ;NOPE
CALLA BCDBIN ;CONVERT A0 TO BINARY
MOVE A0,A2 ;SAVE
MOVE A1,A0 ;NOW A1
CALLA BCDBIN
MOVE A0,A1
MOVE A2,A0 ;NOW PUT A0 BACK
MBINX MMFM SP,A2
RETS
**************************************************************************
* *
* BCD_IF_NEC *
* *
* A0 HAS A RESULT OF THE ADJUSTMENT.....IN BINARY. *
* CONVERT BACK TO BCD IF THAT'S THE MODE. *
* *
**************************************************************************
BCD_IF_NEC
MMTM SP,A2
MOVE *A8(AD_FLAGS),A2,W ;GET THE FLAGS
BTST BCD_BIT,A2 ;BCD?
JRZ BINX ;NOPE
CALLA BINBCD ;BACK TO BCD
BINX
MMFM SP,A2
RETS
ADJ_BEEP .WORD 0F3DFH,010H,080B6H,0 ;ADJUSTMENT CHANGED
ADJ_CASH .WORD 0F3DFH,010H,08105H,0 ;ADJUSTMENT STORED
**************************************************************************
* *
* CLR_CUR *
* *
* THIS IS CALLED TO CLEAR OUT THE AREA WHERE THE *
* "CURRENT SETTING" IS BEING DISPLAYED. *
* *
**************************************************************************
CLR_CUR
MMTM SP,A3,A4
MOVE *A13(ADS_STRUCT),A4,L
CMPI DO_PRICE,A4
JRZ CCSKIP
CMPI DO_PARAM,A4
JRZ CCSKIP
MOVI AM_HX,A3 ;THIS IS LEFT MARGIN OF HELP AREA
MOVI CUR_LRX,A4 ;RIGHT X
SUB A3,A4 ;A4 HAS X DISTANCE
ADDI ADJ_ULY*10000H,A3 ;UPPER LEFT Y
ADDI (400-ADJ_ULY)*10000H,A4 ;Y GOES TO BOTTOM OF SCREEN
CALLA BLNKAREA ;ITS BLANK NOW!
CCSKIP
MMFM SP,A3,A4
RETS
**************************************************************************
* *
* CLR_MAIN *
* *
* THIS IS CALLED TO CLEAR OUT THE ADJUSTMENT MENU AND *
* THE CYAN INSTRUCTIONS FOR THIS MENU. *
* *
**************************************************************************
CLR_MAIN
MMTM SP,A3,A4
MOVI TIT_ULX,A3 ;LEFT EDGE
MOVI AM_HX,A4 ;UP TO THIS EDGE
SUB A3,A4 ;X'S ARE SET.
ADDI INST_ULY*10000H,A3 ;TOP Y
ADDI (400-INST_ULY)*10000H,A4 ;Y DISTANCE
CALLA BLNKAREA
MMFM SP,A3,A4
RETS
ADJ_LBEEP
.WORD 0F3DFH,010H,080A2H,0 ;LOW BEEP
**************************************************************************
* *
* ADJ_INST *
* *
* THIS IS CALLED TO PUT AN INSTRUCTION BOX OUT *
* WHILE ADJUSTMENT IS TAKING PLACE. *
* *
**************************************************************************
ADJ_INST
MOVE *A13(PDATA),A8,L ;PASS THE ADJUSTMENT POINTER
MOVI ADJ_INST_P,A7
CALLA P_FORK ;START IT UP!
RETS
**************************************************************************
* *
* ADJ_INST_P *
* *
* THIS IS CALLED TO PUT INSTRUCTIONS FOR ADJUSTMENT *
* MODIFICAITION UP AND FLASH THE ARROW (IF ITS NOT *
* TOO ANNOYING) *
* *
**************************************************************************
ADJ_INST_P
JSRP ADJUSTING ;PUT UP "ADJUSTING DIFFICULTY" MESSAGE
MOVE A10,A3 ;STASH # OF ARROWS WHERE IT WILL BE SAFE
CALLR ADINBOX ;PUT THE BOX OUT
MOVI INST_TO_ADJ,A8
JSRP L_MESS ;PRINT OUT INSTRUCTIONS
MOVI ADJ_ARROW,A8
JSRP LM_PRINTF
JAUC SUCIDE
**************************************************************************
* *
* ADINBOX *
* *
* THIS PUTS A BOX AROUND THE ADJUSTMENT INSTRUCTIONS. *
* *
**************************************************************************
;INBOX_HEIGHT EQU 80H
INBOX_HEIGHT EQU 118
ADINBOX
MMTM SP,A10
MOVI CUR_ULY,A10 ;PLOT TO SQUARE UP WITH "CURRENT SETTING"
subk 5,a10
SLL 16,A10
MOVI TIT_ULX,A4 ;UPPER RIGHT X
MOVY A10,A4 ;UPPER RIGHT
MOVI AM_RX,A5
MOVY A10,A5 ;START WITH BASE Y
ADDI INBOX_HEIGHT*10000H,A5
CALLR WH_BORD
MMFM SP,A10
RETS
**************************************************************************
* *
* ADJUSTING *
* *
* THIS IS CALLED WHEN WE ENTER THE "ADJUSTING" PHASE *
* IT PUTS A BOX IN THE LEFT AREA TO SAY WHAT WE ARE ADJUSTING. *
* *
**************************************************************************
ADJUSTING
MOVE A8,A2 ;PUT ADJUSTMENT BLOCK PTR WHERE ITS SAFE
MOVI (CUR_ULY-30H)*10000H,A4 ;FOR DO_BORDER
ADDI TIT_ULX,A4 ;A4 IS REASONABLY EASY
MOVI (CUR_ULY+MB_YWID)*10000H,A5 ;OVERLAP THE ONE BELOW IT
ADDI AM_RX,A5 ;THIS IS RIGHT EDGE
CALLR WH_BORD ;DO A WHITE BORDER
MOVI MES_ADNAME,A8 ;PUT THE ADJUSTMENT NAME UP
CALLA LM_SETUP
MOVE *A2(AD_MAIN),A8,L ;GET THE MAIN MENU MESSAGE
JSRP PRINTF
MOVI MES_ADJUSTING,A8
JSRP L_MESS
RETP
**************************************************************************
* *
* PARAM_VAL *
* *
* This is called to summarize the values of the *
* important adjustments on the parameter page. *
* *
**************************************************************************
*
* WE WILL PRING OUT 3 LINES IN A BOX.
*
* 1) Pricing:
* 2) Free Play: yes/no
* 3) Maximum Credits:
*
;PDY EQU HELP_DY+(HELP_DY/2)
PDY EQU 12
PMARG EQU 17
PARAM_VAL
MOVI 4,A1 ;Setup a box for our 3 lines
MOVK 5,A4
CALLR PADJ_BOX ;(a10 is set as y for the 3 lines)
SUBI 3,A10 ; MOVE THAT LITTLE PUPPY AROUND
CALLR GET_COIN_TITLE ;COIN MODE
MOVI MESS_GP,A8
JSRP SMALL_LEFT_RIGHT ;PRINT THE LINES
ADDI PDY,A10 ;PUSH TO NEXT LINE
MOVI M_NO,A2 ;ASSUME "NO"
MOVI ADJFREPL,A0
CALLA GET_ADJ ;GET THE FREE PLAY ADJUSTMENT
JRZ NOT_FREE
MOVI M_YES,A2
NOT_FREE MOVI MESS_FP,A8
JSRP SMALL_LEFT_RIGHT ;PRINT THE LINES
ADDI PDY,A10 ;PUSH TO NEXT LINE
MOVI ADJMAXC,A0
MOVI MESS_MAX,A8
JSRP ADJ_LEFT_RIGHT ;A0 = ADJUST A8 = MESSAGE
*
* CREDITS TO START AND CONTINUE NEEDS TO HANDLE PLURAL ETC.
*
ADDI PDY,A10 ;PUSH TO NEXT LINE
MOVI ADJCSTRT,A0 ;GET CREDITS REQUIRED TO START
MOVI M_CTS_PL,A8
JSRP ADJ_LEFT_RIGHT ;A0 = ADJUST A8 = MESSAGE
*
* NOW THE CREDITS TO CONTINUE
*
ADDI PDY,A10 ;PUSH TO NEXT LINE
MOVI ADJCCONT,A0 ;GET CREDITS REQUIRED TO CONTINU
MOVI M_CTC_PL,A8
JSRP ADJ_LEFT_RIGHT ;A0 = ADJUST A8 = MESSAGE
RETP
**************************************************************************
* *
* ADJ_LEFT_RIGHT *
* *
* A8 HAS MESSAGE *
* A0 HAS ADJUSTMENT *
* A10 HAS HEIGHT. *
* *
* LEFT JUSTIFY A8 MESSAGE *
* RIGHT JUSTIFY A0 ADJUSTMENT (AFTER READING IT) *
* *
**************************************************************************
ADJ_LEFT_RIGHT
MOVE A8,A3 ;STASH MESSAGE
CALLA GET_ADJ
MOVE A0,A8
CALLA HEXTOASC ;A8 POINTS TO NUMBER STRING
MOVE A8,A2
MOVE A3,A8 ;GET MESSAGE IN A8
JRUC SMALL_LEFT_RIGHT
**************************************************************************
* *
* SMALL_LEFT_RIGHT *
* *
* THIS IS CALLED TO PRINT A LEFT AND RIGHT JUSTIFIED *
* PAIR OF STRINGS IN THE "CURRENT SETTING BOX" *
* *
* A2 = RIGHT JUSTIFIED STRING *
* A8 = LEFT JUSTIFIED STRING TO PRINT *
* A10 = Y VALUE *
* *
**************************************************************************
SMALL_LEFT_RIGHT
MMTM A12,A11,A6,A10,A9,A3
MOVI COLOR_PWHITE,A5
MOVI RD7FONT,A11 ;USE BABY FONT
MOVI AM_HX+PMARG,A9 ;LEFT X IS INSIDE LEFT LINE
MOVE A10,A3 ;SAVE Y IN A3
SLL 16,A3
MOVY A3,A9 ;POINTER SET!
MOVI SPACING07,A10
CLR A0
CALLA STRINGF
JSRP STRLNRM ;DO IT!
MOVE A2,A8 ;GET RIGHT JUSTIFIED STRING
MOVI TIT_LRX-PMARG,A9 ;INSIDE RIGHT MARGIN
MOVY A3,A9 ;AT OUR Y
CALLA STRINGF
JSRP STRRNRM ;PRINT IT!
MMFM A12,A11,A6,A10,A9,A3
RETP
**************************************************************************
* *
* COIN_SET *
* *
* THIS IS THE ROUTINE THAT IS CALLED TO DISPLAY THE CURRENT *
* COINAGE SETTINGS. *
* *
* A8 HAS POINTER TO ADJUSTMENT BLOCK *
* A11 HAS THE COLOR TO USE *
* *
**************************************************************************
COIN_SET
CALLR TAMPEREDP ;HAS THE 1ST 6 COIN VALUE BEEN TAMPERED WITH?
JRZ SBO ;YEP....SMALL BOX ONLY!
CALLR CLR_CUR
MOVI 6,A1 ;BIG BOX FOR OUTSIDE
MOVK 3,A4 ;GROSS KLUDGE TO OFFSET BOX
CALLR CADJ_BOX
SBO
MOVI 1,A1 ;DRAW A BOX TO HOLD 1 LINE
CLR A4
CALLR CADJ_BOX ;DRAW THE BOX....PASS BACK 1ST PLOT LINE
MOVI [ADJ_CULY+5,AM_HX+5],A3
MOVI [17,175],A4
CALLA BLNKAREA
MOVI [ADJ_CULY+31,AM_HX+5],A3
MOVI [58,178],A4
CALLA BLNKAREA
*
* THE ABOVE 2 CALLS SHOULD CREATE A BOX LIKE:
*
*
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> CURRENT SETTING <EFBFBD>
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> U.S.A. 1 <EFBFBD>
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹
* <EFBFBD> 1 COIN / 1 CREDIT <EFBFBD>
* <EFBFBD> <EFBFBD>
* <EFBFBD> <EFBFBD>
* <EFBFBD> 25c $1.00 25c <EFBFBD>
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
*
* F10 HAS THE PLACE TO PLOT THE TITLE LINE.
*
MOVE A10,A4 ;KEEP THE Y HANDY.
*
CALLR GET_COIN_TITLE ;GET TITLE FOR BIG BOX IN A2.
*
* A2 HAS STRING
* A11 IS COLOR
* A10 IS Y TO PRINT
*
COIN_TIT
; ADDI 2,A10 ;CENTER THE LARGE TEXT
INC A10
JSRP DO_BIG_LINE ;PRINT THIS LINE!
MOVI COLOR_WHITE,A11 ;DON'T GLOW INSIDE BOX IF THAT'S THE MODE
; CALLR CKDIP
; JRZ NO_INFO
CALLR TAMPEREDP ;HAS THE 1ST 6 COIN VALUE BEEN TAMPERED WITH?
JRZ NO_INFO ;YEP....JUST GIVE THE STARTS AND CONTINUES
CALLA GET_CSPT ;A6 POINTS AT THE CSELECT BLOCK
CALLR SET_COIN_ADJ ; SETUP THE COIN ADJUSTMENTS
MOVE *A6(CS_LIST),A2,L ;FETCH POINTER TO MESSAGE LIST
JRZ NO_HEADERS ;NO LIST!
MOVI COIN_HEAD_Y,A10 ;AT THIS HEIGHT
NEXT_HEADER
MOVE *A2+,A8,L
JRZ NO_HEADERS ;HEADERS ARE OUT...CONTINUE
JSRP PRINT_SMALL_LINE ;PRINT THE LINE
ADDI 12,A10 ;PUSH TO NEXT LINE
JRUC NEXT_HEADER
NO_HEADERS
MOVI MESS_CTS,A10 ;SET Y FOR COIN SLOT LINE.
MOVI M_SLOTVAL,A8
JSRP PRINT_SMALL_LINE ;HEADER FOR COIN SLOT VALUE
ADDI 12,A10 ;PUSH Y UP FOR A GAP *
CALLA GET_CSPT ;A6 POINTS AT THE CSELECT BLOCK
MOVE *A6(CS_SLOTS),A8,L ;PRINT COIN SLOT INFO
JSRP PRINT_SMALL_LINE ;PRINT THE LINE
NO_INFO
RETP ;DONE FOR NOW
ERASE_CUR
MOVI (CUR_ULY2*10000H),A4
MOVE *A13(ADS_LX),A9,W ;GET LEFT X
MOVX A9,A4 ;SET IT FOR THIS BOX.
MOVI CUR_LRX+(CUR_LRY2*10000H),A5
MOVI COLOR_BLACK,A9
CALLA STD_BORD ;ADJUSTMENT BORDER IS UP.
MOVI MESS_CURSET,A8 ;PUT UP THE CURRENT MESSAGE TEXT
CALLA LM_SETUP
MOVI COLOR_PBLACK,A5
MOVE *A13(ADS_CX),A2,W ;GET CENTER X
MOVX A2,A9 ;PUT CENTER X IN
JSRP PRINTF
RETS
**************************************************************************
* *
* GET_COIN_TITLE *
* *
* THIS IS CALLED TO FETCH THE CHARACTER STRING MESSAGE *
* FOR THE CURRENT COIN MODE. IF ITS STANDARD, THEN *
* IT IS FETCHED BASED ON THE COIN SELECT TABLE. *
* *
* IF THE 1ST 6 PARAMETERS HAVE BEEN MODIFIED, THEN *
* IT RETURNS THE STRING "NON-STANDARD". *
* *
**************************************************************************
GET_COIN_TITLE
MMTM SP,A6 ;PRESERVE FOR COIN SELECT TABLE
CALLA GET_CSPT ;A6 POINTS AT THE CSELECT BLOCK
MOVI MESS_DIP,A2
CALLR CKDIP
JRZ GCTX
MOVI MESS_TAMPERED,A2
MOVI ADJ1ST6,A0 ;NON-STANADARD TITLE IF 1ST 6 MODIFIED
CALLA GET_ADJ ;WELL?
JRZ GCTX ;PUT OUT THE TITLE LINE AS TAMPERED!
MOVE *A6(CS_TITLE),A2,L ;GET THE CSELECT TITLE FOR ITS VALUES
GCTX MMFM SP,A6 ;PRESERVE FOR COIN SELECT TABLE
RETS
**************************************************************************
* *
* TAMPEREDP *
* *
* HAVE THE COIN PARAMETERS BEEN TAMPERED WITH. *
* THIS RETURNS ZERO IF ANY OF THE 1ST 6 COIN *
* PARAMETERS HAVE BEEN CUSTOM ADJUSTED. *
* *
**************************************************************************
TAMPEREDP
MMTM SP,A0
MOVI ADJ1ST6,A0 ;JUST CHECK THE 1ST 6
CALLA GET_ADJ ;HAS IT BEEN TAMPERED WITH (0 MEANS YES)
MMFM SP,A0
RETS
CKDIP
CALLA READ_DIP
ANDI DPUSECMOS,A0
MOVE A0,A0
RETS
**************************************************************************
* *
* SET_COIN_ADJ *
* *
* SET THE COIN ADJUSTMENT STUFF FROM WHATEVER IS POINTED TO BY *
* A6 *
* *
* ENTRY *
* A6 POINTER TO THE FIRST 6 ADJUSTMENTS ( SORT OF ) *
* *
* EXIT *
* NOTHING *
* *
**************************************************************************
SET_COIN_ADJ:
MMTM SP,A0,A1,A6,A7
MOVI ADJLMULT,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJCMULT,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJRMULT,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJ4MULT,A0 ; NEW ADDITION, FOLKS!
MOVE *A6+,A1,W
; CLR A1 ; FOR OLD TABLES ONLY
CALLA PUT_ADJ
MOVI ADJCUNIT,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJBUNIT,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJMUNIT,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJCDIV,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
MOVI ADJFRAC,A0
MOVE *A6+,A1,W
CALLA PUT_ADJ
CALLA F_ADC_S ;MAKE CHECKSUM VALID!
MMFM SP,A0,A1,A6,A7
RETS
**************************************************************************
* *
* PRINT_SMALL_LINE *
* *
* THIS IS CALLED TO PRINT A LINE IN THE "CURRENT SETTING" *
* BOX FOR THE COINAGE. *
* *
* A8 = STRING TO PRINT *
* A11 = COLOR *
* A10 = Y VALUE *
* *
* PRINT IN THE 7 POINT FONT WITH X CENTERED FOR THE *
* HELP SYSTEM. *
* *
**************************************************************************
PRINT_SMALL_LINE
MMTM A12,A11,A6,A10,A9
; MOVE A11,A6 ;COLOR SET
MOVE A11,A5
SLL 16,A5 ; FIX IT UP SOME MORE
MOVI RD7FONT,A11 ;USE BABY FONT
MOVI AM_HX,A9,W ;GET LEFT X
CALLR LEFT_TO_CENTER ;CONVERT IT
MOVE A10,A0
SLL 16,A0
MOVY A0,A9 ;POINTER SET!
MOVI SPACING07,A10
CLR A0
CALLA STRINGF
JSRP STRCNRM ;DO IT!
MMFM A12,A11,A6,A10,A9
RETP
*
* DO_ADJH
*
* THIS IS CALLED TO PLOT THE RIGHT HALF OF THE SCREEN
* FOR EACH ADJUSTMENT AS THE USER SELECTS THEM ON
* THE ADJUSTMENT MENU.
*
* THE FORMAT IS AS FOLLOWS:
*
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> A D J U S T M E N T M E N U <EFBFBD>
* <EFBFBD> REVOLUTION X - REVISION x.xx <EFBFBD>
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> SELECT BLAH BLAH BLAH <EFBFBD> <EFBFBD> GAME DIFFICULTY <EFBFBD>
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> RETURN TO MAIN MENU <EFBFBD> <EFBFBD> THIS CONTROLS THE OVERALL <EFBFBD>
* <EFBFBD> STANDARD PRICING <EFBFBD> <EFBFBD> DIFFICULTY OF GAME PLAY. <EFBFBD>
* <EFBFBD> CUSTOM PRICING <EFBFBD> <EFBFBD> <EFBFBD>
* <EFBFBD> FREE PLAY <EFBFBD> <EFBFBD> RANGE OF SETTINGS: 1-9 <EFBFBD>
* <EFBFBD>======GAME DIFFICULTY========<EFBFBD> <EFBFBD> <EFBFBD>
* <EFBFBD> ENERGY PER PLAY <EFBFBD> <EFBFBD> EASIEST SETTING: 1 <EFBFBD>
* <EFBFBD> BOMBS PER PLAY <EFBFBD> <EFBFBD> HARDEST SETTING: 9 <EFBFBD>
* <EFBFBD> MIN. TIME PER PLAY <EFBFBD> <EFBFBD> FACTORY SETTING: 5 <EFBFBD>
* <EFBFBD> ATTRACT-MODE SOUND <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
* <EFBFBD> AUTO HIGH SCORE RESET <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> HIGH SCORE ENTRY <EFBFBD> <EFBFBD> CURRENT SETTING <EFBFBD>
* <EFBFBD> RETURN TO MAIN MENU <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ
* <EFBFBD> <EFBFBD>
* <EFBFBD> 9 - EXTRA HARD <EFBFBD>
* <EFBFBD> <EFBFBD>
* <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
*
*
* ON ENTRY....A1 POINTS AT THE 3 WORDS FOR CURRENT
* MENU ENTRY.
*
DO_ADJH
*
* FIRST WE BLANK OUT THE AREA...WE NEED TO DO THIS FROM
* THE MENU PROCESS SINCE THE RIGHT EDGE IS DETERMINED BY
* MENU PDATA STUFF. IT WILL RETURN IN A9 THE MARGIN WE
* SHOULD WORK FROM.
*
CALLA BLNKHELP ;BLANK OUT THE AREA WE'RE PLOTTING!
MOVE A1,A8 ;PASS THE STRUCTURE POINTER TO NEW PROCESS!
MOVI AD_SLAVE,A7
CALLA P_FORK ;THIS CREATES IT!
RETS ;NOW RETURN TO MENU HANDLER!
**************************************************************************
* *
* AD_SLAVE *
* *
* THIS IS FORKED TO PLOT THE RIGHT SIDE...IT HAS *
* ITS OWN PDATA AREA FOR INFO STORAGE. *
* *
* A8 = POINTER TO THE MENU SELECTION 3 LONG-WORD ENTRY *
* A9 = LEFT X MARGIN FOR OUR WORK. *
* *
**************************************************************************
ADS_STRUCT EQU PDATA ;LONG-POINTER TO ADJUSTMENT STRUCTURE
ADS_LX EQU ADS_STRUCT+LONG_SIZE ;WORD-LEFT X TO WORK FROM
ADS_CX EQU ADS_LX+WORD_SIZE ;WORD-CENTER X FOR WORK
AD_SLAVE
MOVE *A8(MENU_ROUTINE),A11,L ;NOW WE HAVE OUR SPECIAL STRUCTURE!
MOVE A11,*A13(ADS_STRUCT),L ;STASH IT...WE'LL NEED IT
MOVE A9,*A13(ADS_LX),W ;ALSO THE X.....
MOVE A9,A4 ;COPY LEFT FOR BORDER ROUT
CALLR LEFT_TO_CENTER
MOVE A9,*A13(ADS_CX),W ;STASH THE CENTER
*
* A4 = UPPER LEFT Y,X
* A5 = LOWER RIGHT Y,X
* A0 = Y,X WIDTH OF BORDER
* A9 = COLOR OF BORDER.
*
ADDI INST_ULY*10000H,A4 ;ADD IN THE Y
MOVI (INST_LRY*10000H)+TIT_LRX,A5 ;THIS IS OTHER EDGE.
MOVI COLOR_PURPLE,A9
CMPI DO_PARAM,A11 ;REALLY DISGUSTING WAY TO RESET
JRNZ ADS1 ;WHITE COLOR ON RETURN FROM CUSTOM
MOVI COLOR_WHITE,A9
MOVE A9,@LASTCOLOR,W
ADS1
MOVE @LASTCOLOR,A9,W
CALLA STD_BORD ;ADJUSTMENT BORDER IS UP.
*
MOVI ADJT_SETUP,A8
CALLA LM_SETUP ;SETUP TO PRINT TITLE
MOVE *A13(ADS_CX),A2,W ;GET THE X
MOVX A2,A9 ;SUBSTITUTE OUR X IN.
MOVE *A13(ADS_STRUCT),A2,L ;GET STRUCTURE POINTER
MOVE *A2(AD_TITLE),A8,L ;GET MESSAGE POINTER
JSRP PRINTF ;BOX AND TITLE ARE UP.
;
; HERE IS A REALLY NEAT PLACE TO SCREW WITH THE HELP STRUCTURE FOR
; DIPSWITCH SETTING HELP -- GROSS, HUH?
;
MOVE *A2(AD_HELP),A8,L ;GET THE HELP STRUCTURE
CALLR CKDIP
JRNZ ADSSKIP
CMPI HELP_PRICE,A8 ;PRICING HELP
JRZ ADSDIP
CMPI HELP_PARAM,A8 ;PARAMETER HELP
JRZ ADSDIP
CMPI HELP_FREE,A8 ;FREEPLAY HELP
JRNZ ADSSKIP
ADSDIP
MOVI HELP_DIP,A8
ADSSKIP
MOVE *A13(ADS_LX),A9,W ;LEFT X FOR HELP BOX
MOVI INST_LRY+BOX_YGAP,A10 ;THIS IS HELP BOX POSITION
ADDI 10000H,A10 ;FLAG THAT THIS IS TOP..NOT CENTER!
MOVI H_SLAVE,A7 ;FORK OFF SO IT CAN USE PDATA!
CALLA P_FORK ;START UP ANOTHER W/ SAME ID
*
* NOW WE NEED TO SHOW THE CURRENT SETTING ON THE LOWER HALF OF
* THE SCREEN.
*
* LETS BUILD THE "CURRENT SETTING" TITLE BOX FIRST.
*
;
; PLOTS BOX 3 OF THINGS ON THE RIGHT HAND SIDE
;
MOVE *A13(ADS_STRUCT),A4,L
CMPI DO_PRICE,A4
JRZ SKIPCURRENT
CMPI DO_PARAM,A4
JRZ SKIPCURRENT
MOVE *A4(AD_NAMEIT),A4,L ;Does this line have an adjustment?
JRZ SKIPCURRENT ;BR = No, so don't print current adj.
MOVI ((CUR_ULY2+5)*10000H),A4
MOVE *A13(ADS_LX),A9,W ;GET LEFT X
MOVX A9,A4 ;SET IT FOR THIS BOX.
MOVI CUR_LRX+(CUR_LRY2*10000H),A5
MOVE @LASTCOLOR,A9,W
CALLA STD_BORD ;ADJUSTMENT BORDER IS UP.
MOVI MESS_CURSET,A8 ;PUT UP THE CURRENT MESSAGE TEXT
CALLA LM_SETUP
MOVE *A13(ADS_CX),A2,W ;GET CENTER X
MOVX A2,A9 ;PUT CENTER X IN
JSRP PRINTF
SKIPCURRENT
MOVE *A13(ADS_STRUCT),A8,L ;GET THE ADJUSTMENT STRUCTURE
MOVI COLOR_LF,A11 ;INDICATE STANDARD COLOR.
JSRP AD_CRVAL ;PRINT SCREEN SHOWING THE CURRENT VALUE
JAUC SUCIDE ;OUR JOB IS DONE!...EXIT
**************************************************************************
* *
* LEFT_TO_CENTER *
* *
* THIS IS CALLED TO FIND THE CENTER POINT FOR A BOX BASED ON *
* THE LEFT PASSED IN A9. CENTER X RETURNED IN A9. *
* *
**************************************************************************
LEFT_TO_CENTER
ADDI TIT_LRX,A9 ;FIND BOX CENTER
SRL 1,A9 ;NOW WE HAVE THE CENTER
ADDI C_KLUDGE,A9 ;MAKE IT CENTER CORRECTLY
RETS
**************************************************************************
* *
* AD_CRVAL *
* *
* THIS IS CALLED TO PRINT THE CURRENT VALUE FOR ANY *
* ADJUSTMENT. THE VALUE SHOULD BE PRINTED AND BOXED *
* IN THE LOWER RIGHT REGION UNDER THE "CURRENT SETTING" *
* HEADER. *
* *
* A8 -> ADJUSTMENT STRUCTURE *
* A11 -> COLOR TO USE *
* ADJ_LEFX (GLOBAL RAM) CONTAINS LEFT MARGIN FOR THIS. *
* *
**************************************************************************
AD_CRVAL
MOVE *A8(AD_NAMEIT),A0,L ;FETCH THE "NAME-IT" ROUTINE
JRNZ ADCR_JUMP
RETP ;WE DON'T HAVE ANYTHING TO PRINT
ADCR_JUMP
JUMP A0 ;AND "JSRP" THAT ROUTINE
**************************************************************************
* *
* HEX_OR_MESS *
* *
* THIS IS CALLED FOR THE EXTRA MAN EVERY...AND *
* "LAST EXTRA MAN" ADJUSTMENTS. IT PRINTS OUT *
* THE HEX ADJUSTMENT WITH COMMAS, OR PRINTS *
* THE MESSAGE STORED AT A8(AD_NAMPTR) ON ITS LOWEST VALUE. *
* *
* ****** NOTE THAT "BIN_OR_MESS" (BELOW) USES PARTS OF THIS! *
* *
**************************************************************************
HEX_OR_MESS
MMTM SP,A8 ;PRESERVE A8 PLEASE
CALLR ADJ_STUFF ;GET THE REGGIES FIXED UP.
*
* NOW A0 HAS THE ADJUSTMENT....FORM THE C-STRING
*
MOVE *A8(AD_MIN),A1,L ;GET MINIMUM VALUE
CMP A0,A1 ;ARE WE AT MINIMUM?
JRNZ NOT_MIN ;NOPE
AT_MIN
MOVE *A8(AD_NAMPTR),A8,L ;GET THE MESSAGE POINTER
JRUC PRT_MIN
NOT_MIN
MOVE A0,A8
MOVK 1,A3 ;INDICATE COMMAS ARE DESIRED
CALLA HTOHXASC ;CONVERT A8 TO THIS NUMBER
PRT_MIN
MOVE A8,A2
MMFM SP,A8 ;PRESERVE A8 PLEASE
SUBI 4,A10
JSRP DO_BIG_LINE ;NOW PRINT IT OUT
RETP ;AND RETURN
**************************************************************************
* *
* BIN_OR_MESS *
* *
* THIS IS CALLED TO PRINT A BINARY NUMBER OR *
* A MESSAGE AT A8(AD_NAMPTR) IF IT IS AT MINIMUM. *
* *
**************************************************************************
BIN_OR_MESS
MMTM SP,A8 ;PRESERVE A8 PLEASE
CALLR ADJ_STUFF ;GET THE REGGIES FIXED UP.
*
* NOW A0 HAS THE ADJUSTMENT....FORM THE C-STRING
*
MOVE *A8(AD_MIN),A1,L ;GET MINIMUM VALUE
CMP A0,A1 ;ARE WE AT MINIMUM?
JRZ AT_MIN ;YEP.....PRINT "OFF"
CALLA BINBCD ;TURN TO BCD PLEASE
JRUC NOT_MIN ;AND NOW PRINT WITH COMMAS.
**************************************************************************
* *
* JUST_BIN *
* *
* THIS IS CALLED TO PRINT OUT THE ADJUSTMENT *
* (STORED IN BINARAY) IN DECIMAL. *
* *
**************************************************************************
JUST_BIN
MMTM SP,A8 ;PRESERVE A8 PLEASE
CALLR ADJ_STUFF ;GET THE REGGIES FIXED UP.
*
* NOW A0 HAS THE ADJUSTMENT....FORM THE C-STRING
*
CALLA BINBCD ;TURN IT TO BCD!
JRUC NOT_MIN
**************************************************************************
* *
* LIST_1LINE *
* *
* THIS IS CALLED TO DO A 1 LINE LISTING OF MESSAGES *
* ASSOCAITED WITH THE CURRENT ADJUSTMENT. *
* A8 = STRUCTURE *
* A11 = COLOR OF TEXT INSIDE BOX. *
* *
**************************************************************************
LIST_1LINE
CALLR ADJ_STUFF ;GET THE REGGIES FIXED UP.
MOVE *A8(AD_MAX),A1,L ;IS IT TOO HIGH?
CMP A1,A0 ;COMPARE TO ADJUSTMENT
JRLS L1L1 ;IN RANGE.....
*
* ADJUSTMENT IS TOO HIGH...DON'T GO THROUGH TABLE!
*
MOVI M_NULL,A2 ;USE NULL POINTER
JRUC L1L2
L1L1 MOVE *A8(AD_MIN),A1,L ;GET THE LOWEST VALUE
SUB A1,A0 ;THIS IS OFFSET
MOVI LONG_SIZE,A1 ;THIS MANY LONG WORDS
MPYU A0,A1 ;THIS IS OFFSET INTO TABLE
MOVE *A8(AD_NAMPTR),A0,L ;THIS IS TABLE BASE
;
; THIS IS REALLY GROSS HERE, BUT IT IS EASIER THAN DOING IT RIGHT
;
CMPI DO_FREE,A8 ; IS IT A FREEPLAY ITEM
JRNZ LIGO
PUSH A0
CALLA CKDIP ; CHECK FOR DIP SWITCH SETTING
PULL A0
JRNZ LIGO
MOVI LIST_DIPNOYES,A0
LIGO
ADD A1,A0 ;A0 HAS THE TEXT OF THE SINGLE LINE
MOVE *A0,A2,L ;GET THE VECTOR
*
* TEXT POINTER IN A2
* COLOR IN A11
* Y IN A10
*
L1L2
SUBI 4,A10 ; AUTOPOSITION THE SINGLE LINE
JSRP DO_BIG_LINE ;PRINT OUT THIS LINE
RETP ;NOW RETURN
**************************************************************************
* *
* ADJ_STUFF *
* *
* THIS IS CALLED BY THE ROUTINES THAT DISPLAY *
* ADJUSTMENTS. IT PLOTS THE BOX AND RETURNS: *
* *
* A10 = HEIGHT FOR 15 POINT SINGLE TEXT LINE *
* A0 = ADJUSTMENT WITH ZERO SUBSTITUTION COMPLETED. *
* *
**************************************************************************
ADJ_STUFF
MOVI 2,A1 ;INDICATE 2 PUNY LINES (FOR OUR BIG ONE)
CALLR ADJ_BOX ;DRAW THE BOX....PASS BACK 1ST PLOT LINE
*
* A10 HAS Y HEIGHT OF 1ST ENTRY.
*
ADDI 2,A10 ;CENTER THE LARGE TEXT
*
MOVE *A8(AD_CMOS),A0,W ;GET ADJUSTMENT NUMBER
CALLR GET_EADJ ;FETCH THE CURRENT VALUE.
CALLR PUT_IN_RANGE ;IF ITS OUT OF RANGE, FIX IT!
RETS
**************************************************************************
* *
* DO_BIG_LINE *
* *
* THIS IS CALLED TO DO A SINGLE LINE FOR AN ADJUSTMENT *
* "CURRENT ADJUSTMENT" BOX. *
* *
* A2 = POINTER TO TEXT *
* A10 = Y COORDINATE *
* A11 = COLOR *
* *
* X LEFT COORDINATE IS IN GLOBAL "ADJ_LEFX" *
* *
**************************************************************************
DO_BIG_LINE
MMTM A12,A10,A11,A8 ;SAVE STUFF FOR CALLER
; MOVE A11,A6
MOVE A11,A5
SLL 16,A5
MOVI AM_HX,A9,W ;GET LEFT X
CALLR LEFT_TO_CENTER ;CONVERT IT
SLL 16,A10 ;SHIFT Y DOWN
MOVY A10,A9 ;X,Y SET
MOVE A2,A8 ;TEXT POINTER
CLR A0 ;NO SLEEP
MOVI SPACING07,A10
MOVI RD7FONT,A11
CALLA STRINGF
JSRP STRCNRM ;DO IT!
MMFM A12,A10,A11,A8 ;POP THE STUFF.
RETP
**************************************************************************
* *
* GET_EADJ *
* *
* THIS IS LIKE GET_ADJ, HOWEVER IF ZERO COMES OUT, *
* WE CHECK TO SEE IF THERE IS A LOGICAL NUMBER TO *
* PASS OUT IN PLACE OF THE ZERO. *
* *
* A8 POINTS AT THE ADJUSTMENT STRUCTURE. *
* *
**************************************************************************
GET_EADJ
MMTM SP,A1
CALLA GET_ADJ ;FETCH THE ADJUSTMENT
JRNZ GET_EA1 ;ITS NOT ZERO....RETURN
*
* ITS ZERO....SEE IF THERE'S A VALUE TO SUB
*
MOVE *A8(AD_ZEQU),A1,L ;IS THERE A SUB VALUE?
JRZ GET_EA1 ;NOPE...RETURN THE ZERO (AND FLAG)
MOVE A1,A0 ;RETURN THE SUBSTITUTE VALUE
GET_EA1 MMFM SP,A1
RETS
**************************************************************************
* *
* PUT_IN_RANGE *
* *
* THIS IS CALLED TO TAKE AN ADJUSTMENT AND MAKE SURE *
* IT HAS A VALID VALUE. IF ITS BETWEEN THE MIN AND MAX *
* (INCLUSIVE) ALLOWED, THEN WE RETURN WITH NO ACTION. *
* *
* IF ITS OUTSIDE, THEN WE SET IT ACCORDING TO THE *
* "WRAP_AROUND" PARAMETER. *
* *
* A0 HAS ADJUSTMENT VALUE *
* A8 POINTS AT ADJUSTMENT STRUCTURE. *
* *
* RETURN NEW VALUE IN A0. *
* *
**************************************************************************
PUT_IN_RANGE
MMTM SP,A1,A2,A3
MOVE *A8(AD_MIN),A1,L ;GET MINIMUM
MOVE *A8(AD_MAX),A2,L ;GET MAXIMUM
MOVE *A8(AD_FLAGS),A3,W ;ARE WE WRAPPING AROUND
BTST WRAP_BIT,A3 ;WELL?
JRNZ CK_WRAP ;YEP....USE A FANCY HANDLER.
CMP A1,A0 ;ARE WE TOO LOW?
JRHS NOT_LO
*
* ITS TOO LOW.....USE MINIMUM
*
USE_LO MOVE A1,A0
*
* WE'RE NOT WRAPPING AROUNG....IF ITS MEGA-HIGH....KEEP IT
* AT THE LOW BOUNDARY.
*
NOT_LO CMPI 090000000H,A0
JRHI USE_LO ;USE THE LOW VALUE!
CMP A2,A0
JRLS PIRX
USE_HI MOVE A2,A0
JRUC PIRX
*
* WE NEED TO WRAP FROM LOWEST TO HIGHEST
*
CK_WRAP
CMPI 090000000H,A0 ;IN THIS RANGE, WE MUST HAVE WRAPPED DOWN
JRHI USE_HI ;SO USE HIGH VALUE
CMP A1,A0 ;IS IT LOWER THAN LO?
JRLO USE_HI ;IT IS ....USE THE HIGH ONE.
CMP A2,A0 ;IS IT TOO HIGH?
JRHI USE_LO ;IT IS....USE THE LOW ONE.
PIRX MMFM SP,A1,A2,A3
RETS
**************************************************************************
* *
* ADJ_BOX *
* *
* A1 HAS NUMBER OF LINES FOR ADJUSTMENT *
* RETURN A10 AT Y IF 1ST LINE OF BOX. *
* *
**************************************************************************
CADJ_BOX
MMTM SP,A4,A5,A0,A9
MOVI ADJ_CULY,A10
JRUC ADJ_ENT
PADJ_BOX
MMTM SP,A4,A5,A0,A9
MOVI ADJ_PULY,A10
JRUC ADJ_ENT
ADJ_BOX
MMTM SP,A4,A5,A0,A9
MOVI ADJ_ULY,A10 ;THIS IS TOP OF BOX
CLR A4
ADJ_ENT
CMPI 2,A1
JRNZ ADJ_ENT_NORMAL
MOVK 8,A5 ;1 LINER KLUDGE
JRUC ADJ_ENT_GO
ADJ_ENT_NORMAL
MOVI HELP_DY,A5 ;DISTANCE PER ENTRY
MPYU A1,A5 ;DISTANCE FOR ALL ENTRIES
ADJ_ENT_GO
ADD A4,A5 ;FIX IT UP A LITTLE
ADDI HELP_Y_MARGIN+(MB_YWID*2)+HELP_YLO_MARGIN,A5
*
* A5 NOW CONTAINS FULL HEIGHT OF BOX
*
*
* NOW FORM UPPER LEFT IN A4
*
MOVE A10,A4 ;MOVE Y OVER
SLL 16,A4 ;MAKE ROOM FOR X
ADDI AM_HX,A4 ;PUT IN THE X...THIS IS UPPER LEFT!
ADD A10,A5 ;ADD BASE TO OFFSET
SLL 16,A5 ;PUT IN Y POSITION
ADDI TIT_LRX,A5 ;ADD IN THE X FOR THE CORNER
*
* NOW ADJUST FROM TOP OF BOX TO POSITION OF
* 1ST ENTRY.
*
ADDI MB_YWID+HELP_Y_MARGIN,A10 ;Y OF 1ST ENTRY
*
* A10 IS NOW SET FOR RETURN VALUE
*
MOVI COLOR_YELLOW,A9 ;MAKE THESE BOXES YELLOW
CALLA STD_BORD
MMFM SP,A4,A5,A0,A9
RETS
WH_BORD
MMTM SP,A9
MOVI COLOR_WHITE,A9
CALLA STD_BORD
MMFM SP,A9
RETS
**** DATA SECTION BEGINS ****
.data
*
* GAME ADJUSTMENT
*
* THE FOLLOWING STRUCTURES ARE FOR EACH ADJUSTMENT
*
* AD_ROUT EQU 0 ;LONG...ROUTINE TO RUN WHEN SELECTED.
* AD_TITLE EQU AD_ROUT+LONG_SIZE ;LONG...POINTER TO TITLE FOR RIGHT COLUMN
* AD_HELP EQU AD_TITLE+LONG_SIZE ;LONG...POINT TO HELP STRUCT FOR EXPLANATION
* AD_CMOS EQU AD_HELP+LONG_SIZE ;WORD...GET_ADJ / PUT_ADJ NUMBER.
* AD_MIN EQU AD_CMOS+WORD_SIZE ;LONG...MINIMUM VALUE FOR ADJ.
* AD_MAX EQU AD_MIN+LONG_SIZE ;LONG...MAXIMUM VALUE FOR ADJ.
* AD_DELTA EQU AD_MAX+LONG_SIZE ;LONG...UNITS BETWEEN VALUES.
* AD_ZEQU EQU AD_DELTA+LONG_SIZE ;LONG...NUMBER TO STORE IN MEMORY AS ZERO
* AD_NAMEIT EQU AD_ZEQU+LONG_SIZE ;LONG...ROUTINE TO PRINT VALUES.
* AD_WRAP EQU AD_NAMEIT+LONG_SIZE ;WORD...NON ZERO TO WRAP FROM HIGHEST TO LOWEST
* AD_NAMPTR EQU AD_WRAP+WORD_SIZE ;LONG...POINTER TO DATA FOR NAMEIT ROUTINE
*
DO_PRICE
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_PRICE ;POINTER TO HEADER MESSAGE
.LONG HELP_PRICE ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJPRICE ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG CS_ENTS ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG COIN_SET ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND ON COIN MODES
.LONG 0 ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_PRICE ;POINTER TO HEADER MESSAGE
DO_PARAM
.LONG PRICE_ADJ ;ROUTINE TO RUN
.LONG MESS_PARAM ;POINTER TO HEADER MESSAGE
.LONG HELP_PARAM ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJPRICE ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG CS_ENTS ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG PARAM_VAL ;Routine for showing current value
.WORD WRAP_VAL ;WRAP AROUND ON COIN MODES
.LONG 0 ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_PARAM ;POINTER TO HEADER MESSAGE
DO_ADJPAGE2
.LONG MORE_ADJ ;ROUTINE TO RUN
.LONG MESS_MOREADJ ;POINTER TO HEADER MESSAGE
.LONG HELP_MOREADJ ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJPRICE ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG CS_ENTS ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG 0 ;Routine for showing current value
.WORD 0 ;WRAP AROUND ON COIN MODES
.LONG 0 ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_MOREADJ ;POINTER TO HEADER MESSAGE
DO_DIFF
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_DIFF ;POINTER TO HEADER MESSAGE
.LONG HELP_DIFF ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJDIFF ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG 3 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD 0 ;DON'T WRAP AROUND
.LONG LIST_DIFF ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_DIFF ;POINTER TO HEADER MESSAGE
DO_ENERGY
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_ENERGY ;POINTER TO HEADER MESSAGE
.LONG HELP_ENERGY ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJENERGY ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 5 ;MINIMUM VALUE
.LONG 200 ;MAXIMUM VALUE
.LONG 5 ;MOVE UP AND DOWN BY 5'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;MESSAGE LIST USED FOR VALUES.
.WORD 0 ;DON'T WRAP AROUND
.LONG MESS_OFF ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_ENERGY ;POINTER TO HEADER MESSAGE
DO_BOMBS
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_BOMBS ;POINTER TO HEADER MESSAGE
.LONG HELP_BOMBS ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJBOMBS ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 10 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;MESSAGE LIST USED FOR VALUES.
.WORD 0 ;DON'T WRAP AROUND
.LONG MESS_OFF ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_BOMBS ;POINTER TO HEADER MESSAGE
DO_MINTIME
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_MINTIME ;POINTER TO HEADER MESSAGE
.LONG HELP_MINTIME ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJMINTIME ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 5 ;MINIMUM VALUE
.LONG 300 ;MAXIMUM VALUE
.LONG 5 ;MOVE UP AND DOWN BY 5'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;MESSAGE LIST USED FOR VALUES.
.WORD 0 ;DON'T WRAP AROUND
.LONG MESS_OFF ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_MINTIME ;POINTER TO HEADER MESSAGE
DO_VIOLENCE
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_VIOLENCE ;POINTER TO HEADER MESSAGE
.LONG HELP_VIOLENCE ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJVIOLENCE ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.IF AUSTRALIA
.LONG 2
.ELSE
.LONG 3 ;MAXIMUM VALUE
.ENDIF
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND
.LONG LIST_VIOLENCE ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_VIOLENCE ;POINTER TO HEADER MESSAGE
DO_AMODE
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_AMOD2 ;POINTER TO HEADER MESSAGE
.LONG HELP_AMODE ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJMUSIC ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 1 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND
.LONG LIST_AMODE ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_AMODE ;POINTER TO HEADER MESSAGE
DO_HSOFF
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_HSOFF2 ;POINTER TO HEADER MESSAGE
.LONG HELP_HSOFF ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJHSON ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 1 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND
.LONG LIST_NOYES ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_HSOFF ;POINTER TO HEADER MESSAGE
DO_AHSRES
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_HSR2 ;POINTER TO HEADER MESSAGE
.LONG HELP_AHSRES ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJHSRES ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 25000 ;MAXIMUM VALUE
.LONG 250 ;MOVE UP AND DOWN BY 250'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG BIN_OR_MESS ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL^HSR_VAL ;WRAP AROUND AND RESET HSC IF TOUCHED
.LONG MESS_OFF ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_AHSRES ;POINTER TO HEADER MESSAGE
DO_MINVOL
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_MINVOL ;POINTER TO HEADER MESSAGE
.LONG HELP_MINVOL ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJMINVOL ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 128 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 5'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;MESSAGE LIST USED FOR VALUES.
.WORD 0 ;DON'T WRAP AROUND
.LONG MESS_OFF ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_MINVOL ;POINTER TO HEADER MESSAGE
DO_SWAVE
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_SWAVE ;POINTER TO HEADER MESSAGE
.LONG HELP_SWAVE ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJSWAVE ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG 6 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD 0 ;DON'T WRAP AROUND
.LONG LIST_SWAVE ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_SWAVE ;POINTER TO HEADER MESSAGE
DO_OFFER
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_OFFER ;POINTER TO HEADER MESSAGE
.LONG HELP_OFFER ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJOFFER ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 1 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND
.LONG LIST_NOYES ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_OFFER ;POINTER TO HEADER MESSAGE
DO_PROFANITY
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_PROFANITY ;POINTER TO HEADER MESSAGE
.LONG HELP_PROFANITY ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJPROFANITY ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 1 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND
.LONG LIST_RATING ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_PROFANITY ;POINTER TO HEADER MESSAGE
*
* THESE ARE ALL FOR THE CUSTOM PRICING MENU
*
COINBITS EQU WRAP_VAL+VIRG_VAL+SIX_VAL
DO_LCOIN
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_LCU ;POINTER TO HEADER MESSAGE
.LONG HELP_LCU ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJLMULT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_LCU ;POINTER TO HEADER MESSAGE
DO_CCOIN
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_CCU ;POINTER TO HEADER MESSAGE
.LONG HELP_CCU ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJCMULT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_CCU ;POINTER TO HEADER MESSAGE
DO_RCOIN
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_RCU ;POINTER TO HEADER MESSAGE
.LONG HELP_RCU ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJRMULT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_RCU ;POINTER TO HEADER MESSAGE
DO_4COIN
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_4CU ;POINTER TO HEADER MESSAGE
.LONG HELP_4CU ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJ4MULT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_4CU ;POINTER TO HEADER MESSAGE
DO_UC
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_UC ;POINTER TO HEADER MESSAGE
.LONG HELP_UC ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJCUNIT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_UC ;POINTER TO HEADER MESSAGE
DO_UB
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_UB ;POINTER TO HEADER MESSAGE
.LONG HELP_UB ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJBUNIT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG BIN_OR_MESS ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG M_NOBONUS ;NO EXTRA INFO NEEDED
.LONG M_UB ;POINTER TO HEADER MESSAGE
DO_UM
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_UM2 ;POINTER TO HEADER MESSAGE
.LONG HELP_UM ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJMUNIT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG BIN_OR_MESS ;JUST SHOW THE NUMBER
.WORD COINBITS ;WRAP AROUND
.LONG M_NOMIN ;NO EXTRA INFO NEEDED
.LONG M_UM ;POINTER TO HEADER MESSAGE
CREDBITS EQU VIRG_VAL
DO_CST
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_CST ;POINTER TO HEADER MESSAGE
.LONG HELP_CS ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJCSTRT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG 4 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD CREDBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_CST ;POINTER TO HEADER MESSAGE
DO_CONT
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_CONT2 ;POINTER TO HEADER MESSAGE
.LONG HELP_CC ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJCCONT ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 1 ;MINIMUM VALUE
.LONG 4 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD CREDBITS ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_CONT ;POINTER TO HEADER MESSAGE
DO_CPD
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_CPD ;POINTER TO HEADER MESSAGE
.LONG HELP_CPD ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJCDIV ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 20 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG BIN_OR_MESS ;JUST SHOW THE NUMBER
.WORD 0 ;NO WRAP AROUND
.LONG M_NO_COL ;NO EXTRA INFO NEEDED
.LONG M_CPD ;POINTER TO HEADER MESSAGE
DO_MAX
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG M_MAX ;POINTER TO HEADER MESSAGE
.LONG HELP_MAX ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJMAXC ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 5 ;MINIMUM VALUE
.LONG 99 ;MAXIMUM VALUE
.LONG 1 ;MOVE UP AND DOWN BY 1'S
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG JUST_BIN ;JUST SHOW THE NUMBER
.WORD WRAP_VAL ;WRAP AROUND
.LONG 0 ;NO EXTRA INFO NEEDED
.LONG M_MAX ;POINTER TO HEADER MESSAGE
DO_FREE
.LONG GEN_ADJ ;ROUTINE TO RUN
.LONG MESS_FREE ;POINTER TO HEADER MESSAGE
.LONG HELP_FREE ;POINTER TO HELP MESSAGES FOR RIGHT SIDE
.WORD ADJFREPL ;CMOS ADJUSTMENT WE'RE SETTING
.LONG 0 ;MINIMUM VALUE
.LONG 1 ;MAXIMUM VALUE
.LONG 1
.LONG 0 ;DON'T SUB ZERO FOR ANY
.LONG LIST_1LINE ;MESSAGE LIST USED FOR VALUES.
.WORD WRAP_VAL ;WRAP AROUND
*
* G_FREE: REPLACE ".LONG LIST_NOYES" WITH ".LONG LIST_YESNO"
*
* .LONG LIST_YESNO ;LIST OF MESSAGES FOR THIS ADJ.
.LONG LIST_NOYES ;LIST OF MESSAGES FOR THIS ADJ.
.LONG MESS_FREE ;POINTER TO HEADER MESSAGE
*
* ADJUSTMENT MENU IS SKINNY..LEAVING ROOM FOR EXPLANATION.
*
AM_BDY EQU -7
;AM_WID EQU 139
AM_WID EQU BAR_WID
AM_X EQU TIT_ULX+GAP+MB_XWID+(AM_WID/2)+C_KLUDGE
AM_Y EQU INST_LRY+BOX_YGAP+MB_YWID+GAP-AM_BDY
*
* RIGHT MARGIN OF ADJUST MENU BOX
*
AM_RX EQU TIT_ULX+(2*GAP)+AM_WID+(2*MB_XWID)
*
* LEFT MARGIN OF HELP BOX
*
AM_HX EQU AM_RX+BOX_XGAP
MEN_ADJ
.LONG RD7FONT ;FONT
.LONG STRCNRM ;CENTER PLEASE
.LONG M_GADJ ;TITLE
.WORD COLOR_WHITE ;COLOR OF TITLE
.WORD MENU_X ;UL X
.WORD MENU_Y ;UL Y
.WORD 11
.WORD COLOR_WHITE ;COLOR WHEN NOT SELECTED
.WORD 11 ;HEIGHT OF SELECTION BAR
.WORD -2 ;DISTANCE OF BAR FROM TOP OF TEXT (NEGATIVE)
.WORD BAR_DX ;EXTRA X ON EACH SIDE.
.WORD BAR_WID ;WIDTH OF BAR!
.WORD COLOR_DECAY ;TEXT COLOR OF SELECTED ITEM
.LONG MESS_MM,0,BLNK_HELP ;RETURN TO MAIN MENU
.LONG MESS_PRICE,DO_PRICE,ADJ_HELP ;STANDARD PRICING
.LONG MESS_PARAM,DO_PARAM,ADJ_HELP ;CUSTOM PRICING
.LONG MESS_FREE,DO_FREE,ADJ_HELP ;FREE PLAY
.LONG MESS_DIFF,DO_DIFF,ADJ_HELP ;DIFFICULTY
.LONG MESS_ENERGY,DO_ENERGY,ADJ_HELP ;ENERGY
.LONG MESS_BOMBS,DO_BOMBS,ADJ_HELP ;BOMBS
.LONG MESS_MINTIME,DO_MINTIME,ADJ_HELP
.LONG MESS_VIOLENCE,DO_VIOLENCE,ADJ_HELP ;Violence level
.LONG MESS_MOREADJ,DO_ADJPAGE2,ADJ_HELP
.LONG MESS_MM,0,BLNK_HELP ;RETURN TO MAIN MENU
.LONG 0 ;END
MEN_ADJ2
.LONG RD7FONT ;FONT
.LONG STRCNRM ;CENTER PLEASE
.LONG M_MOREGADJ ;TITLE
.WORD COLOR_WHITE ;COLOR OF TITLE
.WORD MENU_X ;UL X
.WORD MENU_Y ;UL Y
.WORD 11 ;VERTICAL SPACING
.WORD COLOR_WHITE ;COLOR WHEN NOT SELECTED
.WORD 12 ;HEIGHT OF SELECTION BAR
.WORD -2 ;DISTANCE OF BAR FROM TOP OF TEXT (NEGATIVE)
.WORD BAR_DX ;EXTRA X ON EACH SIDE.
.WORD BAR_WID ;WIDTH OF BAR!
.WORD COLOR_DECAY ;TEXT COLOR OF SELECTED ITEM
.LONG MESS_AM,0,BLNK_HELP ;RETURN TO ADJUSTMENT MENU
.LONG MESS_AMODE,DO_AMODE,ADJ_HELP
.LONG MESS_AHSRES,DO_AHSRES,ADJ_HELP
.LONG MESS_HSOFF,DO_HSOFF,ADJ_HELP
.LONG MESS_MINVOL,DO_MINVOL,ADJ_HELP
.LONG MESS_OFFER,DO_OFFER,ADJ_HELP
.LONG MESS_PROFANITY,DO_PROFANITY,ADJ_HELP
; .LONG MESS_SWAVE,DO_SWAVE,ADJ_HELP
.LONG MESS_AM,0,BLNK_HELP ;RETURN TO ADJUSTMENT MENU
.LONG 0 ;END
MEN_CUST
.LONG RD7FONT ;FONT
.LONG STRCNRM ;CENTER PLEASE
.LONG M_CUSPRI ;TITLE
.WORD COLOR_BLUE ;COLOR OF TITLE
.WORD MENU_X ;UL X
.WORD MENU_Y ;UL Y
.WORD 11 ;VERTICAL SPACING
.WORD COLOR_BLUE ;COLOR WHEN NOT SELECTED
.WORD 12 ;HEIGHT OF SELECTION BAR
.WORD -2 ;DISTANCE OF BAR FROM TOP OF TEXT (NEGATIVE)
.WORD BAR_DX ;EXTRA X ON EACH SIDE.
.WORD BAR_WID ;WIDTH OF BAR!
.WORD COLOR_DECAY ;TEXT COLOR OF SELECTED ITEM
.LONG MESS_AM,0,BLNK_HELP ;RETURN TO MAIN MENU
.LONG M_LCU,DO_LCOIN,ADJ_HELP ;LEFT SLOT UNITS
.LONG M_RCU,DO_RCOIN,ADJ_HELP ;RIGHT SLOT UNITS
.LONG M_CCU,DO_CCOIN,ADJ_HELP ;CENTER SLOT UNITS
.LONG M_4CU,DO_4COIN,ADJ_HELP ;FOURTH SLOT UNITS
.LONG M_UC,DO_UC,ADJ_HELP ;UNITS FOR CREDIT
.LONG M_UB,DO_UB,ADJ_HELP ;UNITS FOR BONUS
.LONG M_UM,DO_UM,ADJ_HELP ;MINIMUM UNITS
.LONG M_CST,DO_CST,ADJ_HELP ;CREDITS REQUIRED TO START
.LONG M_CONT,DO_CONT,ADJ_HELP ;CREDITS REQUIRED TO CONTINUE
.LONG M_CPD,DO_CPD,ADJ_HELP ;COINS PER DOLLAR
.LONG M_MAX,DO_MAX,ADJ_HELP ;MAXIMUM CREDITS
.LONG MESS_AM,0,BLNK_HELP ;RETURN TO MAIN MENU
.LONG 0 ;END
.IF GERMAN
M_GADJ
.STRING "SPIEL-EINSTELLUNG",0
.EVEN
M_MOREGADJ
.STRING "SPIEL-EINSTELLUNG",0
.EVEN
M_CUSPRI
MESS_PARAM
.STRING "MANUELLE KREDITE.",0
.EVEN
MESS_FREE
.STRING "FREISPIEL",0
.EVEN
MESS_PRICE
.STRING "STANDARD-KREDITE.",0
.EVEN
MESS_DIFF
.STRING "SCHWIERIGKEITSGRAD",0
.EVEN
MESS_ENERGY
.STRING "ENERGIE P. SPIEL",0
.EVEN
MESS_BOMBS
.STRING "BOMBEN P. SPIEL",0
.EVEN
MESS_MINTIME
.STRING "MINDESTZEIT P. SPIEL",0
MESS_AMODE
MESS_AMOD2
.STRING "WERBEMELODIE",0 ;MENU TITLE
.EVEN
MESS_HSOFF
MESS_HSOFF2
.STRING "HIGHSCORE-EINTRAGUNG",0
.EVEN
MESS_AHSRES
MESS_HSR2
.STRING "AUTO H.S. RUECKSTELLUNG",0 ;FOR MENU
.EVEN
MESS_MOREADJ
.STRING "MORE ",W_ADJUSTMENTS," ...",0
.EVEN
MESS_MINVOL
.STRING "SET ",W_MINIMUM," VOLUME",0
.EVEN
MESS_SWAVE
.STRING "SET ",W_START,"ING WAVE",0
.EVEN
MESS_OFFER
.STRING "DISPLAY CD OFFER",0
.EVEN
MESS_PROFANITY
.STRING "LANGUAGE RATING",0
.EVEN
M_LCU
.STRING "EINWURF LINKS",0
.EVEN
M_CCU
.STRING "EINWURF 3",0
.EVEN
M_RCU
.STRING "EINWURF RECHTS",0
.EVEN
M_4CU
.STRING "EINWURF 4",0
.EVEN
M_UC
.STRING "TEILUNG / IMPULS",0
.EVEN
M_UB
.STRING "MUENZ BONUS",0
.EVEN
M_UM2
M_UM
.STRING "MINDEST EINHEIT",0
.EVEN
M_CST
.STRING "KREDITE BEI SPIELB.",0
.EVEN
M_CONT2
M_CONT
.STRING "KREDITE ZUR SPIELF.",0
.EVEN
M_CPD
.STRING "EINWERFEN P. DM",0
.EVEN
M_MAX
.STRING "MAXIMUM KREDITE",0
.EVEN
MESS_AM
.STRING "ZUR",C_GERU,"CH INS SPIEL-EINS.",0
.EVEN
.ELSE
M_GADJ
.STRING W_GAME," ",W_ADJUSTMENT,0
.EVEN
M_MOREGADJ
.STRING "MORE ",W_GAME," ",W_ADJUSTMENTS,0
.EVEN
M_CUSPRI
.STRING W_CUSTOM," ",W_PRICING,0
.EVEN
MESS_FREE
.STRING W_FREE," ",W_PLAY,0
.EVEN
MESS_PRICE
.STRING W_STANDARD," ",W_PRICING,0
.EVEN
MESS_PARAM
.STRING W_CUSTOM," ",W_PRICING,0
.EVEN
MESS_DIFF
.STRING W_GAME," DIFFICULTY",0
.EVEN
MESS_ENERGY
.STRING "ENERGY PER ",W_PLAY,0
.EVEN
MESS_BOMBS
.STRING "CDS PER ",W_PLAY,0
.EVEN
MESS_MINTIME
.STRING "MIN. TIME PER ",W_PLAY,0
MESS_VIOLENCE
.STRING "VIOLENCE LEVEL",0
.EVEN
MESS_AMODE
MESS_AMOD2
.STRING "ATTRACT-MODE SOUND",0 ;MENU TITLE
.EVEN
MESS_HSOFF
MESS_HSOFF2
.STRING "HIGH SCORE ENTRY",0
.EVEN
MESS_AHSRES
.STRING "AUTO HIGH SCORE RESET",0 ;FOR MENU
.EVEN
MESS_HSR2
.STRING "AUTO H.S. RESET",0
.EVEN
MESS_MOREADJ
.STRING "MORE ",W_ADJUSTMENTS," ...",0
.EVEN
MESS_MINVOL
.STRING "SET ",W_MINIMUM," VOLUME",0
.EVEN
MESS_SWAVE
.STRING "SET ",W_START,"ING WAVE",0
.EVEN
MESS_OFFER
.STRING "DISPLAY CD OFFER",0
.EVEN
MESS_PROFANITY
.STRING "LANGUAGE RATING",0
.EVEN
M_LCU
.STRING "LEFT ",W_CHUTE," ",W_UNITS,0
.EVEN
M_CCU
.STRING "THIRD ",W_CHUTE," ",W_UNITS,0
.EVEN
M_RCU
.STRING "RIGHT ",W_CHUTE," ",W_UNITS,0
.EVEN
M_4CU
.STRING "FOURTH ",W_CHUTE," ",W_UNITS,0
.EVEN
M_UC
.STRING W_UNITS," / ",W_CREDIT,0
.EVEN
M_UB
.STRING W_UNITS," / BONUS",0
.EVEN
M_UM2
M_UM
.STRING "MINIMUM ",W_UNITS," REQUIRED",0
.EVEN
M_CST
.STRING W_CREDITS," TO START",0
.EVEN
M_CONT2
M_CONT
.STRING W_CREDITS," TO CONTINUE",0
.EVEN
M_CPD
.STRING W_COINS," PER DOLLAR",0
.EVEN
M_MAX
.STRING "MAXIMUM ",W_CREDITS,0
.EVEN
MESS_AM
.STRING "RETURN TO ADJ. MENU",0
.EVEN
.ENDIF
*
* THIS IS THE ADJUSTMENT NAME IN THE UPPER RIGHT
* BOX
*
ADJT_Y EQU INST_ULY+12 ;CENTER IN THE BOX
ADJT_SETUP
MESS_MAC RD7FONT,SPACING07,200,ADJT_Y,COLOR_PLF,STRCNRM,0
CSET_Y EQU CUR_ULY2+12
MESS_CURSET
MESS_MAC RD7FONT,SPACING07,200,CSET_Y+2,COLOR_PYELLOW,STRCNRM,0
.STRING "CURRENT SETTING",0
.EVEN
;IN_Y1 EQU CUR_ULY+10
IN_Y1 EQU CUR_ULY+5
IN_Y2 EQU IN_Y1+10
IN_Y2A EQU IN_Y1+20
IN_Y2B EQU IN_Y2A+10
IN_Y2C EQU IN_Y2B+10
IN_Y3 EQU IN_Y2C+20
IN_Y4 EQU IN_Y3+10
.IF GERMAN
INST_TO_ADJ
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y1,COLOR_PWHITE,STRCNRM,0
.STRING "MODIFY VALUE MIT",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y2,COLOR_PWHITE,STRCNRM,0
.STRING "+ = AUS",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y2A,COLOR_PWHITE,STRCNRM,0
.STRING "- = AB",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y3,COLOR_PWHITE,STRCNRM,0
.STRING "START MIT ENTER",0
.EVEN
.WORD 0
.ELSE
INST_TO_ADJ
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y1,COLOR_PWHITE,STRCNRM,0
.STRING "MODIFY VALUE WITH",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y2,COLOR_PWHITE,STRCNRM,0
.STRING "+ = UP",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y2A,COLOR_PWHITE,STRCNRM,0
.STRING "PLAYER 2 START = UP",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y2B,COLOR_PWHITE,STRCNRM,0
.STRING "- = DOWN",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y2C,COLOR_PWHITE,STRCNRM,0
.STRING "PLAYER 1 START = DOWN",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y3,COLOR_PWHITE,STRCNRM,0
.STRING "ENTER OR TRIGGER",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,IN_Y4,COLOR_PWHITE,STRCNRM,0
.STRING "WHEN VALUE IS CORRECT",0
.EVEN
.WORD 0
.ENDIF
*
* FOR THE WORD UNDER "ADJUSTING" WHILE THE ADJUSTING
* IS ACTUALLY BEING DONE
*
;ADNOW_Y1 EQU CUR_ULY-33
ADNOW_Y1 EQU CUR_ULY-38
ADNOW_Y2 EQU ADNOW_Y1+14
MES_ADJUSTING
MESS_MAC RD7FONT,SPACING07,AM_X,ADNOW_Y1,COLOR_PLF,STRCNRM,0
.STRING "ADJUSTING"
.BYTE 0
.EVEN
.WORD 0
MES_ADNAME
MESS_MAC RD7FONT,SPACING07,AM_X,ADNOW_Y2,COLOR_PLF,STRCNRM,0
INSTR_Y EQU INST_ULY+5
INSTR_2Y EQU INSTR_Y+11
.IF GERMAN
ADJ_ADV
MESS_MAC RD7FONT,SPACING07,AM_X,INSTR_Y,COLOR_PRGB,STRCNRM,0
.STRING "- =AUF/+ =AB",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,INSTR_2Y,COLOR_PRGB,STRCNRM,0
.STRING "START MIT ENTER",0
.EVEN
.WORD 0
.ELSE
ADJ_ADV
MESS_MAC RD7FONT,SPACING07,AM_X,INSTR_Y,COLOR_PRGB,STRCNRM,0
.STRING "- =MOVE UP/+ =MOVE DOWN",0
.EVEN
.WORD 1
MESS_MAC RD7FONT,SPACING07,AM_X,INSTR_2Y,COLOR_PRGB,STRCNRM,0
.STRING "ENTER =ADJ./ESC =PREV MENU",0
.EVEN
.WORD 0
.ENDIF
;AAY EQU IN_Y1+28H
;AAY EQU IN_Y2+72
AAY EQU IN_Y2+85
*AAX EQU AM_RX-12
ADJ_ARROW
MESS_MAC RD15FONT,3,AM_X,AAY-10,COLOR_PLF,STRCNRM,0
.STRING ">>>>>>>",0
.EVEN
*
* IF COIN SETTINGS DON'T NEATLY FIT INTO
* A MODE
*
.IF GERMAN
MESS_TAMPERED
.STRING "MANUELLE",0
.EVEN
MESS_DIP
.STRING "DIP-SCHALTER",0
.EVEN
MESS_GP
.STRING "KREDITE:",0
.EVEN
MESS_FP
.STRING "FREISPIEL:",0
.EVEN
MESS_MAX
.STRING "MAXIMUM KREDITE:",0
.EVEN
M_CTS_PL
.STRING "KREDITE BEI SPIELB.:",0
.EVEN
M_CTC_PL
.STRING "KREDITE ZUR SPIELF.:",0
.EVEN
M_SLOTVAL
.STRING "WAEHR EINWERFEN",0
.EVEN
.ELSE
MESS_TAMPERED
.STRING W_CUSTOM,0
.EVEN
MESS_DIP
.STRING "DIPSWITCH",0
.EVEN
MESS_GP
.STRING W_PRICING,":",0
.EVEN
MESS_FP
.STRING W_FREE," ",W_PLAY,":",0
.EVEN
MESS_MAX
.STRING "MAXIMUM ",W_CREDITS,":",0
.EVEN
M_CTS_PL
.STRING W_CREDITS," TO START:",0
.EVEN
M_CTC_PL
.STRING W_CREDITS," TO CONTINUE:",0
.EVEN
M_SLOTVAL
.STRING W_COIN," SLOT VALUE",0
.EVEN
.ENDIF
**************************************************************************
* *
* HELP STRUCTURES FOR MAIN ADJUSTMENT MENU! *
* *
**************************************************************************
HELP_DIFF
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 4 ;6 ENTRIES
.LONG DH_0
.LONG DH_1
.LONG M_NULL
.LONG DH_5
HELP_PRICE
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 4 ;5 ENTRIES
.LONG PH_0
.LONG PH_1
.LONG PH_2
.LONG PH_3
HELP_DIP
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_RED ;COLOR
.WORD 3
.LONG DIH_0
.LONG DIH_1
.LONG DIH_2
HELP_PARAM
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;5 ENTRIES
.LONG PP_0
.LONG PP_1
.LONG PP_2
.LONG PP_3
.LONG PP_4
.LONG PP_5
HELP_ENERGY
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;6 ENTRIES
.LONG LH_0
.LONG LH_1
.LONG LH_2
.LONG LH_3
.LONG M_NULL
.LONG LH_4
HELP_BOMBS
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;6 ENTRIES
.LONG BH_0
.LONG BH_1
.LONG BH_2
.LONG BH_3
.LONG M_NULL
.LONG BH_4
HELP_MINTIME
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;6 ENTRIES
.LONG MTH_0
.LONG MTH_1
.LONG MTH_2
.LONG MTH_3
.LONG M_NULL
.LONG MTH_4
.IF AUSTRALIA
HELP_VIOLENCE
.WORD 0 ;Justification
.WORD COLOR_BLUE ;color
.WORD 5 ;# of entries
.LONG VH_0
.LONG VH_1
.LONG VH_3
.LONG VH_4
.LONG VH_5
.ELSE
HELP_VIOLENCE
.WORD 0 ;Justification
.WORD COLOR_BLUE ;color
.WORD 6 ;# of entries
.LONG VH_0
.LONG VH_1
.LONG VH_2
.LONG VH_3
.LONG VH_4
.LONG VH_5
.ENDIF
HELP_AMODE
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 5 ;6 ENTRIES
.LONG HAM_1
.LONG HAM_2
.LONG HAM_3
.LONG M_NULL
.LONG HAM_4
HELP_HSOFF
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;6 ENTRIES
.LONG HAM_1
.LONG HSO_2
.LONG HSO_3
.LONG HSO_4
.LONG M_NULL
.LONG HSO_5
HELP_AHSRES
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;6 ENTRIES
.LONG HAH_1
.LONG HAH_2
.LONG HAH_3
.LONG HAH_4
.LONG M_NULL
.LONG HAH_5
HELP_MINVOL
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 5 ;6 ENTRIES
.LONG HMV_1
.LONG HMV_2
.LONG HMV_3
.LONG M_NULL
.LONG HMV_4
HELP_SWAVE
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 5 ;6 ENTRIES
.LONG HSW_1
.LONG HSW_2
.LONG HSW_3
.LONG M_NULL
.LONG HSW_4
HELP_OFFER
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 6 ;6 ENTRIES
.LONG HO_1
.LONG HO_2
.LONG HO_3
.LONG HO_4
.LONG M_NULL
.LONG HO_5
HELP_PROFANITY
.WORD 0 ;CENTER JUSTIFY
.WORD COLOR_BLUE ;COLOR
.WORD 5 ;# of entries
.LONG HP_1
.LONG HP_2
.LONG HP_3
.LONG M_NULL
.LONG HP_4
HELP_FREE
.WORD 0
.WORD COLOR_BLUE
.WORD 6
.LONG FP_M1
.LONG FP_M2
.LONG FP_M3
.LONG FP_M4
.LONG M_NULL
.LONG FP_M5
HELP_MOREADJ
.WORD 0
.WORD COLOR_BLUE
.WORD 9
.LONG MA_M1
.LONG MA_M2
.LONG M_NULL
.LONG MESS_AMODE
.LONG MESS_AHSRES
.LONG MESS_HSOFF
.LONG MESS_MINVOL
.LONG MESS_OFFER
.LONG MESS_PROFANITY
HELP_LCU
.WORD 0
.WORD COLOR_WHITE
.WORD 6
.LONG LC_M1
.LONG LC_M2
.LONG LC_M3
.LONG LC_M4
.LONG LC_M5
.LONG LC_M6
HELP_CCU
.WORD 0
.WORD COLOR_WHITE
.WORD 6
.LONG LC_M1
.LONG LC_M2
.LONG LC_M3
.LONG LC_M4
.LONG CC_M5
.LONG LC_M6
HELP_RCU
.WORD 0
.WORD COLOR_WHITE
.WORD 6
.LONG LC_M1
.LONG LC_M2
.LONG LC_M3
.LONG LC_M4
.LONG RC_M5
.LONG LC_M6
HELP_4CU
.WORD 0
.WORD COLOR_WHITE
.WORD 6
.LONG LC_M1
.LONG LC_M2
.LONG LC_M3
.LONG LC_M4
.LONG C4C_M5
.LONG LC_M6
HELP_UC .WORD 0
.WORD COLOR_WHITE
.WORD 3
.LONG UC_M1
.LONG UC_M2
.LONG UC_M3
HELP_UB .WORD 0
.WORD COLOR_WHITE
.WORD 3
.LONG UB_M1
.LONG UB_M2
.LONG UB_M3
HELP_UM .WORD 0
.WORD COLOR_WHITE
.WORD 3
.LONG UM_M1
.LONG UM_M2
.LONG UM_M3
HELP_CS .WORD 0
.WORD COLOR_WHITE
.WORD 3
.LONG CS_M1
.LONG CS_M2
.LONG CS_M3
HELP_CC .WORD 0
.WORD COLOR_WHITE
.WORD 3
.LONG CS_M1
.LONG CS_M2
.LONG CC_M3
HELP_CPD .WORD 0
.WORD COLOR_WHITE
.WORD 6
.LONG CPD_M1
.LONG CPD_M2
.LONG CPD_M3
.LONG CPD_M4
.LONG CPD_M5
.LONG CPD_M6
HELP_MAX .WORD 0
.WORD COLOR_WHITE
.WORD 6
.LONG MC_M1
.LONG MC_M2
.LONG MC_M3
.LONG MC_M4
.LONG M_NULL
.LONG MC_M5
**************************************************************************
* *
* HELP MESSAGES FOR MAIN ADJUSTMENT MENU! *
* *
**************************************************************************
*
*DIFFICULTY ADJUSTMENT
*
DH_0
.STRING "THIS CONTROLS THE",0
.EVEN
DH_1
.STRING "DIFFICULTY OF ",W_GAME," ",W_PLAY,"."
M_NULL
.BYTE 0
.EVEN
DH_5
.STRING " ",W_FACSET,": MEDIUM",0
.EVEN
*
*STANDARD PRICING
*
PH_0
.STRING "SELECT BUILT-IN ",W_PRICING,0
.EVEN
PH_1
.STRING "MODE, SELECTING ",W_COINS,0
.EVEN
PH_2
.STRING "PER ",W_CREDIT,", AND",0
.EVEN
PH_3
.STRING W_COIN," SLOT VALUE.",0
.EVEN
DIH_0
.STRING "THIS OPTION IS BEING",0
.EVEN
DIH_1
.STRING "ADJUSTED FROM DIPSWITCH",0
.EVEN
DIH_2
.STRING "SETTINGS.",0
.EVEN
*
* LIFE ADJUSTMENT HELP STRINGS MIXED WITH BOMB ADJUSTMENT HELP
*
LH_0
.STRING "THE AMOUNT OF ENERGY",0
.EVEN
BH_1
LH_1
.STRING "A ",W_PLAY,"ER RECEIVES",0
.EVEN
BH_2
LH_2
.STRING "EACH TIME HE ",W_STARTS,0
.EVEN
BH_3
LH_3
.STRING "OR ",W_CONTINUES," A ",W_GAME,".",0
.EVEN
LH_4
.STRING W_FACSET,": 150",0
.EVEN
*
*BOMB ADJUSTMENT HELP STRINGS
*
BH_0
.STRING "THE NUMBER OF CDS",0
.EVEN
BH_4
.STRING W_FACSET,": 25",0
.EVEN
*
*MINIMUM TIME ADJUSTMENT
*
MTH_0
.STRING "THE MINIMUM TIME,",0
.EVEN
MTH_1
.STRING "IN SECONDS, THE ",W_PLAYER,0
.EVEN
MTH_2
.STRING "IS GUARANTEED TO RECEIVE",0
.EVEN
MTH_3
.STRING "FOR EACH PLAY.",0
.EVEN
MTH_4
.STRING W_FACSET,": 75 SECONDS",0
.EVEN
*
* Help for the Violence Level adjustment
*
VH_0
.STRING "CONTROLS THE LEVEL OF",0
.EVEN
VH_1
.STRING "GRAPHIC VIOLENCE.",0
.EVEN
.IF AUSTRALIA
VH_3
.STRING "MED: GREEN BLOOD DISPLAYED.",0
.EVEN
VH_4
.STRING "LOW: NO BLOOD DISPLAYED.",0
.EVEN
VH_5
.STRING W_FACSET,": MEDIUM",0
.EVEN
.ELSE
VH_2
.STRING "HIGH: BLOOD IS RED.",0
.EVEN
VH_3
.STRING "MED: ALL BLOOD IS GREEN.",0
.EVEN
VH_4
.STRING "LOW: NO BLOOD DISPLAYED.",0
.EVEN
VH_5
.STRING W_FACSET,": HIGH",0
.EVEN
.ENDIF
*
*MORE ADJUSTMENTS
*
MA_M1
.STRING "GAINS ACCESS TO THE",0
.EVEN
MA_M2
.STRING "FOLLOWING ADJUSTMENTS:",0
.EVEN
*
*ATTRACT MODE SOUND
*
HAM_1 .STRING "THIS DETERMINES WHETHER",0
.EVEN
HAM_2
.STRING "THE GAME WILL MAKE SOUND",0
.EVEN
HAM_3
.STRING "DURING ATTRACT MODE.",0
.EVEN
.IF GERMAN
HAM_4
.STRING W_FACSET," : EIN",0
.EVEN
.ELSE
HAM_4
.STRING W_FACSET," : ON",0
.EVEN
.ENDIF
*
*ALLOW HIGH SCORE ENTRY
*
HSO_2
.STRING "THE ",W_GAME," WILL ALLOW",0
.EVEN
HSO_3
.STRING "HIGH SCORE ENTRY AND",0
.EVEN
HSO_4
.STRING "TABLE DISPLAY.",0
.EVEN
.IF GERMAN
HSO_5
.STRING W_FACSET,": JA",0
.EVEN
.ELSE
HSO_5
.STRING W_FACSET,": YES",0
.EVEN
.ENDIF
*
*AUTO HIGH SCORE RESET
*
HAH_1 .STRING "THE ALL TIME HIGH SCORE"
.BYTE 0
.EVEN
HAH_2 .STRING "TABLE WILL BE RESET TO"
.BYTE 0
.EVEN
HAH_3 .STRING "FACTORY VALUES EACH TIME"
.BYTE 0
.EVEN
HAH_4 .STRING "THIS MANY ",W_PLAY,"S OCCURS."
.BYTE 0
.EVEN
HAH_5 .STRING W_FACSET,": 5000"
.BYTE 0
.EVEN
*
*MINIMUM VOLUME
*
HMV_1
.STRING "THIS IS THE MINIMUM LEVEL",0
.EVEN
HMV_2
.STRING "ALLOWED WHEN SETTING THE",0
.EVEN
HMV_3
.STRING "VOLUME OF THE SOUND BOARD.",0
.EVEN
HMV_4
.STRING W_FACSET,": 31",0
.EVEN
*
* Starting Wave
*
HSW_1
.STRING "THIS IS THE FIRST WAVE",0
.EVEN
HSW_2
.STRING "TO BE PLAYED. THIS IS MEANT",0
.EVEN
HSW_3
.STRING "FOR DEMONSTRATION ONLY!",0
.EVEN
HSW_4
.STRING W_FACSET,": LA",0
.EVEN
*
* CD Offer
*
HO_1
.STRING "THIS ALLOWS YOU TO CONTROL",0
.EVEN
HO_2
.STRING "WHETHER OR NOT THE CD",0
.EVEN
HO_3
.STRING "OFFER IS DISPLAYED DURING",0
.EVEN
HO_4
.STRING "ATTRACT MODE.",0
.EVEN
HO_5
.STRING W_FACSET,": YES",0
.EVEN
*
* Profanity adjustment
*
HP_1
.STRING "THIS ALLOWS YOU TO CONTROL",0
.EVEN
HP_2
.STRING "THE LEVEL OF BAD LANGUAGE",0
.EVEN
HP_3
.STRING "USED THROUGHOUT THE GAME.",0
.EVEN
HP_4
.STRING W_FACSET,": PG-13",0
.EVEN
*
*FREE PLAY
*
FP_M1
.STRING "SETTING ",W_FREE," ",W_PLAY," TO",0
.EVEN
FP_M2
.STRING ASCII_DQ,"YES",ASCII_DQ," ALLOWS UNLIMITED",0
.EVEN
FP_M3
.STRING W_PLAY," WITHOUT INSERTING",0
.EVEN
FP_M4
.STRING "ANY ",W_COINS,".",0
.EVEN
.IF GERMAN
FP_M5
.STRING W_FACSET,": NEIN",0
.EVEN
.ELSE
FP_M5
.STRING W_FACSET,": NO",0
.EVEN
.ENDIF
PP_0
.STRING "THIS ALLOWS ",W_ADJUSTMENT,0
.EVEN
PP_1
.STRING "OF ",W_PRICING," PARAMETERS",0
.EVEN
PP_2
.STRING "(FOR NON-",W_STANDARD," MODES),",0
.EVEN
PP_3
.STRING W_FREE," ",W_PLAY,", MAXIMUM ",W_CREDITS,",",0
.EVEN
PP_4
.STRING W_CREDITS," REQUIRED TO START",0
.EVEN
PP_5
.STRING "AND ",W_CREDITS," TO CONTINUE.",0
.EVEN
LC_M1
.STRING W_COINS," INSERTED ACCUMULATE",0
.EVEN
LC_M2
.STRING W_UNITS,". THIS ",W_ADJUSTMENT,0
.EVEN
LC_M3
.STRING "SPECIFIES THE NUMBER OF",0
.EVEN
LC_M4
.STRING W_UNITS," GIVEN FOR EACH",0
.EVEN
LC_M5
.STRING W_COIN," IN THE LEFT ",W_CHUTE,".",0
.EVEN
LC_M6
.STRING "(SEE ",ASCII_DQ,W_UNITS," / ",W_CREDIT,ASCII_DQ,")",0
.EVEN
CC_M5
.STRING W_COIN," IN THE THIRD ",W_CHUTE,".",0
.EVEN
RC_M5
.STRING W_COIN," IN THE RIGHT ",W_CHUTE,".",0
.EVEN
C4C_M5
.STRING W_COIN," IN THE FOURTH ",W_CHUTE,".",0
.EVEN
UC_M1
.STRING "THIS IS THE NUMBER OF ",W_COIN,0
.EVEN
UC_M2
.STRING W_UNITS," REQUIRED TO BUY ONE",0
.EVEN
UC_M3
.STRING W_CREDIT,".",0
.EVEN
UB_M1
.STRING "1 BONUS ",W_CREDIT," IS AWARDED",0
.EVEN
UB_M2
.STRING "AFTER THIS MANY ",W_COIN," ",W_UNITS,0
.EVEN
UB_M3
.STRING "HAVE ACCUMULATED.",0
.EVEN
UM_M1
.STRING "NO ",W_CREDITS," WILL BE AWARDED",0
.EVEN
UM_M2
.STRING "UNTIL THIS MANY ",W_COIN,0
.EVEN
UM_M3
.STRING W_UNITS," HAVE ACCUMULATED.",0
.EVEN
CS_M1
.STRING "EACH ",W_PLAY,"ER NEEDS THIS",0
.EVEN
CS_M2
.STRING "MANY ",W_CREDITS," TO",0
.EVEN
CS_M3
.STRING "BEGIN ",W_PLAY,".",0
.EVEN
CC_M3
.STRING "CONTINUE A ",W_GAME,".",0
.EVEN
CPD_M1
.STRING "THE DETAILED BOOKKEEPING",0
.EVEN
CPD_M2
.STRING "SCREEN SHOWS TOTAL",0
.EVEN
CPD_M3
.STRING "COLLECTIONS BASED ON THIS",0
.EVEN
CPD_M4
.STRING "MANY ",W_COINS," PER DOLLAR.",0
.EVEN
CPD_M5
.STRING "(SET TO ZERO TO DISABLE THE",0
.EVEN
CPD_M6
.STRING "DISPLAY OF MONEY TOTALS.)",0
.EVEN
MC_M1
.STRING "THIS IS THE LIMIT FOR",0
.EVEN
MC_M2
.STRING "THE ",W_CREDITS," COUNTER.",0
.EVEN
MC_M3
.STRING "ADDITIONAL ",W_COINS," INSERTED",0
.EVEN
MC_M4
.STRING "WILL BE LOST.",0
.EVEN
MC_M5
.STRING W_FACSET,": 30",0
.EVEN
*
* ADJUSTMENT ENUMERATION STRINGS
*
LIST_DIFF
.LONG DIFF_1,DIFF_2,DIFF_3
LIST_VIOLENCE
.LONG VIOL_1,VIOL_2,VIOL_3
LIST_AMODE
.LONG M_AMS,M_NOAMS
LIST_NOYES
.LONG M_NO,M_YES
LIST_YESNO
.LONG M_YES,M_NO
LIST_DIPNOYES
.LONG M_DNO, M_DYES
LIST_SWAVE
.LONG M_LA, M_HELI, M_AMAZON, M_FEAST, M_MEAST, M_ENGLAND
LIST_RATING
.LONG M_G, M_PG13
.IF GERMAN
M_NO
.STRING "NEIN",0
.EVEN
M_YES
.STRING "JA",0
.EVEN
M_DYES
.STRING "DIP-SCHALTER - JA",0
.EVEN
M_DNO
.STRING "DIP-SCHALTER - NEIN",0
.EVEN
MESS_OFF
M_NOAMS
.STRING "AUS",0
.EVEN
M_AMS
.STRING "EIN",0
.EVEN
.ELSE
M_NO
.STRING "NO",0
.EVEN
M_YES
.STRING "YES",0
.EVEN
M_DYES
.STRING "DIPSWITCH - YES",0
.EVEN
M_DNO
.STRING "DIPSWITCH - NO",0
.EVEN
MESS_OFF
.STRING "OFF",0
.EVEN
M_AMS
.STRING "ON",0
.EVEN
M_NOAMS
.STRING "OFF",0
.EVEN
.ENDIF
DIFF_1
.STRING "EASY",0
.EVEN
DIFF_2
.STRING "MEDIUM",0
.EVEN
DIFF_3
.STRING "HARD",0
.EVEN
VIOL_1
.STRING "LOW",0
.EVEN
VIOL_2
.STRING "MEDIUM",0
.EVEN
VIOL_3
.STRING "HIGH",0
.EVEN
M_LA
.STRING "LA",0
.EVEN
M_HELI
.STRING "FLYING BATTLE",0
.EVEN
M_FEAST
.STRING "FAR EAST",0
.EVEN
M_AMAZON
.STRING "AMAZON",0
.EVEN
M_MEAST
.STRING "MIDDLE EAST",0
.EVEN
M_ENGLAND
.STRING "FINALE",0
.EVEN
M_G
.STRING "G",0
.EVEN
M_PG13
.STRING "PG-13",0
.EVEN
M_NOBONUS
.STRING "NO BONUS ",W_CREDIT,0
.EVEN
M_NOMIN
.STRING "NO MINIMUM",0
.EVEN
M_NO_COL
.STRING "NO MONEY TOTALS",0
.EVEN
**************************************************************************
* *
* MASTER COINAGE TABLES *
* *
**************************************************************************
CSELCT
*
* USA 1 25 CENTS PER CREDIT
*
.WORD 1,0,1,4,1,0,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,0,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;ONE COIN ONE PLAY
.LONG USA_1 ;TITLE OF COIN MODE
.LONG Q_Q ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_NONE ;NO PRICING LINE ON 2/1
.LONG USA_QQ ;QUARTER
*
* USA 2 50 PER CREDIT
*
.WORD 1,0,1,4,2,0,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,0,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;2 COINS PER PLAYER
.LONG USA_2 ;TITLE OF COIN MODE
.LONG C2_PERC ;2 COINS PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_1 ;SHOW LINE 1
.LONG USA_QQ ;QUARTER
*
* USA 3 COINAGE IS 50 CENT 3/$1.00
*
.WORD 1,0,1,4,2,4,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,0,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;PRINT THE 2 THE OP SEES
.LONG USA_3 ;TITLE OF COIN MODE
.LONG DOLLAR_3 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;SHOW LINE 2
.LONG USA_QQ ;QUARTER
*
* USA 4 COINAGE IS 50 CENT 4/$1.00
*
.WORD 3,0,3,4,4,12,6 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 0 ;NO COIN FRACTIONS
.WORD 1,0,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;PRINT THE 2 THE OP SEES
.LONG USA_4 ;TITLE OF COIN MODE
.LONG DOLLAR_4 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;SHOW LINE 2
.LONG USA_QQ ;QUARTER
.IF FULLPRICE
*
* USA 5 25 CENTS PER CREDIT
*
.WORD 1,4,1,4,1,0,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,4,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;ONE COIN ONE PLAY
.LONG USA_5 ;TITLE OF COIN MODE
.LONG U1Q4D ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;NO PRICING LINE ON 2/1
.LONG USA_QDQ ;QUARTER
*
* USA 6 50 PER CREDIT
*
.WORD 1,4,1,4,2,0,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,4,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;2 COINS PER PLAYER
.LONG USA_6 ;TITLE OF COIN MODE
.LONG UFS2D ;2 COINS PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_1 ;SHOW LINE 1
.LONG USA_QDQ ;QUARTER
*
* USA 7 COINAGE IS 50 CENT 3/$1.00
*
.WORD 1,4,1,4,2,4,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,4,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;PRINT THE 2 THE OP SEES
.LONG USA_7 ;TITLE OF COIN MODE
.LONG UFS3D ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;SHOW LINE 2
.LONG USA_QDQ ;QUARTER
*
* USA 8 COINAGE IS 50 CENT 4/$1.00
*
.WORD 3,12,3,4,4,12,6 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 0 ;NO COIN FRACTIONS
.WORD 1,4,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;PRINT THE 2 THE OP SEES
.LONG USA_8 ;TITLE OF COIN MODE
.LONG UFS4D ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;SHOW LINE 2
.LONG USA_QDQ ;QUARTER
.ENDIF
*
* USA ELECTRONIC
*
.WORD 20,2,5,1,5,0,0 ;L,C,R,4,U/C,U/B,MINUNITS
.WORD 20 ;COINS/DOLLAR
.WORD 1 ;DISPLAY FRACTIONS
.WORD 20,2,5,1 ;L,C,R,4
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;SPECIAL MESSAGE
.LONG USA_ELECTITLE ;TITLE OF COIN MODE
.LONG USA_EL ;SETTINGS DESCRIPTION
.WORD SHOW_2 ;LINES TO SHOW ON
.LONG USA_ESLOT ;QUARTER
*
* GERMAN 1 COINAGE IS 6 PLAYS FOR 5 DM
*
.WORD 6,12,30,0,5,0,0 ;WILLY PRICING
.WORD 1 ;DMS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,2,5,0 ;COIN VALUE
.LONG NULL_ST,DM_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG GERMAN_1 ;TITLE OF COIN MODE
.LONG DM_6 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG GERMAN_15 ;1 DM / 5 DM
G1SEL EQU ($-CSELCT)/CS_SIZE ;COIN SELECT VALUE FOR GERMAN 1
*
* GERMAN 2 COINAGE IS 7 PLAYS FOR 5 DM
*
.WORD 6,12,30,0,5,30,0 ;WILLY PRICING
.WORD 1 ;DMS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,2,5,0 ;COIN VALUE
.LONG NULL_ST,DM_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG GERMAN_2 ;TITLE OF COIN MODE
.LONG DM_7 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG GERMAN_15 ;1 DM / 5 DM
*
* GERMAN 3 COINAGE IS 8 PLAYS FOR 5 DM
*
.WORD 7,14,35,0,5,35,0 ;WILLY PRICING
.WORD 1 ;DMS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,2,5,0 ;COIN VALUE
.LONG NULL_ST,DM_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG GERMAN_3 ;TITLE OF COIN MODE
.LONG DM_8 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG GERMAN_15 ;1 DM / 5 DM
*
* GERMAN 4 COINAGE IS 5 PLAYS FOR 5 DM
*
.WORD 1,2,5,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DMS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,2,5,0 ;COIN VALUE
.LONG NULL_ST,DM_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG GERMAN_4 ;TITLE OF COIN MODE
.LONG DM_5 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG GERMAN_15 ;1 DM / 5 DM
*
* GERMAN ELECTRONIC
*
.WORD 60,12,24,0,10,0,0 ;L,C,R,4,U/C,U/B,MINUNITS
.WORD 12 ;COINS/DOLLAR
.WORD 0 ;DISPLAY FRACTIONS
.WORD 60,12,24,0 ;L,C,R,4
.LONG NULL_ST,DM_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;SPECIAL MESSAGE
.LONG GERMAN_ELECTITLE ;TITLE OF COIN MODE
.LONG DM112265 ;SETTINGS DESCRIPTION
.WORD SHOW_3 ;LINES TO SHOW ON
.LONG GERMAN_ESLOT ;QUARTER
****************************************************************************
****************************************************************************
******* THE FOLLOWING NUMBERS ARE FIGURED FOR THE FRENCH SETTINGS
******* REQUESTED BY DIMITRI K. OF P.S.D.
*******
******* 1F 5F 10F U/C U/B M/U
******* --------------------------------
******* 1/2F 3/5F 7/10F 3 15 30 5 30 0
******* 1/3F 2/5F 5/10F 2 10 20 5 20 0
******* 1/5F 3/10F 1 5 10 5 10 0
******* 1/5F 3/10F 7/20F 3 15 30 10 60 15
******* 2/5F 4/10F 9/20F 2 10 20 5 40 10
******* 2/5F 5/10F 11/20F 1 5 10 2 20 5
*******
*
*
* FRENCH 1 2/5F 5/10F
*
*
.WORD 2,0,4,0,1,4,0 ; 2/5F 5/10F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_1 ;TITLE OF COIN MODE
.LONG FIVE_10 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG FRENCH510
F1SEL EQU ($-CSELCT)/CS_SIZE ;COIN SELECT VALUE FOR FRENCH 1
*
* FRENCH 2 2/5F 4/10F
*
*
.WORD 2,0,4,0,1,0,0 ; 2/5F 4/10F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_2 ;TITLE OF COIN MODE
.LONG FOUR_10 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG FRENCH510
*
* FRENCH 3 1/5F 3/10F
*
*
.WORD 1,0,2,0,1,2,0 ;1/5F 3/10F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_3 ;TITLE OF COIN MODE
.LONG THREE_10 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2
.LONG FRENCH510
*
* FRENCH 4 1/5F 2/10F
*
*
.WORD 1,0,2,0,1,0,0 ;1/5F 2/10F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_4 ;TITLE OF COIN MODE
.LONG TWO_10 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_1
.LONG FRENCH510
.IF FULLPRICE
*
*
* FRENCH 5 2/5F 5/10F 11/2 X 10F
*
*
.WORD 5,0,10,0,2,20,0 ;2/5F 5/10F 11/20F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_5 ;TITLE OF COIN MODE
.LONG FIVE_10_11 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_3 ;USE LINE 3 WHEN ONLY 1 WILL FIT
.LONG FRENCH510
*
* FRENCH 6 2/5F 4/10F 9/2 X 10F
*
*
.WORD 2,0,4,0,1,8,0 ;2/5F 4/10F 9/20F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_6 ;TITLE OF COIN MODE
.LONG FOUR_10_9 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_3 ;USE LINE 3 WHEN ONLY 1 WILL FIT
.LONG FRENCH510
*
* FRENCH 7 1/5F 3/10F 7/2 X 10F
*
*
.WORD 3,0,6,0,2,12,0 ;1/5F 3/10F 7/20F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_7 ;TITLE OF COIN MODE
.LONG THREE_10_7 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_3 ;USE LINE 3 WHEN ONLY 1 WILL FIT
.LONG FRENCH510
*
* FRENCH 8 1/5F 2/10F 5/2 X 10F
*
*
.WORD 1,0,2,0,1,4,0 ;1/5F 2/10F 5/20F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_8 ;TITLE OF COIN MODE
.LONG TWO_10_5 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_3 ;USE LINE 3 WHEN ONLY 1 WILL FIT
.LONG FRENCH510
*
* FRENCH 9 1/3 X 1F 2/5F
*
* COIN SLOTS ARE 1F -- 5F
*
*
.WORD 2,0,10,0,5,0,0 ;1/3x1F 2/5F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_9 ;TITLE OF COIN MODE
.LONG F1325 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;USE LINE 2 WHEN ONLY 1 WILL FIT
.LONG FRENCH1F5F
*
* FRENCH 10 1/2 X 1F 3/5F
*
* COIN SLOTS ARE 1F -- 5F
*
*
.WORD 3,0,15,0,5,0,0 ;1/2x1F 3/5F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_10 ;TITLE OF COIN MODE
.LONG F1235 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_2 ;USE LINE 2 WHEN ONLY 1 WILL FIT
.LONG FRENCH1F5F
*
* FRENCH 11 1/3 X 1F 2/5F 5/2 X 5F
*
* COIN SLOTS ARE 1F -- 5F
*
*
.WORD 2,0,10,0,5,20,0 ;1/3x1F 2/5F 5/10F
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_11 ;TITLE OF COIN MODE
.LONG F13255 ;1 COIN PER CREDIT (SERIES OF STRINGS)
.WORD SHOW_3 ;USE LINE 2 WHEN ONLY 1 WILL FIT
.LONG FRENCH1F5F
*
* FRENCH 12 1/2x5F 1/10F 3/2x10F
*
*
.WORD 1,0,2,0,2,4,0 ;L,C,R,4,U/C,U/B,MINUNITS
.WORD 1 ;1 FRANC PER FRANC
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;WAIT TILL HE SAYS "IF IT IS NOT POSSIBLE"
.LONG FRENCH_12 ;TITLE OF COIN MODE
.LONG F12355 ;COINS PER CREDIT
.WORD SHOW_2
.LONG FRENCH510
.ENDIF
*
* FRANCE ELECTRONIC
*
.WORD 1,15,6,0,3,0,0 ; L,C,R,4,U/C,U/B,MINUNITS
.WORD 1 ; COINS/DOLLAR
.WORD 1 ; DISPLAY FRACTIONS
.WORD 1,15,6,0 ; L,C,R,4
.LONG NULL_ST,FRANC_TRAIL ; CHARACTER STRINGS.
.LONG CSM_LIST ; SPECIAL MESSAGE
.LONG FRENCH_ELECTITLE ; TITLE OF COIN MODE
.LONG F13255 ;COIN PAGE DESCRIPTION
.WORD SHOW_3 ;THREE LINES FOR THIS BABY
.LONG FRANCE_ESLOT ; QUARTER
*
* CANADA COINAGE IS 50 CENT 3/$1.00
*
.WORD 1,0,4,0,2,4,0 ;WILLY PRICING
.WORD 4 ;4 COINS PER DOLLAR (FOR CALC)
.WORD 1 ;DISPLAY COIN FRACTIONS
.WORD 1,0,4,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;PRINT THE 2 THE OP SEES
.LONG CANADA ;TITLE OF COIN MODE
.LONG CAN_1503D ;1 PLAY 50, 3 FOR A DOLLAR
.WORD SHOW_2 ;SHOW LINE 2
.LONG CAN_QD ;QUARTER
* SWISS 1 COINAGE IS 6 PLAYS FOR 5 FRANC
.WORD 6,0,30,0,5,0,0 ;WILLY PRICING
.WORD 1 ;FRANCS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTION
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG SWISS_1 ;TITLE OF COIN MODE
.LONG SFRANC_6 ;1 COIN PER CREDIT (SERIES
.WORD SHOW_2
.LONG SWISS15
.IF FULLPRICE
* SWISS 2 COINAGE IS 7 PLAYS FOR 5 FRANC
.WORD 6,0,30,0,5,30,0 ;WILLY PRICING
.WORD 1 ;FRANCS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTIO
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG SWISS_2 ;TITLE OF COIN MODE
.LONG SFRANC_7 ;1 COIN PER CREDIT (SERIES
.WORD SHOW_2
.LONG SWISS15
* SWISS 3 COINAGE IS 8 PLAYS FOR 5 FRANC
.WORD 7,0,35,0,5,35,0 ;WILLY PRICING
.WORD 1 ;FRANCS HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTIO
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG SWISS_3 ;TITLE OF COIN MODE
.LONG SFRANC_8 ;1 COIN PER CREDIT (SERIES
.WORD SHOW_2
.LONG SWISS15
.ENDIF
* ITALY COINAGE IS 1 PLAYS FOR 500 LIRE
.WORD 1,0,1,0,1,0,0 ;WILLY PRICING
.WORD 1 ;LIRE HAVE NO FRACTIONS
.WORD 0 ;DON'T DISPLAY COIN FRACTION
.WORD 500,0,500,0 ;COIN VALUE
.LONG NULL_ST,LIRE_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG ITALY_1 ;TITLE OF COIN MODE
.LONG P1500L ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG ITALYLIRE
* U.K. 1 COINAGE IS 1 PLAY FOR 20P 3 FOR 50P
.WORD 6,0,15,0,5,0,0 ;WILLY PRICING
.WORD 10 ;PENCE ARE FRACTIONS!
.WORD 0 ;DON'T DISPLAY COIN FRACTION
.WORD 2,0,5,0 ;COIN VALUE
.LONG POUND_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG UK_1 ;TITLE OF COIN MODE
.LONG UK_120 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_2
.LONG UK2050
.IF FULLPRICE
* U.K. 2 COINAGE IS 2 PLAY FOR 20P 5 FOR 50P
.WORD 2,0,5,0,1,0,0 ;WILLY PRICING
.WORD 10 ;PENCE ARE FRACTIONS!
.WORD 0 ;DON'T DISPLAY COIN FRACTIO
.WORD 2,0,5,0 ;COIN VALUE
.LONG POUND_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG UK_2 ;TITLE OF COIN MODE
.LONG UK_220 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG UK2050
.ENDIF
* U.K. ELECTRONIC 1
* CENTER = 20P XTRA = 10P LEFT = 1 POUND RIGHT = 50P
* 1 PLAY / 30 P
* 2 PLAY / 50 P
* 4 PLAY / 1 POUND
* .WORD 2,10,20,0,5,0,0 ;NUMBERS FOR 10/50/100
.WORD 20,3,10,2,5,0,0 ;NUMBERS FOR 100/20/50/10
.WORD 10 ;PENCE ARE FRACTIONS!
.WORD 0 ;DON'T DISPLAY COIN FRACTION
.WORD 5,1,10,0 ;COIN VALUE
.LONG POUND_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST ;SPECIAL TITLE W/ POUND
.LONG UK_3 ;TITLE OF COIN MODE
.LONG UK_320 ;1/30P 2/50P 4/1L
.WORD SHOW_2
.LONG UK_ELEC
.IF FULLPRICE
* U.K. ELECTRONIC 2 (CCU)
* CREDITS ARE AWARDED 1 COIN / 1 PLAY.....
* CCU ACCUMULATES 4 COINS AND STROKES US AS FOLLOWS:
* 1 PLAY / 30 P
* 2 PLAY / 50 P
* 4 PLAY / 1 POUND
.WORD 1,0,0,0,1,0,0 ;NUMBERS FOR
.WORD 1 ;PENCE ARE FRACTIONS!
.WORD 0 ;DON'T DISPLAY COIN FRACTIONS
.WORD 1,0,0,0 ;COIN VALUE
.LONG NULL_ST,COINS_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ;SPECIAL TITLE W/ POUND
.LONG UK_4 ;TITLE OF COIN MODE
.LONG UK_320 ;1/30P 2/50P 4/1L
.WORD SHOW_2
.LONG UK_CCU
.ENDIF
* SPAIN 1 1 play / 25 Peseta 5 play / 100 Peseta
.WORD 1,0,4,0,1,4,0 ;WILLY PRICING
.WORD 1 ;no fractions
.WORD 0 ;DON'T DISPLAY COIN FRACTION
.WORD 25,0,100,0 ;COIN VALUE
.LONG NULL_ST,PESETA_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG SP_1 ;TITLE OF COIN MODE
.LONG SP_5100 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_2
.LONG PESETA25
.IF FULLPRICE
* SPAIN 2 1 play / 25 Peseta 4 play / 100 Peseta
.WORD 1,0,4,0,1,0,0 ;WILLY PRICING
.WORD 1 ;no fractions
.WORD 0 ;DON'T DISPLAY COIN FRACTIO
.WORD 25,0,100,0 ;COIN VALUE
.LONG NULL_ST,PESETA_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG SP_2 ;TITLE OF COIN MODE
.LONG SP_4100 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_2
.LONG PESETA25
* AUSTRALIA 1 1 play / 3 X 20 CENTS 2 FOR $1.00
.WORD 2,0,10,0,5,0,0 ;WILLY PRICING
.WORD 5 ;DOLLARS
.WORD 0 ;DON'T SHOW FRACTIONS FOR T
.WORD 1,0,5,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG AUS_1 ;TITLE OF COIN MODE
.LONG AU_60 ;1 COIN PER CREDIT (SERIES OF S
.WORD SHOW_2
.LONG AUST20C
* AUSTRALIA 2 1 play / $1.00 3 plays for $2.00
.WORD 1,0,5,0,5,10,0 ;WILLY PRICING
.WORD 5 ;DOLLARS
.WORD 1 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,5,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG AUS_2 ;TITLE OF COIN MODE
.LONG AU_100 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_3
.LONG AUST20C
.ENDIF
* JAPAN 1 1 play / 100 yen
.WORD 1,1,1,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 100,100,100,0 ;COIN VALUE
.LONG NULL_ST,YEN_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG JAP_1 ;TITLE OF COIN MODE
.LONG JAP_100 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG YEN100
.IF FULLPRICE
* JAPAN 2 2 play / 100 yen
.WORD 2,2,2,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 100,100,100,0 ;COIN VALUE
.LONG NULL_ST,YEN_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG JAP_2 ;TITLE OF COIN MODE
.LONG JAP_200 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG YEN100
* AUSTRIA 1 1 Play / 5 Schilling 2 Play / 10 Schilling
.WORD 1,0,2,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,SHILL_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG ASTA_1 ;TITLE OF COIN MODE
.LONG ASTA_15 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG SHILL510
* AUSTRIA 2 1 Play / 2 X 5 Schilling 3 Play / 10 Schilling
.WORD 1,0,2,0,2,4,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 5,0,10,0 ;COIN VALUE
.LONG NULL_ST,SHILL_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG ASTA_2 ;TITLE OF COIN MODE
.LONG ASTA_10 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_2
.LONG SHILL510
* BELGIUM 1 1 play / 20F
.WORD 1,0,1,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 20,0,20,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG BEL_1 ;TITLE OF COIN MODE
.LONG BEL_120 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG FRANC20
* BELGIUM 2 3 play / 20F
.WORD 3,0,3,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 20,0,20,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG BEL_2 ;TITLE OF COIN MODE
.LONG BEL_320 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG FRANC20
* BELGIUM 3 2 play / 20F
.WORD 2,0,2,0,1,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 1 ;FRACTIONS OK
.WORD 20,0,20,0 ;COIN VALUE
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG BEL_3 ;TITLE OF COIN MODE
.LONG BEL_220 ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG FRANC20
*
* BELGIUM ELECTRONIC
*
.WORD 10,1,4,0,4,0,0 ; L,C,R,4,U/C,U/B,MINUNITS
.WORD 4 ; COINS/DOLLAR
.WORD 1 ; DISPLAY FRACTIONS
.WORD 10,1,4,0 ; L,C,R,4
.LONG NULL_ST,FRANC_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST ; SPECIAL MESSAGE
.LONG BELGIUM_ELECTITLE ; TITLE OF COIN MODE
.LONG BEL_ELEC ; SETTINGS DESCRIPTION
.WORD SHOW_2 ; LINES TO SHOW ON
.LONG BELGIUM_ESLOT ; QUARTER
* SWEDEN 1 play / 3 X 1 KRONA 2 PLAY 5 KRONA
.WORD 2,0,10,0,5,0,0 ;WILLY PRICING
.WORD 1 ;DOLLARS
.WORD 0 ;DON'T SHOW FRACTIONS FOR T
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,KRONA_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG SWED_1 ;TITLE OF COIN MODE
.LONG SWED_2X5 ;1 COIN PER CREDIT (SERIES
.WORD SHOW_1
.LONG KRONA5
* NEW ZEALAND 1 1 play / 3 X 20 CENT
.WORD 1,0,1,0,3,0,0 ;WILLY PRICING
.WORD 5 ;FIVE PER
.WORD 1 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG NZ_1 ;TITLE OF COIN MODE
.LONG NZ_13 ;1 COIN PER CREDIT (SERIES OF S
.WORD SHOW_1
.LONG NZ20
* NEW ZEALAND 2 1 play / 2 X 20 CENT
.WORD 1,0,1,0,2,0,0 ;WILLY PRICING
.WORD 5 ;FIVE PER
.WORD 1 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,1,0 ;COIN VALUE
.LONG DOLLAR_LEAD,NULL_ST ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG NZ_2 ;TITLE OF COIN MODE
.LONG NZ_12 ;1 COIN PER CREDIT (SERIES OF S
.WORD SHOW_1
.LONG NZ20
* NETHERLANDS 1 PLAY / 1 HFL. 3 PLAY / 2.5 HFL.
.WORD 1,0,3,0,1,0,0 ;WILLY PRICING
.WORD 2 ;FIVE PER
.WORD 0 ;SHOW FRACTIONS FOR THE 3 C
.WORD 2,0,5,0 ;COIN VALUE
.LONG NULL_ST,HFL_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG NETH ;TITLE OF COIN MODE
.LONG NETH_HF ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_2
.LONG HFSLOT
* FINLAND 1 PLAY / 1 MARKKA
.WORD 1,0,1,0,1,0,0 ;WILLY PRICING
.WORD 1 ;FIVE PER
.WORD 0 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,1,0 ;COIN VALUE
.LONG NULL_ST,MARKKA_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG FINLAND ;TITLE OF COIN MODE
.LONG FINMKA ;1 COIN PER CREDIT (SERIES OF ST
.WORD SHOW_1
.LONG MKSLOT
* NORWAY 1 PLAY / 2 X 1 KRONE 3/ 5 X 1 KRONE
.WORD 3,0,3,0,5,0,0 ;WILLY PRICING
.WORD 1 ;FIVE PER
.WORD 0 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,1,0 ;COIN VALUE
.LONG NULL_ST,KRONE_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG NORWAY ;TITLE OF COIN MODE
.LONG KR_LIST ;1 COIN PER CREDIT (SERIES OF STRI
.WORD SHOW_2
.LONG NKRSLOT
* DENMARK 1 PLAY / 2 X 1 KRONE 3/ 5 KRONE 7 / 10 KRONE
.WORD 3,0,15,0,5,30,0 ;WILLY PRICING
.WORD 1 ;FIVE PER
.WORD 0 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,5,0 ;COIN VALUE
.LONG NULL_ST,KRONE_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG DENMARK ;TITLE OF COIN MODE
.LONG DKR_LIST ;1 COIN PER CREDIT (SERIES
.WORD SHOW_3
.LONG DKRSLOT
* ANTILLES 1 PLAY / 25 CENTS 4 PLAYS / 1 GUILDER
.WORD 1,0,4,0,1,0,0 ;WILLY PRICING
.WORD 4 ;FIVE PER
.WORD 0 ;SHOW FRACTIONS FOR THE 3 C
.WORD 1,0,4,0 ;COIN VALUE
.LONG NULL_ST,GUILDER_TRAIL ;CHARACTER STRINGS.
.LONG CSM_LIST
.LONG ANTILLES ;TITLE OF COIN MODE
.LONG ANT_LIST ;1 COIN PER CREDIT (SERIES
.WORD SHOW_1
.LONG ANTSLOT
.ENDIF
CS_ENTS EQU ($-CSELCT)/CS_SIZE ;NUMBER OF ENTRIES IN TABLE
;
; DIP SWITCH TABLES
;
USABASE EQU 1
GERBASE EQU G1SEL
FRABASE EQU F1SEL
USADIP
.WORD USABASE+0, USABASE+1, USABASE+2, USABASE+3, USABASE+4
.WORD USABASE+4, USABASE+4
GERDIP
.WORD GERBASE+0, GERBASE+1, GERBASE+2, GERBASE+3, GERBASE+4
.WORD GERBASE+4, GERBASE+4
FRADIP
.WORD FRABASE+0, FRABASE+1, FRABASE+2, FRABASE+3, FRABASE+4
.WORD FRABASE+4, FRABASE+4
.IF GERMAN
DIPCOINTAB
.LONG GERDIP, USADIP, FRADIP, USADIP
.ELSE
DIPCOINTAB
.LONG USADIP, GERDIP, FRADIP, USADIP
.ENDIF
DIPCREDTAB
.BYTE 2,2
.BYTE 2,1
.BYTE 1,1
.BYTE 3,1
.BYTE 4,1
.BYTE 3,2
.BYTE 4,2
.BYTE 3,3
.EVEN
**************************************************************************
* *
* COLLECTION MESSAGES *
* *
**************************************************************************
ME_ZERO
.STRING "0",0
.EVEN
ME_DECIMAL
.STRING ".",0
.EVEN
ME_COLON
.STRING ":",0
.EVEN
DOLLAR_LEAD
.STRING "$ "
NULL_ST
.BYTE 0
.EVEN
POUND_LEAD
.STRING FONT_EPOUND," ",0
.EVEN
DM_TRAIL
.STRING " DM",0
.EVEN
FRANC_TRAIL
.STRING " FRANC",0
.EVEN
LIRE_TRAIL
.STRING " LIRE",0
.EVEN
PESETA_TRAIL
.STRING " PESETA",0
.EVEN
YEN_TRAIL
.STRING " YEN",0
.EVEN
.IF FULLPRICE
SHILL_TRAIL
.STRING " SCHILLINGS"
.BYTE 0
.EVEN
KRONA_TRAIL
.STRING " KRONA"
.BYTE 0
.EVEN
COINS_TRAIL
.STRING " ",W_COINS
.BYTE 0
.EVEN
HFL_TRAIL
.STRING " HFI."
.BYTE 0
.EVEN
MARKKA_TRAIL
.STRING " MARKKA"
.BYTE 0
.EVEN
KRONE_TRAIL
.STRING " KRONE"
.BYTE 0
.EVEN
GUILDER_TRAIL
.STRING " GUILDER"
.BYTE 0
.EVEN
.ENDIF
*
* FOR THE COINAGE ADJUSTMENT MODE:
*
*
* THIS SET IS TITLES FOR THE CANNED MODES.
*
USA_1 .STRING "USA 1",0
.EVEN
USA_2 .STRING "USA 2",0
.EVEN
USA_3 .STRING "USA 3",0
.EVEN
USA_4 .STRING "USA 4",0
.EVEN
.IF FULLPRICE
USA_5 .STRING "USA 5",0
.EVEN
USA_6 .STRING "USA 6",0
.EVEN
USA_7 .STRING "USA 7",0
.EVEN
USA_8 .STRING W_USA," 8",0
.EVEN
.ENDIF
USA_ELECTITLE
.STRING "USA ECA",0
.EVEN
FRENCH_ELECTITLE
.STRING "FRANCE ECA",0
.EVEN
.IF GERMAN
GERMAN_ELECTITLE
.STRING "DEUTSCH ECA",0
.EVEN
GERMAN_1 .STRING "DEUTSCH 1",0
.EVEN
GERMAN_2 .STRING "DEUTSCH 2",0
.EVEN
GERMAN_3 .STRING "DEUTSCH 3",0
.EVEN
GERMAN_4 .STRING "DEUTSCH 4",0
.EVEN
.ELSE
GERMAN_ELECTITLE
.STRING "GERMAN ECA",0
.EVEN
GERMAN_1 .STRING "GERMAN 1",0
.EVEN
GERMAN_2 .STRING "GERMAN 2",0
.EVEN
GERMAN_3 .STRING "GERMAN 3",0
.EVEN
GERMAN_4 .STRING "GERMAN 4",0
.EVEN
.ENDIF
FRENCH_1 .STRING "FRANCE 1",0
.EVEN
FRENCH_2 .STRING "FRANCE 2",0
.EVEN
FRENCH_3 .STRING "FRANCE 3",0
.EVEN
FRENCH_4 .STRING "FRANCE 4",0
.EVEN
.IF FULLPRICE
FRENCH_5 .STRING W_FRANCE," 5",0
.EVEN
FRENCH_6 .STRING W_FRANCE," 6",0
.EVEN
FRENCH_7 .STRING W_FRANCE," 7",0
.EVEN
FRENCH_8 .STRING W_FRANCE," 8",0
.EVEN
FRENCH_9 .STRING "FRANCE 9",0
.EVEN
FRENCH_10 .STRING "FRANCE 10",0
.EVEN
FRENCH_11 .STRING "FRANCE 11",0
.EVEN
FRENCH_12 .STRING W_FRANCE," 12",0
.EVEN
.ENDIF
CANADA
.STRING "CANADA",0
.EVEN
SWISS_1 .STRING "SWISS 1"
.BYTE 0
.EVEN
.IF FULLPRICE
SWISS_2 .STRING "SWISS 2"
.BYTE 0
.EVEN
SWISS_3 .STRING "SWISS 3"
.BYTE 0
.EVEN
.ENDIF
ITALY_1
.STRING "ITALY",0
.EVEN
UK_1
.STRING "U.K. 1",0
.EVEN
UK_3
.STRING "U.K. ECA",0
.EVEN
.IF FULLPRICE
UK_2 .STRING "U.K. 2"
.BYTE 0
.EVEN
UK_4 .STRING "U.K. ELEC W/CCU"
.BYTE 0
.EVEN
.ENDIF
SP_1
.STRING "SPAIN 1",0
.EVEN
.IF FULLPRICE
SP_2 .STRING "SPAIN 2"
.BYTE 0
.EVEN
AUS_1 .STRING "AUSTRALIA 1"
.BYTE 0
.EVEN
AUS_2 .STRING "AUSTRALIA 2"
.BYTE 0
.EVEN
.ENDIF
JAP_1 .STRING "JAPAN 1"
.BYTE 0
.EVEN
.IF FULLPRICE
JAP_2 .STRING "JAPAN 2"
.BYTE 0
.EVEN
ASTA_1 .STRING "AUSTRIA 1"
.BYTE 0
.EVEN
ASTA_2 .STRING "AUSTRIA 2"
.BYTE 0
.EVEN
BEL_1 .STRING "BELGIUM 1"
.BYTE 0
.EVEN
BEL_2 .STRING "BELGIUM 2"
.BYTE 0
.EVEN
BEL_3 .STRING "BELGIUM 3"
.BYTE 0
.EVEN
BELGIUM_ELECTITLE
.STRING "BELGIUM ECA",0
.EVEN
SWED_1 .STRING "SWEDEN"
.BYTE 0
.EVEN
NZ_1 .STRING "NEW ZEALAND 1"
.BYTE 0
.EVEN
NZ_2 .STRING "NEW ZEALAND 2"
.BYTE 0
.EVEN
NETH .STRING "NETHERLANDS"
.BYTE 0
.EVEN
FINLAND .STRING "FINLAND"
.BYTE 0
.EVEN
NORWAY .STRING "NORWAY"
.BYTE 0
.EVEN
DENMARK .STRING "DENMARK"
.BYTE 0
.EVEN
ANTILLES .STRING "ANTILLES"
.BYTE 0
.EVEN
.ENDIF
*
* THIS SECTION IS A POINTER TO STRING LISTS
* FOR THE "CURRENT SETTING" BOX.
*
USA_EL
.LONG EC1
.LONG DOLL4
.LONG 0
*
* 1 COIN / 1 CREDIT
Q_Q .LONG C11 ;THIS POINTS AT MESSAGE
.LONG 0 ;THIS ENDS LIST
*
* 2 COINS / 1 CREDIT
*
C2_PERC .LONG C21
.LONG 0
*
* 2 COINS / 1 CREDIT
* 4 COINS / 3 CREDITS
*
DOLLAR_3 .LONG C21
.LONG C43
.LONG 0
*
* 2 COINS / 1 CREDIT
* 4 COINS / 4 CREDITS
*
DOLLAR_4 .LONG C21
.LONG C44
.LONG 0
.IF FULLPRICE
U1Q4D .LONG C11 ;THIS POINTS AT MESSAGE
.LONG DOLL4 ;4 FOR A DOLLAR
.LONG 0
UFS2D .LONG C21 ;THIS POINTS AT MESSAGE
.LONG DOLL2 ;2 FOR A DOLLAR
.LONG 0
UFS3D .LONG C21 ;THIS POINTS AT MESSAGE
.LONG DOLL3 ;3 FOR A DOLLAR
.LONG 0
UFS4D .LONG C21 ;THIS POINTS AT MESSAGE
.LONG DOLL4 ;4 FOR A DOLLAR
.LONG 0
.ENDIF
*
* 1 PLAY 1/DM
* 5 PLAY 5/DM
*
DM_5 .LONG DM11
.LONG DM55
.LONG 0
DM_6 .LONG DM11
.LONG DM65
.LONG 0
DM_7 .LONG DM11
.LONG DM75
.LONG 0
DM_8 .LONG DM11
.LONG DM85
.LONG 0
DM112265
.LONG DM11
.LONG DM22
.LONG DM65
.LONG 0
SFRANC_6 .LONG SFRANC11
.LONG SFRANC65
.LONG 0
CAN_1503D
.LONG C15 ;THIS POINTS AT MESSAGE
.LONG DOLL3 ;3 FOR A DOLLAR
.LONG 0
.IF FULLPRICE
SFRANC_7 .LONG SFRANC11
.LONG SFRANC75
.LONG 0
SFRANC_8 .LONG SFRANC11
.LONG SFRANC85
.LONG 0
.ENDIF
*
* 2 PLAYS 5F / 5 PLAYS 10F
*
FIVE_10
.LONG F25
.LONG F510
.LONG 0
FIVE_10_11
.LONG F25
.LONG F510
.LONG F1120
.LONG 0
FOUR_10
.LONG F25
.LONG F410
.LONG 0
FOUR_10_9
.LONG F25
.LONG F410
.LONG F4109
.LONG 0
THREE_10
.LONG F15
.LONG F310
.LONG 0
THREE_10_7
.LONG F15
.LONG F310
.LONG F4107
.LONG 0
TWO_10
.LONG F15
.LONG F210
.LONG 0
TWO_10_5
.LONG F15
.LONG F210
.LONG F4105
.LONG 0
F1325
.LONG F3X1F
.LONG F2F5
.LONG 0
F13255
.LONG F3X1F
.LONG F2F5
.LONG F52X5
.LONG 0
F1235
.LONG F2X1F
.LONG F3F5
.LONG 0
F12355
.LONG F110F
.LONG F320F
.LONG 0
* 500 LIRE
P1500L
.LONG P1500L_P
.LONG 0
* 1 PLAY / 20 P 3 PLAYS 50 P
UK_120
.LONG UK_1201
.LONG UK_1202
.LONG 0
UK_320
.LONG UK_3201
.LONG UK_3202
.LONG UK_3203
.LONG 0
.IF FULLPRICE
UK_220
.LONG UK_2201
.LONG UK_2202
.LONG 0
SP_4100
.LONG SP_11
.LONG SP_44
.LONG 0
.ENDIF
SP_5100
.LONG SP_11
.LONG SP_54
.LONG 0
.IF FULLPRICE
AU_60
.LONG AU_36
.LONG AU_2D
.LONG 0
AU_100
.LONG AU_520
.LONG AU_1D
.LONG AU_32D
.LONG 0
.ENDIF
JAP_100
.LONG JAP_101
.LONG 0
.IF FULLPRICE
JAP_200
.LONG JAP_201
.LONG 0
ASTA_10
.LONG ASTA101
.LONG ASTA102
.LONG 0
ASTA_15
.LONG ASTA151
.LONG ASTA152
.LONG 0
BEL_120
.LONG BEL_1201
.LONG 0
BEL_220
.LONG BEL_2201
.LONG 0
BEL_320
.LONG BEL_3201
.LONG 0
BEL_ELEC
.LONG BEL_1251
.LONG BEL_4501
.LONG 0
SWED_2X5
.LONG SWED_S51
.LONG SWED_S52
.LONG 0
NZ_12
.LONG NZ_121
.LONG 0
NZ_13
.LONG NZ_131
.LONG 0
NETH_HF
.LONG HF_11
.LONG HF_32
.LONG 0
FINMKA
.LONG FIN_1
.LONG 0
KR_LIST
.LONG NOR_12
.LONG NOR_35
.LONG 0
DKR_LIST
.LONG DEN_12
.LONG DEN_35
.LONG DEN_710
.LONG 0
ANT_LIST
.LONG ANT1P25
.LONG ANT4DOL
.LONG 0
.ENDIF
EC1
.STRING "1 ",W_CREDIT," / 25 ",W_CENTS,0
.EVEN
C11
.STRING "1 ",W_CREDIT," / 1 ",W_COIN,0
.EVEN
C21
.STRING "1 ",W_CREDIT," / 2 ",W_COINS,0
.EVEN
C43
.STRING "3 ",W_CREDITS," / 4 ",W_COINS,0
.EVEN
C44
.STRING "4 ",W_CREDITS," / 4 ",W_COINS,0
.EVEN
C15
.STRING "1 ",W_CREDIT," / 2 X 25 ",W_CENTS,0
.EVEN
DOLL2
.STRING "2 ",W_CREDITS," / $1.00",0
.EVEN
DOLL3
.STRING "3 ",W_CREDITS," / $1.00",0
.EVEN
DOLL4
.STRING "4 ",W_CREDITS," / $1.00",0
.EVEN
DM11
.STRING "1 ",W_CREDIT," / 1 DM",0
.EVEN
DM22
.STRING "2 ",W_CREDITS," / 2 DM",0
.EVEN
DM55
.STRING "5 ",W_CREDITS," / 5 DM",0
.EVEN
DM65
.STRING "6 ",W_CREDITS," / 5 DM",0
.EVEN
DM75
.STRING "7 ",W_CREDITS," / 5 DM",0
.EVEN
DM85
.STRING "8 ",W_CREDITS," / 5 DM",0
.EVEN
F3F5 .STRING "3 ",W_CREDITS," / 5F",0
.EVEN
F2F5
F25 .STRING "2 ",W_CREDITS," / 5F",0
.EVEN
F15
.STRING "1 ",W_CREDIT," / 5F",0
.EVEN
F110F
.STRING "1 ",W_CREDIT," / 10F",0
.EVEN
F510
.STRING "5 ",W_CREDITS," / 10F",0
.EVEN
F320F
.STRING "3 ",W_CREDITS," / 2 X 10F",0
.EVEN
F1120
.STRING "11 ",W_CREDITS," / 2 X 10F",0
.EVEN
F4109
.STRING "9 ",W_CREDITS," / 2 X 10F",0
.EVEN
F4107
.STRING "7 ",W_CREDITS," / 2 X 10F",0
.EVEN
F4105 .STRING "5 ",W_CREDITS," / 2 X 10F"
.BYTE 0
.EVEN
F410 .STRING "4 ",W_CREDITS," / 10F"
.BYTE 0
.EVEN
F310 .STRING "3 ",W_CREDITS," / 10F"
.BYTE 0
.EVEN
F210 .STRING "2 ",W_CREDITS," / 10F"
.BYTE 0
.EVEN
F3X1F
.STRING "1 ",W_CREDIT," / 3 X 1F",0
.EVEN
F2X1F
.STRING "1 ",W_CREDIT," / 2 X 1F",0
.EVEN
F52X5
.STRING "5 ",W_CREDITS," / 2 X 5F",0
.EVEN
SFRANC11 .STRING "1 ",W_CREDIT," / 1F"
.BYTE 0
.EVEN
SFRANC65 .STRING "6 ",W_CREDITS," / 5F"
.BYTE 0
.EVEN
.IF FULLPRICE
SFRANC75 .STRING "7 ",W_CREDITS," / 5F"
.BYTE 0
.EVEN
SFRANC85 .STRING "8 ",W_CREDITS," / 5F"
.BYTE 0
.EVEN
.ENDIF
P1500L_P
.STRING "1 ",W_CREDIT," / 500 LIRE",0
.EVEN
UK_1201
.STRING "1 ",W_CREDIT," / 20 P",0
.EVEN
UK_1202
.STRING "3 ",W_CREDITS," / 50 P",0
.EVEN
UK_3201
.STRING "1 ",W_CREDIT," / 30 P",0
.EVEN
UK_3202
.STRING "2 ",W_CREDITS," / 50 P",0
.EVEN
UK_3203
.STRING "4 ",W_CREDITS," / L1.00",0
.EVEN
.IF FULLPRICE
UK_2201
.STRING "2 ",W_CREDITS," / 20 P",0
.EVEN
UK_2202
.STRING "5 ",W_CREDITS," / 50 P",0
.EVEN
.ENDIF
SP_11
.STRING "1 ",W_CREDIT," / 25 PESETA",0
.EVEN
SP_54
.STRING "5 ",W_CREDITS," / 100 PESETA",0
.EVEN
.IF FULLPRICE
SP_44
.STRING "4 ",W_CREDITS," / 100 PESETA",0
.EVEN
NZ_131
AU_36
.STRING "1 ",W_CREDIT," / 3 X 20 ",W_CENTS,0
.EVEN
AU_2D
.STRING "2 ",W_CREDITS," / $ 1.00",0
.EVEN
AU_520
.STRING "1 ",W_CREDIT," / 5 X 20 ",W_CENTS,0
.EVEN
AU_1D
.STRING "1 ",W_CREDIT," / $ 1.00",0
.EVEN
AU_32D
.STRING "3 ",W_CREDITS," / $ 2.00",0
.EVEN
.ENDIF
JAP_101
.STRING "1 ",W_CREDIT," / 100 YEN",0
.EVEN
.IF FULLPRICE
JAP_201
.STRING "2 ",W_CREDITS," / 100 YEN",0
.EVEN
ASTA101
.STRING "1 ",W_CREDIT," / 2 X 5 ",W_SCHILLING,0
.EVEN
ASTA102
.STRING "3 ",W_CREDITS," / 2 X 10 ",W_SCHILLING,0
.EVEN
ASTA151
.STRING "1 ",W_CREDIT," / 5 ",W_SCHILLING,0
.EVEN
ASTA152
.STRING "2 ",W_CREDITS," / 10 ",W_SCHILLING,0
.EVEN
BEL_1201
.STRING "1 ",W_CREDIT," / 2OF",0
.EVEN
BEL_2201
.STRING "2 ",W_CREDITS," / 2OF",0
.EVEN
BEL_3201
.STRING "3 ",W_CREDITS," / 2OF",0
.EVEN
BEL_1251
.STRING "1 ",W_CREDIT," / 25F",0
.EVEN
BEL_4501
.STRING "4 ",W_CREDITS," / 50F",0
.EVEN
SWED_S51
.STRING "1 ",W_CREDIT," / 3 X 1 KRONA",0
.EVEN
SWED_S52
.STRING "2 ",W_CREDITS," / 5 KRONA",0
.EVEN
NZ_121
.STRING "1 ",W_CREDIT," / 2 X 20 ",W_CENTS,0
.EVEN
HF_11
.STRING "1 ",W_CREDIT," / 1 HFI",0
.EVEN
HF_32
.STRING "3 ",W_CREDITS," / 2.5 HFI",0
.EVEN
FIN_1
.STRING "1 ",W_CREDIT," / 1 MARKKA",0
.EVEN
DEN_12
NOR_12
.STRING "1 ",W_CREDIT," / 2 X 1 KRONE",0
.EVEN
NOR_35
.STRING "3 ",W_CREDITS," / 5 X 1 KRONE",0
.EVEN
DEN_35
.STRING "3 ",W_CREDITS," / 5 KRONE",0
.EVEN
DEN_710
.STRING "7 ",W_CREDITS," / 2 X 5 KRONE",0
.EVEN
ANT1P25
.STRING "1 ",W_CREDIT," / 25 ",W_CENTS,0
.EVEN
ANT4DOL
.STRING "4 ",W_CREDITS," / 1 GUILDER",0
.EVEN
.ENDIF
**************************************************************************
* *
* COIN SLOT TITLES *
* *
**************************************************************************
USA_ESLOT
.STRING "1 DOLLAR 10/25/5 ",W_CENT,0
.EVEN
FRANCE_ESLOT
.STRING "1/10/5 FRANCS",0
.EVEN
GERMAN_ESLOT
.STRING "5/1/2 DM",0
.EVEN
BELGIUM_ESLOT
.STRING "50/5/20 FR",0
.EVEN
USA_QQ
.STRING "25 ",W_CENT," 25 ",W_CENT,0
.EVEN
.IF FULLPRICE
USA_QDQ
.STRING "25 ",W_CENT," $1.00 25 ",W_CENT,0
.EVEN
.ENDIF
GERMAN_15
.STRING "1 DM 5 DM",0
.EVEN
FRENCH510
.STRING "5 F 10 F",0
.EVEN
FRENCH1F5F
.STRING "1 F 5 F",0
.EVEN
CAN_QD
.STRING "25 ",W_CENT," $ 1.00",0
.EVEN
SWISS15
.STRING "1 F 5 F",0
.EVEN
ITALYLIRE
.STRING "500 LIRE 500 LIRE",0
.EVEN
UK2050
.STRING "20 P 50 P",0
.EVEN
UK_ELEC
.STRING "L1.00 20P 50P 10P",0
.EVEN
.IF FULLPRICE
UK_CCU
.STRING "CCU ON LEFT SLOT ",0
.EVEN
.ENDIF
PESETA25
.STRING "25 PESETA 100 PESETA",0
.EVEN
.IF FULLPRICE
AUST20C
.STRING "20 ",W_CENT," $ 1.00",0
.EVEN
.ENDIF
YEN100
.STRING "100 YEN 100 YEN",0
.EVEN
.IF FULLPRICE
SHILL510
.STRING "5 ",W_SCHILLING," 10 ",W_SCHILLING,0
.EVEN
FRANC20
.STRING "20 F 20 F",0
.EVEN
KRONA5
.STRING "1 KRONA 5 KRONA",0
.EVEN
NZ20
.STRING "20 ",W_CENT," 20 ",W_CENT,0
.EVEN
HFSLOT
.STRING "1 HFI 2.5 HFI",0
.EVEN
MKSLOT
.STRING "1 MARKKA 1 MARKKA",0
.EVEN
NKRSLOT
.STRING "1 KRONE 1 KRONE",0
.EVEN
DKRSLOT
.STRING "1 KRONE 5 KRONE",0
.EVEN
ANTSLOT
.STRING "25 ",W_CENTS," 1 GUILDER",0
.EVEN
.ENDIF
CP_CX EQU 200
CP_11 EQU 11
CP_13 EQU 13
CP_23 EQU 23
CP_33 EQU 33
.END

Reference in New Issue View Git Blame Copy Permalink