118-ay-envelope.lst

ENTRY_POINT	EQU 8000
AY_SELECT_REGISTER EQU FFFD
AY_DATA_REGISTER EQU BFFD
		ORG 8000
8000:		label start
8000:1600	LD D, 00
8002:1EFB	LD E, FB
8004:CD3380	CALL 8033
8007:1601	LD D, 01
8009:1E00	LD E, 00
800B:CD3380	CALL 8033
800E:1608	LD D, 08
8010:1E10	LD E, 10
8012:CD3380	CALL 8033
8015:160B	LD D, 0B
8017:1E00	LD E, 00
8019:CD3380	CALL 8033
801C:160C	LD D, 0C
801E:1E03	LD E, 03
8020:CD3380	CALL 8033
8023:160D	LD D, 0D
8025:1E0C	LD E, 0C
8027:CD3380	CALL 8033
802A:1607	LD D, 07
802C:1EFE	LD E, FE
802E:CD3380	CALL 8033
8031:		label loop
8031:18FE	JR 8031
8033:		label ay_write
8033:01FDFF	LD BC, FFFD
8036:ED51	OUT (C), D
8038:01FDBF	LD BC, BFFD
803B:ED59	OUT (C), E
803D:C9		RET
803E:		END 8000
Emiting TAP basic loader
Emiting TAP from 8000 to 803D