80-Bus News

  

September-October 1984, Volume 3, Issue 5











Page 35 of 47











cola C016 cols col colc cole

c020 C022 C025 c028 C023 c02D cO2F C032 C034 c035 C036 c039 CO3B

C03C CO3F co40 co4l Co44 c045 C046 C048 co49 CO4B co4p CO4E CO4F c050 co51 €052 c053 c054

co55 c056 c057 co59 CO5B

OE 06 21 oc ED 20

21 OB co09

A2 FB

04 c009 c008 co3c E7 F9 C055 EO

cg3c Dg

co55

C055

27

27 27

OF OF

start: ld c,clocktl H ld b,nmrr eg 1d hl regs read: ine c ini jr nz ,read

Read into workspace

; Now see if any changed during read and convert into HEX

1d b,4

ld hl,regs

ld de,regs-1 scan: call seanl

jr z,start

dinz scan

eall test

dir z start

ld (de),a

dec de

call sean]

jr z,start

ret ;

Exit, all done

3; Take two bytes and convert to HEX

scanl: call test $ ret Zz ld c,a eall test ret z push be sla a ld c sla a

sla a a b

add pop add ayc

1d (de) ,a dec de

xor a

dec a

ret

3; Take a byte and test the change test: ld a,(hl) inc hi and ofh cp Ofh ret

end

Do the low byte

Save it in Cc Do the high byte

Multiply by 10

Add low to high Save it in workspace

Clear any Z flag

flag

Mask off top nibble Test for change

Listing Four

* Get the time and display on SVC CALL IF PEEK(s:timet6 )<#9

STORE "O"4+STR(PEEK(s:timet6),1) TO hr ELSE

STORE STR(PEEK(s:timet6),2) TO hr ENDIF IF PEEK(s:timet+7)< 9

STORE "O’+STR(PEEK(s:timet7),1) TO min ELSE

STORE STR(PEEK(s:timet+7),2) TO min ENDIF IF PEEK(s:timet8 )<=9

STORE "O"+STR(PEEK(s:timet+8),1) TO sec ELSE . STORE STR(PEEK(s:timet+8),2) TO sec ENDIF STORE CHR(27)+"t’’+hr+mint+sect+CHR(27)+"tE" TO tt 2? tt

* Get todays date, add to time, store as a logon string STORE "JanFebMarAprMay JunJlyAugSepOctNovDec" TO m. STORE "SunMonTueWedThuFriSat" TO d

STORE hrt"."4min TO hm

STORE $(m,3*PEEK(s:timet3)-2,3) TO m

STORE $(d,3*PEEK(s:timet4)--2,3) TO d

STORE "Log on time “+hm+"

Listing Five.

PORE 49152,195,105,192

POKE 49167, 62,255,211, 30,62, 255, 211, 30, 201, 62, 255, 211, 31,62, 255, 211, 31 POKE 49184, 201, 62,255,211,29, 62,255,211, 31,62, 16,211, 31,201,237, 81 POKE 49200, 237,89, 219,28, 237,81, 201, 205, 33,192, 205, 15, 192, 33, 3, 192 POKE 49216, 6,12, 22,236, 30,140, 14,29,205,46, 192, 230,15,254,15,40 POKE 49232, 230, 119,35, 21,29, 16, 241, 201, 126, 35, 205, 99, 192, 70, 35, 128 POKE 49248,18,19,201,7,71,7,7, 128,201,205, 15,192,205, 24, 192,205 POKE 49264,55,192, 33, 3,192, 84, 93, 205, 88, 192, 237, 160, 6, 4, 197, 205 POKE 49280, 88,192, 193,16,249,201,0,0,0,0,0,0,0,0, 0, 62

POKE 49296, 255,211, 30, 62, 255, 211, 30, 201,62, 255, 211, 31,62, 255, 211, 31 POKE 49312,201,62,255,211,29,62,255,211, 31, 62,16, 211, 31,201, 237, 81 POKE 49328, 237,89, 219, 28, 237,81, 201, 205, 33, 192, 205, 15, 192, 33, 3, 192 POKE 49344, 6,12, 22,236, 30,140, 14,29,205, 46, 192, 230, 15,254,15, 40 POKE 49360, 230,119, 35,21, 29, 16, 241, 201, 126, 35, 205, 99, 192, 70, 35, 128 POKE 49376,18,19,201,7,71,7,7, 128,201,205, 15,192,205, 24, 192,205 POKE 49392,55,192, 33,3, 192,84, 93, 205, 88, 192, 237, 160,6

"d+" "4STR(PEEK(s:timet5),2)+" "+m TO s:logonl

35


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











Page 35 of 47