; test113ml.asm
; Forward references

; L. Stewart, March 24, 1982  8:01 PM

; interrupt data
RefRes    EQU   0E5H
TimCtl    EQU   0C1H
TIIPLoc   EQU   094H

C←CODE SEGMENT

FORWARD RefB:NEAR   ; doesn't do anything
ASSUME CS:C←CODE, DS:C←CODE


; Refresh Interrupt
RefA:
   PUSH	BX
   MOV	BL,AL
   MOV	AL,RefRes
   OUT  TimCtl,AL
   MOV	AL,BL
;
; would like to use move immediate to memory!
;
   XOR	BX,BX
   MOV	[TIIPLoc+BX],OFFSET RefB
   POP	BX
   IRET

RefB:
   PUSH	BX
   MOV	BL,AL
   MOV	AL,RefRes
   OUT  TimCtl,AL
   MOV	AL,BL
   XOR	BX,BX
   MOV	[TIIPLoc+BX],OFFSET RefA
   POP	BX
   IRET

C←CODE ENDS
	END