;LAST UPDATE 5/12/85 22:30 BY MTM
	NAME	MODUL5
;
ZMODEM_FCTION SEGMENT CODE
	RSEG ZMODEM_FCTION
;
$TITLE(MODULE 5,THE MODEM FUNCTIONS)
$INCLUDE(:F1:COPYRT.212)
;
;
	PUBLIC	MODEM,DLB,IRT
	PUBLIC	ANS_MOD,ORG_MOD
	PUBLIC  ALB,ST,RDL
;
	EXTRN	CODE(PWR_ON,TM_TRAP,UNTRAP)
	EXTRN	CODE(INIT_FLG,INIT_PTR)
	EXTRN	DATA(DDPH,DDPL,TTH0,TTL0,TTH1,TTL1)
	EXTRN	CODE(INIT_F1,WAIT_1)
	EXTRN	CODE(I_PTR1,PWR2)
;
$EJECT
$INCLUDE(:F1:MODEM.212)
$INCLUDE(:F1:ANSMOD.212)
$INCLUDE(:F1:ORGMOD.212)
$SAVE NOLIST
$INCLUDE(:F1:BITDEF.212)
$INCLUDE(:F1:RAMDEF.212)
$RESTORE
;
$EJECT
;
END