         .OUTPI ALFRES
         .ENTRY PKTIM,UPKTIM
;PACKS THE TIME INTO TWO BYTES
;ON ENTRY X IS THE HOUR, Y IS THE MINS
;ON EXIT, X/Y IS THE PACKED TIME

PTIME    .WORD 0

PKTIM    STX PTIME              ;ROTATE AND STORE IN 11-15
         LDX #5
PKT001   ASL PTIME
         ROL PTIME+1
         DEX
         BPL PKT001
         TYA
         AND #$3F
         ORA PTIME
         STA PTIME
         LDX #4
PKT002   ASL PTIME
         ROL PTIME+1
         DEX
         BPL PKT002
         LDX PTIME
         LDY PTIME+1
         CLC
         RTS
;ON ENTRY X/Y IS THE TIME
;ON EXIT X=HH,Y=MM
UPKTIM   STX PTIME
         STY PTIME+1
         LDA PTIME+1
         LSR A
         LSR A
         LSR A
         TAX                    ;GET THE HOUR BACK
         LDY #2
UPK001   ASL PTIME
         ROL PTIME+1
         DEY
         BPL UPK001
         LDA PTIME+1
         AND #$3F
         TAY
         CLC
         RTS
