Code: Select all
0001 START:
0000 4F CLRA
0001 5F CLRB
+
0002 C6 03 LDAB #PAKD
0004 3F 62 OS PK$SETP ; SELECT TOP SLOT
+
0006 C6 03 LDAB #03h ; 11111111b
0008 D7 01 STAB POB_DDR2 ; PORT 2 ALL OUTPUT
+
000A 71 BF 17 BCLR 6,POB_PORT6 ; SET CS3 LOW
000D 72 08 17 BSET 3,POB_PORT6 ; SET SOE_B HIGH
+
0001 INIT:
0010 86 00 LDAA #00h ; INITIAL VALUE
0012 36 PSHA
+
0001 LOOP:
0013 32 PULA ; GET A
0014 97 03 STAA POB_PORT2 ; SEND TO PORT 2
0016 4C INCA ; A+=1
0017 36 PSHA ; SAVE A
0018 3F 46 OS KB$BREK ; ON/CLR PRESSED?
001A 24 F7 BCC LOOP ; IF NOT
001C 20 00 BRA EXIT ; IF PRESSED
+
0001 EXIT:
001E 71 F7 17 BCLR 3,POB_PORT6 ; SET SOE_B LOW
0021 72 40 17 BSET 6,POB_PORT6 ; SET CS3 HIGH
0024 39 RTS
thanks in advance
ATB Shaun