80-Bus News

  

January–March 1982, Volume 1, Issue 1











Page 21 of 55











ZEAF

Z2F0A ZF OA 2F 0A 2FOA ZF OA 2Foa 2F04 ZF OA ZF 0A 2P OA

1000 1000

1000 Laz 1004

1006 1007 1008

1014

LO2ZE 1630

1032 1033 1035

1037 1039 103A

Z80 Assembler

9020 OBEO O011 0000 oo20 0028 D056 004623 0044 OCzZi

SELL EDA? EDSE

EF

oD

ASG6E7 4&5 72207489 60652028 6868206) 6D29 Z206146E64 20446174 65202864 64206D4D Z2O797929 Ob00

DF 43

iA FEZO 2839

OE20 AF ED7®

0016

00236 0040

o040 0070 ooeo 00’60 o100 o116 0120 0130 0140 0150 0140

0186 bisa

6210 0220 0230 0240

0260 0270 0280 0290

0300

0310 0320

0340 H3su 0340 0370

0390 0400 0410 0420

0440

21 -- Source Listing $TIMEDATE 1 21-2-92 by J. BR. Hillianmns

;Demonstration program for MMS8174 ;Peal-time clock – assumes NAS-SYS,.

s;Constants? CLOCK EQU 20H

CRT EQU OBEQH VECTH EQU LiH CR EQU 0DH

SPACE EQU 20H FRS EQU 28H MRET EQU SEH INLIN EQU 63H NUM EQU 64H NUMYV EQU OC21H

ORG L000H ENT

Set CFU interrupt mode LD A VECTH LO rT A IM Zz

j;Demand time and date RST PRS DEFE CR DEFM /Enter time (Chh mm) /

DEFM / and date (dd mm yy)/

DEFE CR, 0 SCAL INLIN

Test for valid input LD & (DE) CF SPACE JF 2 CINT

Initialise clock LD C CLOCK Test register address XOR 4 QUT cC) A

Stop clock


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











Page 21 of 55