Radio Shack LK-1161 Spezifikationen PDF herunterladen (Seite 9)

136

COMPUTE!

February.

1981

Issue 9

0230

ACCESS

.DE

s8B86

0240

IFR2

.DE

SA405

;FLAG

FOR

DISPLAY TIMER

0250

DISBUF

.DE

$A640

0260

URCVEC

.DE

$A66D

0270

IRQVEC

.DE

SA67E

0280

CLRINT

.DE

SAC04

0290

T1CH

.DE

SAC05

0300

T1LL

.DE

SAC06

0310

ACR

.DE

SACOB

0320

IfR

.DE

SACOD

0330

IER

.DE

SACOE

0340

;

0350

·

it

it

*

INITIATE

TIMER

it

it

it

,

0360

;

OF3F-

20

86

8B

0370

START

JSR

ACCESS

;UNlJRITE

PROTECT

SYS

RAM

Of42-

A9

71

0380

LDA

IL"CLOCK

:SET

IRQ

OF44-

8D

7E

A6

.

0390

STA

IRQVEC

;

VECTOR

OF47-

A9

OF

0400

LDA

IH"CLOCK

TO

OF49-

8D

7F

A6

0410

STA

I

RQVEC

+1

"CLOCK"

OF4C -

A9

B9

0420

LDA

IL"TIME

;SET

UNRECOGNIZED

OF4E-

8D 6D

A6

0430

STA

URCVEC

;

COMMAND

VECTOR

OF51-

A9

OF

0440

LDA

IH"TIME

·

TO

,

OF53 -

8D

6E

A6

0450

STA

URCVEC

+1

"T

I

ME"

OF56-

A9

CO

0460

LDA

ISCO

;SET

aITS

6 &

7

Of

58-

8D

OB

AC

0470

STA

ACR

;

FOR

FREE RUNNING

MODE

OF5B-

8D

OE

AC

0480

STA

IER

;

AND

T1

INTERRUPT ENABLE

OF5E-

AD

OD

AC

0490

LDA

IfR

;CLEAR

T1

FLAG

BIT

6

BUT

OF61-

29

BF

0500

AND

IsBF

;

DON'T DISTURB

OTHER

OF63 -

8D

OD

AC

0510

STA

IFR

;

IFR

BITS

OF66-

A9

50

0520

LDA

1$50

;SET

OF68-

8D

06

AC

0530

STA

T1LL

;

TIMER

OF6B-

A9 C3

0540

LDA

ISC3

;

FOR

1/20

SEC

AND

OF6D-

8D

05

AC

0550

STA T1CH

;

START TIMER

OF70-

60

0560

RTS

0570

·

,

0580

·

* *

*

INTERRUPT SERVICE

ROUTINE

it

it it

,

0590

;

OF71-

48

0600

CLOCK

PHA

;

;SAVE

ACCUMULATOR

OF72-

f8

0610

SED

;

;TIME

IS

I N

DEC

I

MAL

MODE

OF73 -

CE

fC

Of

0620

DEC

COUNT

; SEE

If

1

SEC

HAS

PASSED

Of76-

DO

3B

0630

BNE

EXIT

;

If

NO"

EXIT

Of78-

A9

14

0640

LDA

120

;If

YES,

Of7A-

8D

fC

Of

0650

STA

COUNT

·

RESTORE

COUNT

,

Of7D-

18

0660

CLC

;

;

AND

Of7E-

A9

o 1

0670

LDA

101

;

ADD

1

Of

80-

6D

ff

Of

0680

ADC

SECS

·

TO

,

OF83-

8D

ff

Of

0690

STA

SECS

;

SECS

Of86-

C9

60

0700

CMP

IS60

;SEE

IF

60

SECS

HAS

PASSED

Of88-

DO

29

0710

BNE

EXI T

; I f

NO"

EXIT

Of8A-

A9

00

0720

LDA

100

;If

YES,

RESET

Of8C -

8D

ff

Of

0730

STA

SECS

·

SEC

S

TO

ZERO

,

Of8F-

18

0740

CLC

.

;

AND

,

Of90-

A9

°1

0750

LDA

101

;

ADD

Of92-

6D FE

OF

0760

ADC

MINS

·

ONE

TO

,

OF95-

8D

FE

Of

0770

STA

MINS

;

MINS

Of98-

C9

60

0780

CMP

IS60

;SEE

IF

60

MINS

HAS

PASSED

Of9A-

DO

17

0790

ENE

EXIT

;

If

NO"

EXIT

Of9C -

A9 00

0800

LDA

100

;If

YES"

RESET

Of9E-

8D

fE

Of

0810

STA

MINS

;

MINS

TO

ZErtO

OfA1-

18

0820

CLC

;

;

AND

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Kommentare zu diesen Handbüchern

Keine Kommentare