QuarterArcade Coin-Op Tech Net

Generated Code:

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !!
!
!  Fluke 9010A Code Generator
!  Process copyright QuarterArcade.com, LLC 
!
! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! SETUP CODE 
!! Purpose: To set the pod include file and the pod being used, as well as
!!		relevant setup conditions.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
setup
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! SUB: Main
!! PURPOSE: Start the process. Introduce the program to refresh the 
!!   operator's memory, and enter into the main menu.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
program Main

declarations
	!! Intro
	execute QuarterArcadeLogo
	!! Short delay to introduce program
	dpy ROBOTRON: 2084 - RO
	aux ROBOTRON: 2084 - RO
	REG8 = 10
	execute DelayTics8

	execute MainMenu
	
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! Program: KeyEnable
!! Purpose: Wait for a key to be pressed
!! Inputs: none
!! Output: Reg B = 40; toggles the enabling of asynchronous keyboard interrupt
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
program KeyEnable
	REGB = 40                   !Initialize reg B
	dpy-+%B                     !Enable key interrupt to reg B


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! Program: GetKey
!! Purpose: Wait here until a key is pressed
!! Inputs: none
!! Calls to: KeyEnable
!! Outputs: Register B = the value of a key pressed (0-3F)
!! Based on program found in the GFI example from Fluke's documentation
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
program GetKey
	execute KeyEnable           ! Enable interrupt
1:	LABEL 1    
	if REGB = 40 goto 1         ! Loop till key pressed (<40)
	
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! Program: DelayTics8
!! Purpose: Delays the number of tics specified by REG8
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
program DelayTics8

	REG1 = REG8
dloop:
	dec REG1
	if REG1 > 0 goto dloop
	

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! Program: QuarterArcadeLogo
!! Purpose: I'm a geek. 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
program QuarterArcadeLogo

	dpy TECH.QUARTERARCADE.COM
	aux TECH.QUARTERARCADE.COM
	REG8 = 10
	execute DelayTics8