script_vars.s88

COP8 CPU的一个解释型BASIC源码

; This file defines:
; 1) the symbolic addresses 'cal' and 'contrast' used to retrieve
;     the calibration and LCD contrast level for the PWM
; 2)  defines and initializes a simple "hello world" program that comes preloaded
;     with Scriptherm.
; 3) defines and initializes the system variable's names.
; 
;

    PUBLIC cal
    PUBLIC contrast

    RSEG SCRIPT_VARS
memory_initializer:

;HYS - thermostat hysteresis
	DB 72
	DB 89
	DB 83
	DB 0
; THERM - thermeter value
	DB 84
	DB 72
	DB 69
	DB 82
	DB 77
	DB 0
;OUT - ralay bits
	DB 79
	DB 85
	DB 84
	DB 0
;IN - input and keyboard bits
	DB 73
	DB 78
	DB 0
;TIME - seconds elapsed
	DB 84
	DB 73
	DB 77
	DB 69
	DB 0
;? - placeholder for parameters
	DB 63
	DB 0
;retval - return value for functions
	DB 114
	DB 101
	DB 116
	DB 118
	DB 97
	DB 108
	DB 0
; null name
	DB 0
; THRE - thermostat threshold
	DB 84
	DB 72
	DB 82
	DB 69
	DB 0


    RSEG PRELOAD
    
; a simple "hello world" program preloaded in memory
    
script:
    DB    50H, 52H, 49H, 4EH, 54H, 20H, 0DH, 27H, 20H, 20H, 20H, 20H, 20H, 20H, 53H, 43H  ;PRINT .'      SC
    DB    52H, 49H, 50H, 54H, 48H, 45H, 52H, 4DH, 20H, 20H, 20H, 20H, 20H, 27H, 2CH, 0DH  ;RIPTHERM     ',.
    DB    27H, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH  ;'---------------
    DB    2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 27H, 2CH, 0DH, 27H, 20H, 20H, 20H, 20H, 52H, 45H  ;------',.'    RE
    DB    4CH, 45H, 41H, 53H, 45H, 20H, 30H, 31H, 2EH, 30H, 30H, 20H, 20H, 20H, 20H, 27H  ;LEASE 01.00    '
    DB    2CH, 0DH, 27H, 20H, 20H, 20H, 20H, 20H, 28H, 43H, 29H, 20H, 32H, 30H, 30H, 31H  ;,.'     (C) 2001
    DB    20H, 42H, 59H, 20H, 20H, 20H, 20H, 20H, 27H, 2CH, 0DH, 27H, 20H, 41H, 4CH, 42H  ; BY     ',.' ALB
    DB    45H, 52H, 54H, 4FH, 20H, 52H, 49H, 43H, 43H, 49H, 20H, 42H, 49H, 54H, 54H, 49H  ;ERTO RICCI BITTI
    DB    20H, 27H, 2CH, 0DH, 27H, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH  ; ',.'-----------
    DB    2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 2DH, 27H, 2CH, 0DH, 27H, 53H, 59H  ;----------',.'SY
    DB    53H, 54H, 45H, 4DH, 3AH, 20H, 20H, 20H, 20H, 52H, 55H, 4EH, 4EH, 49H, 4EH, 47H  ;STEM:    RUNNING
    DB    20H, 4FH, 4BH, 27H, 2CH, 0DH, 27H, 54H, 45H, 4DH, 50H, 45H, 52H, 41H, 54H, 55H  ; OK',.'TEMPERATU
    DB    52H, 45H, 3AH, 20H, 20H, 20H, 20H, 20H, 20H, 20H, 20H, 20H, 27H, 0DH, 57H, 48H  ;RE:         '.WH
    DB    49H, 4CH, 45H, 20H, 31H, 0DH, 20H, 50H, 52H, 49H, 4EH, 54H, 20H, 40H, 20H, 37H  ;ILE 1. PRINT @ 7
    DB    2CH, 31H, 36H, 2CH, 54H, 48H, 45H, 52H, 4DH, 2CH, 27H, 20H, 20H, 27H, 0DH, 57H  ;,16,THERM,'  '.W
    DB    45H, 4EH, 44H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H  ;END.............

    RSEG CALIBRATION
cal:
; single point calibration
	DB 0EH, 7BH

contrast:
; LCD contrast 0x00 = dark, 0x20 = light
	DB 0AH
    END