KUBES modules ======== KUBES ======================================================= Organisation module IL Project : 667_COMM Network : Module : ORG No.: 1 created : Aug 19 1998 10:03 User : changed : Aug 19 1998 16:41 ====================================================================== 1: ; ------------- Data communication test program ----------------- 2: 3: ; Enable V.24 mode 4: ; ================ 5: ; Clear operand FBM01.00 first (process once only) 6: L INI_MRK M00.00 ; (initialisation marker) 7: JPC MODE_SEL 8: L 0 9: = V24_OK FBM01.00 ; (255 = V24 mode enabled) 10: L PL00.01 11: = INI_MRK M00.00 ; (initialisation marker) 12: JP END_COM 13: ; Choose mode (process cyclically) 14:
MODE_SEL L V24_MODE I00.00 ; (0=programming, 1=communic.) 15: JPCN PROG 16: COMM L 0 ; communication mode 17: = KUBES FBM01.02 ; (255 =programming, 0=communic.) 18: JP RUN_V24 19: PROG L 255 ; programming mode 20: = KUBES FBM01.02 ; (255 =programming, 0=communic.) 21: ; Start KUBES module "send single character" 22: RUN_V24 JPK V24667IE ; single character received 23: ; Mode enabled? 24: L V24_OK FBM01.00 ; (255 = V24 mode enabled) 25: CMP 255 26: JP END_COM ; no -> jump 27: 28: ; Send single characters or strings? 29: ; ================================== 30: SND_MOD L SND_MODE I00.01 ; (0=single char., 1=strings) 31: JPCN S_SINGLE ; send single character 32: JPC S_STRING ; module:
send strings 33: 80