
 1000  *SAVE S.DISPLAY TIME
 1010  *--------------------------------
 1020  *      READ DATE FROM CLOCK II
 1030  *--------------------------------
 1040  SLOT   .EQ $50      SLOT# * 16
 1050  CLOCK  .EQ $C080
 1060  *--------------------------------
 1070  READ   LDX #SLOT
 1080         LDA #$10     HOLD CLOCK
 1090         STA CLOCK+1,X
 1100         LDY #0       BEGINNING OF MAP
 1110  .1     LDA MAP,Y    NEXT BYTE FROM MAP
 1120         BEQ .3       END OF MAP
 1130         BMI .2       COPY CHARACTER
 1140         STA CLOCK+2,X     SELECT REGISTER
 1150         CMP #$25     IS IT HOUR:TENS?
 1160         BNE .4       NO
 1170         LDA CLOCK+2,X     YES
 1180         AND #3       STRIP OFF FLAGS
 1190         BNE .5
 1200         LDA #$A0
 1210         BNE .2       ...ALWAYS
 1220  .4     LDA CLOCK+2,X     READ REGISTER
 1230  .5     ORA #$B0     CONVERT TO ASCII
 1240  .2     STA BUFFER,Y
 1250         INY
 1260         BNE .1       ...ALWAYS
 1270  .3     LDA #0       RELEASE CLOCK
 1280         STA CLOCK+1,X
 1290         LDA $C000    SEE IF KEY PRESSED
 1300         BPL READ     NO, KEEP READING
 1310         STA $C010    YES, CLEAR STROBE
 1320         JMP $FD8E    LINEFEED AND RETURN
 1330  *--------------------------------
 1340  MAP    .HS 2A29AF2827AF2C2BA0A02524BA2322BA212000
 1350  *--------------------------------
 1360  BUFFER .EQ $7D0

