Willus.com
Home
|
Archive
|
About
SNDCAST1.BAS
(2405 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
Memory space: B23AH - B2E9H Entry point: 3536H ORG 0B23AH B23A LD A,(040B2H) B23D LD SP,03832H B240 INC L B241 LD (03B22H),HL B244 NOP B245 CALL 02C6FH B248 LD BC,02289H B24B LD C,B B24C LD C,A B24D LD D,A B24E JR NZ,LB29DH B250 LD B,C B251 LD C,(HL) B252 LD E,C B253 JR NZ,LB2A2H B255 LD B,L B256 LD D,H B257 LD B,L B258 LD D,D B259 LD D,E B25A JR NZ,LB2B3H B25C LD C,C B25D LD B,H B25E LD B,L B25F LD (05A3BH),HL B262 LD A,(05A8FH) B265 CALL NC,03031H B268 JR NC,$-52 B26A LD E,D B26B PUSH DE B26C LD SP,03030H B26F NOP B270 EX DE,HL B271 LD L,A B272 LD (HL),001H B274 LD D,(HL) B275 PUSH DE B276 RET C B277 JR Z,LB2ACH B279 LD L,031H B27B INC (HL) B27C LD SP,0CF36H B27F JR Z,LB2DBH B281 RET NC B282 LD (0CF29H),A B285 JR Z,$+92 B287 RET NC B288 LD (0CF29H),A B28B INC (HL) B28C ADD HL,HL B28D NOP B28E SCF B28F LD (HL),B B290 LD B,B B291 LD BC,02289H B294 LD D,A B295 LD C,B B296 LD C,C B297 LD B,E B298 LD C,B B299 JR NZ,LB2E8H B29B LD B,C B29C LD D,H LB29DH: B29D LD B,L B29E LD D,D B29F LD C,C B2A0 LD B,C B2A1 LD C,H LB2A2H: B2A2 JR NZ,$+42 B2A4 LD D,E B2A5 LD B,C B2A6 LD C,(HL) B2A7 LD B,H B2A8 INC L B2A9 JR NZ,$+73 B2AB LD D,D LB2ACH: B2AC LD B,C B2AD LD D,(HL) B2AE LD B,L B2AF LD C,H B2B0 INC L B2B1 JR NZ,$+81 LB2B3H: B2B3 LD D,D B2B4 JR NZ,$+68 B2B6 LD D,D B2B7 LD C,C B2B8 LD B,E B2B9 LD C,E B2BA ADD HL,HL B2BB JR NZ,$+72 B2BD LD C,A B2BE LD D,D B2BF JR NZ,$+80 B2C1 LD B,L B2C2 LD E,B B2C3 LD D,H B2C4 JR NZ,$+78 B2C6 LD B,C B2C7 LD E,C B2C8 LD B,L B2C9 LD D,D B2CA LD (0413BH),HL B2CD INC H B2CE LD A,(02441H) B2D1 PUSH DE B2D2 RET M B2D3 JR Z,$+67 B2D5 INC H B2D6 INC L B2D7 LD SP,00029H B2DA LD E,C LB2DBH: B2DB LD (HL),B B2DC LD C,D B2DD LD BC,040B2H B2E0 JR NC,$+46 B2E2 INC L B2E3 INC L B2E4 INC L B2E5 LD (02020H),HL LB2E8H: B2E8 JR NZ,$+34