ORG - ORG SECOP SIGNSEC BS RESULT1 RESULT2 SIGNRESULT...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
ORG $2000 SECOP EQU $9000 SIGNSEC EQU $9001 BS EQU $9002 RESULT1 EQU $9003 RESULT2 EQU $9004 SIGNRESULT EQU $9005 OVERFLW EQU $9006 EXTLOC EQU $9007 PORT EQU $4000 ORG $8000 CLR PORT PWON LDAA PORT STAA EXTLOC ANDA #$80 ;CHECK START BNE PWON LDAA EXTLOC ANDA #$10 ;CHECK BS BNE SETBS BRA CONT SETBS LDAA #$01 STAA BS CONT LDAA EXTLOC ANDA #$20 ;CHECK F0 BNE MULTORINV LDAA EXTLOC ANDA #$40 ;CHECK F1 BNE SUBS BRA ADDT MULTORINV LDAA EXTLOC ANDA #$40 ;CHECK F1 BNE INVD JMP MULT INVD LDX #MSG1 ;F0=1,F1=1 INVALID JSR $FFC7 ADDT LDX #MSG2 JSR $FFC7 LDAA SIGNSEC EORA BS BNE LEFTSIDE BRA RIGHTSIDE SUBS LDX #MSG3 JSR $FFC7 LDAA SIGNSEC EORA BS BNE RIGHTSIDE BRA LEFTSIDE RIGHTSIDE LDX #MSG4 JSR $FFC7 JSR LOADA LDAA #$50 ;LOW,PAR,ADD,LOADA=1,. .. JSR ISLE JSR SHFT JSR READALL ANDA #$80 ;CHECK E BNE SETOVF CLR OVERFLW JMP PWON
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
SETOVF LDX #MSG5 JSR $FFC7 LDAA #$01 STAA OVERFLW JMP PWON LEFTSIDE LDX #MSG6 JSR $FFC7 JSR LOADA LDAA #$70 ;LOW,PAR,SUB,LOADA=1, JSR TOREGA JSR SHFT JSR READALL ANDA #$80 ;CHECK E
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 3

ORG - ORG SECOP SIGNSEC BS RESULT1 RESULT2 SIGNRESULT...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online