TS1500

ZX81

 

1

; DISASSEMBLY OF THE FILE "TS1500.ROM"

1

; DISASSEMBLY OF THE FILE "ZX81.ROM"

 

2

2

;

3

3

; CREATED WITH DZ80 V1.20

4

4

;

 

5

; ON TUESDAY, 10 OF MAY 2005 AT 00:33 AM

5

; ON TUESDAY, 10 OF MAY 2005 AT 00:35 AM

 

6

6

;

7

7

        OUT (#FD),A

 

8

        LD HL,#8000

8

        LD BC,#7FFF

9

        JP #03C9

9

        JP #03CB

 

10

10

        LD HL,(#4016)

11

11

        LD (#4018),HL

12

12

        JR #0056 ; (70)

13

13

        AND A

14

14

        JP NZ,#07F1

604

604

        JR C,#0385 ; (40)

605

605

        DJNZ #0350 ; (-15)

606

606

        POP AF

607

607

        CP D

608

608

 

 

609

L0361: JP NC,#03E3

609

L0361: JP NC,#03E5

 

610

610

        LD H,D

611

611

        LD L,E

612

612

 

613

613

L0366: CALL #034C

614

614

        BIT 7,D

673

673

        RET M

674

674

        ADD HL,BC

675

675

        SET 7,(HL)

676

676

        RET

677

677

        CALL #02E7

 

678

        LD HL,(#4004)

678

        LD BC,(#4004)

 

 

 

679

        DEC BC

 

679

680

 

 

680

L03C9: DEC     HL

681

L03CB: LD      H,B

 

 

 

682

        LD L,C

 

681

683

        LD A,#3F

 

682

        LD B,H

 

 

683

        LD C,L

 

 

 

684

684

 

 

685

L03CE: LD (HL),#00

685

L03CF: LD (HL),#02

 

686

686

        DEC HL

687

687

        CP H

 

688

        JR NZ,#03CE                ; (-6)

688

        JR NZ,#03CF                ; (-6)

689

        LD H,B

689

 

690

        LD  L,C

690

L03D5: AND A

 

 

 

691

        SBC HL,BC

 

 

692

        ADD HL,BC

 

691

693

        INC HL

 

692

        LD      (#4004),HL

694

        JR NC,#03E2       ; (6)

 

693

        LD HL,#2000

 

 

 

694

695

        DEC (HL)

 

695

        JR NZ,#03E2 ; (2)

696

        JR Z,#03E2  ; (3)

696

        JP      (HL)

697

        DEC     (HL)

697

        NOP     

698

        JR Z,#03D5      ; (-13)

698

 

699

 

 

 

 

700

L03E2: LD (#4004),HL

 

 

701

 

 

699

L03E2: LD HL,(#4004)

702

L03E5: LD HL,(#4004)

 

700

703

        DEC HL

701

704

        LD (HL),#3E

702

705

        DEC HL

703

706

        LD SP,HL

704

707

        DEC HL

708

711

        LD I,A

709

712

        IM 1

710

713

        LD IY,#4000

711

714

        LD (IY+#3B),#40

712

715

        LD HL,#407D

 

713

        LD (#407B),HL

 

 

 

714

716

        LD (#400C),HL

715

717

        LD B,#19

716

718

 

717

719

L0408: LD (HL),#76

718

720

        INC HL

3829

3831

 

3830

3832

L16B2: NEG

3831

3833

        LD B,A

3832

3834

        LD A,#1B

3833

3835

        RST #10

 

 

 

3836

        LD A,#1C

 

3834

3837

 

 

3835

L16B8: LD      A,#1C

3838

L16BA: RST     #10

3836

        RST     #10

3839

        DJNZ    #16BA ; (-3)

 

3837

        DJNZ #16B8 ; (-5)

 

 

 

3838

3840

        JR #16C8 ; (9)

3839

3841

 

3840

3842

L16BF: LD A,#1C

3841

3843

        RST #10

3842

3844

 

4243

4245

        RL C

4244

4246

        EXX

4245

4247

        RL C

4246

4248

        RL B

4247

4249

        EXX

 

4248

 

 

 

 

4249

L18AB:  ADD HL,HL

4250

        ADD HL,HL

 

4250

4251

        EXX

4251

4252

        ADC HL,HL

4252

4253

        EXX

4253

4254

        JR C,#18C2 ; (16)

4254

4255

 

4273

4274

L18C9: SCF

4274

4275

 

4275

4276

L18CA: INC B

4276

4277

        JP M,#18A2

4277

4278

        PUSH AF

 

4278

        JR Z,#18AB                 ; (-38)

4279

        JR Z,#18B2                 ; (-31)

 

4279

4280

        LD E,A

4280

4281

        LD D,C

4281

4282

        EXX

4282

4283

        LD E,C

4283

4284

        LD D,B