Skip to content

Instantly share code, notes, and snippets.

@Hultner

Hultner/lollabben

Created November 28, 2013 14:37
Show Gist options
  • Save Hultner/718e0be7645cd7e7c0da to your computer and use it in GitHub Desktop.
Save Hultner/718e0be7645cd7e7c0da to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lollabben
; Main.s12
; Operatörstyrd borrautomat
; Definitioner
USE Labdefs.s12
ORG $1000
main:
; --- Initiera borrmaskinen
;
; Huvudprogram, invänta vald operation
main_loop:
JSR GetKbdML15
; * Tangentkod nu i register B...
; * Utför vald operation
JSR Command
BRA main_loop
;------------------------------------------------
; Rutinen Command med pekartabell och Dummy-subrutiner
;------------------------------------------------
; Placer USE-direktiv här
USE ML15drvr.s12
;---
;Plzera alla globala variabler här
DCShadow: RMB 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment