80-Bus News

  

November-December 1982, Volume 1, Issue 4











Page 40 of 51











DRIVE ROUTINES FOR THE GEMINI GM822 RTC MODULE

0248" 38 08 JR O2AA’ BE cp O2AB’ 30 05 dR O2ZAD’ D6 30 SUB O2AF’ 12 LD o2B0’ 18 02 JR 3; Error trap ERR: SCF RET 3 All valid, so set clock VALID3: CALL SET

VALID3

O2B2’ = 37 O2B3’ C9

02B4’ cD O1ED’

O2B7’

0288" 289" O2BA’ oO2BB’

o2c7’ 02cc9’ o2n9’

cg

00 00 02

RHEE

on ee

WRESPC:

WSPACE: STK:

STACK:

RET

DEFB DEFB DEFB DEFS

DEFS DEFS

END

M-80

Work spaces

REC

DRIVE ROUTINES FOR THE GEMINI GM822 RTC MODULE

Macros:

Symbols: OOFF 001 0001 oosp’ ooBT" o1B2’ 0088 008B oooF OOOA 00a3’ 0102" OO1E o1c3’ 0080 o24c’ o2p9" 006c’ O1B3’ 0000" 0288’ 0288" 0040

No Fatal error(s)

ALLIN BASE CONIN CRLF DYSTRE HMS IDYWK IMONTH INSTAT LF MONTH OUDATA PCDATA PRINT RDSTRB RIC STACK STMES TIME10 TTLMES VALID2 WRKSPC WRSTRB

0000 0005

ooao’ cogs’ 0090" o082 oOoFg’ 0010 OOOA OOEO Oo1D 001c 0128" 0118" 0259" O00 0000 O1E9’ 0261" o2B4’ o1st’ O2BRB’

ALLOUT BDOS conourT DAY ERMES HOURS THOURS INADDR INTOUT LININ NOSTRBE PADDR PDATA RDRTC READ RIC2 START TEST TIMES VALID VALID3 WRRTC WSPACE

M-80

0082 OOFF eooD Q09c’ O2B2"’ 0088 0085 ooFro’ OOAE’ oocc’ o10B’ oo1r ort O13F" O23FT OED’ o2c7’ o16c’ o00c 0282" ot2i’ o162’

: ,

an On te om

an en

14 Sep 1982 14:48 PAGE 1-8

Set the <C> flag to say error

All done

RREEREEER EEE EER ERE EER EEE EEEE EERE EER EEE ERE EEE EE EEE

KEK

Interrupt / status Stop / start

Leap year status Copy of RTC registers

Stack save space Stack space

14 Sep 1982 14:48 PAGE S

ARGS CMODE

TDAY IMINS INDATA

MNSTRG OUADDR PCADDR PLSTRG RDRTCL RTC SET STK TIME {MONTH VALID WRITE WRRTCL

READ ROUTINE FOR THE GM822 RTC M-80

Oo1c

oo1c oo1D OO1E Oo1F

OOFF OOFF 0010

Qo0c OORO 0080

0000" 0002" 0004" 0006" 0008"

0009" oooB" oooD’ ooor’ oo11

0012" 0014" 0016’ 0018’ oot A" ootc’ O01’

3E D3 38 D3 cg

38 D3 38 D3 cg

38 D3 3B DS 38 D3 cg

FF 15 FF 1E

FF iF FF iF

FF iD FF iF 10 iF

11 Oct 1982

10:49 PAGE

TITLE READ ROUTINE FOR THE GM822 RTC

+Z80

GLOBAL TIME

BASE

EQU

1CH

3; Port assignments

PDATA PADDR

EQU EQU

BASE BASE+1

PCDATA EQU PCADDR EQU

BASE+2 BASE+3

te om em om

3; Control instructions

CMODE QU ALLIN EQU INTOUT QU

OFFH OFFH 10H

an en on

; Addresses for MM58174

TMONTH EQU NOSTRE EQU RDSTRB EQU

12 OEOH 80H

en ee

PIO control

+n an ce

3; Set data port to control

Base addreas of control PIO

Data port for commands Data port for commands Control port for data Control port for data

Control mode All inputs All out except INT input

No strobe or select Read strobe on

subroutines

mode, all lines input

, INDATA:

LD our LD our RET

A, CMODE (PODATA),A A,ALLIN (PCDATA) ,A

Control mode

t 3 + Y

7

Set mode word

Set direction

3; Set command port to control mode, all lines input

INADDR:

. $ . 3

QUADDR:

LD our LD OUT RET

A, CMODE (PCADDR),A A, ALLIN (PCADDR),A

: + ‘ +

EXCEPT the INT line (OB4H)

Lp ouT LD our LD our RET

A, OFFH (PADDR),A A, CMODE (PCADDR),A A, INTOUT (PCADDR),A

Control mode Set mode

Set direction

Set command port to control mode, all lines output

Ensure all data lines «e+ will be i’s Set mode

Set direction

*


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 40 of 51