LEX    'DTLEX'
       ID     #5F
       MSG    0
       POLL   0
CKSREQ EQU    #00721   Service request
KBCNT  EQU    #2F443   Keyboard buffer counter
NXTSTM EQU    #08A48   Reentry to BASIC interpreter
SLEEP  EQU    #006C2   Shut down CPU
END1   EQU    #2E15F   LCD address
START1 EQU    #2E0FF
END2   EQU    #2E25F
START2 EQU    #2E1FF
END3   EQU    #2E34F
START3 EQU    #2E2FF
       ENTRY  cDT
       CHAR   #1
       KEY    'DT'
       TOKEN  1
       ENDTXT
*
pDT    RTNCC           Parser
       REL(5) pDT
* Turn on LCD in 3 broken address segments
cDT    P=     0
       LC(5)  END1     First segment
       D0=(5) START1
       GOSUB  FILL
       LC(5)  END2     Second segment
       D0=(5) START2
       GOSUB  FILL
       LC(5)  END3     Third segment
       D0=(5) START3
       GOSUB  FILL
*
RENTER GOSBVL SLEEP    Power down CPU
       GOC    SERVCE
       D0=(5) KBCNT
       DAT0=C P        Kill keyboard buffer
       GOVLNG NXTSTM   Exit
*
SERVCE GOSBVL CKSREQ
       GOTO   RENTER   Done with service request
*
FILL   D0=D0+ 1        Turn on LCD
       DAT0=C 1
       AD0EX
       D0=A
       ?A<C   A
       GOYES  FILL
       RTN