I started running through some of the Fluke 0X files posted by John.  Anyone know what these are for?

 

File02 had some interesting stuff.  The first program in File 2 could be used to read roms from a board and send it to the AUX (serial port).

 

I jotted a few notes....

 

Comments?

 

Thanks,

Kev

 

 

 

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!

! Program 2 displays value of memory locations one at a

! time sequentially

!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROGRAM 2 161 BYTES

DPY-ENTER UUT MEM IN HEX /F

1: LABEL 1

READ @ REGF

IF REGE > F GOTO 2

DPY-UUT MEM.$F = 0$E

DPY-+ * HIT CONT *

GOTO 3

2: LABEL 2

DPY-UUT MEM. $F = $E

DPY-+ * HIT CONT *

3: LABEL 3

STOP

INC REGF

IF FFFF >= REGF GOTO 1

DPY-ENTER NEW VALUE /F

GOTO 1

PROGRAM 3 1821 BYTES

DPY-ENTER PROGRAM AREA? /8

DPY-ENTER TEST RAM START? /6

DPY-ENTER TEST RAM END? /5

REGA = REG8

REG9 = 06

EXECUTE PROGRAM 8

INC REG8

REG9 = 0C

EXECUTE PROGRAM 8

INC REG8

REG9 = 11

EXECUTE PROGRAM 8

INC REG8

REG9 = REG5 INC AND FF

EXECUTE PROGRAM 8

INC REG8

REG9 = REG5 INC SHR SHR SHR SHR

REG9 = REG9 SHR SHR SHR SHR

EXECUTE PROGRAM 8

INC REG8

REG9 = 31

EXECUTE PROGRAM 8

INC REG8

REGB = 74

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 21

EXECUTE PROGRAM 8

INC REG8

REG9 = REG6 AND FF

EXECUTE PROGRAM 8

REG9 = REG6 SHR SHR SHR SHR

REG9 = REG9 SHR SHR SHR SHR

INC REG8

EXECUTE PROGRAM 8

INC REG8

REG9 = AF

EXECUTE PROGRAM 8

INC REG8

REG9 = E5

EXECUTE PROGRAM 8

INC REG8

REG9 = 77

EXECUTE PROGRAM 8

INC REG8

REG9 = EE

EXECUTE PROGRAM 8

INC REG8

REG9 = FF

EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = 77

EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = 4F

EXECUTE PROGRAM 8

INC REG8

REG9 = 7D

EXECUTE PROGRAM 8

INC REG8

REG9 = BB

EXECUTE PROGRAM 8

INC REG8

REG9 = 79

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 11

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 7C

EXECUTE PROGRAM 8

INC REG8

REG9 = BA

EXECUTE PROGRAM 8

INC REG8

REG9 = 79

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 11

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = E1

EXECUTE PROGRAM 8

INC REG8

REG9 = E5

EXECUTE PROGRAM 8

INC REG8

REG9 = 7E

EXECUTE PROGRAM 8

INC REG8

REG9 = EE

EXECUTE PROGRAM 8

INC REG8

REG9 = FF

EXECUTE PROGRAM 8

INC REG8

REG9 = B9

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 53

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = 7E

EXECUTE PROGRAM 8

INC REG8

REG9 = B9

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 5B

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = 7D

EXECUTE PROGRAM 8

INC REG8

REG9 = BB

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 2A

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 7C

EXECUTE PROGRAM 8

INC REG8

REG9 = BA

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 2A

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = E1

EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = 1B

EXECUTE PROGRAM 8

INC REG8

REG9 = 7D

EXECUTE PROGRAM 8

INC REG8

REG9 = BB

EXECUTE PROGRAM 8

INC REG8

REG9 = 13

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 0B

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 1B

EXECUTE PROGRAM 8

INC REG8

REG9 = 7C

EXECUTE PROGRAM 8

INC REG8

REG9 = BA

EXECUTE PROGRAM 8

INC REG8

REG9 = 13

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 0B

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 05

EXECUTE PROGRAM 8

INC REG8

REG9 = 79

EXECUTE PROGRAM 8

INC REG8

REG9 = 21

EXECUTE PROGRAM 8

INC REG8

REG9 = REG6 AND FF

EXECUTE PROGRAM 8

INC REG8

REG9 = REG6 SHR SHR SHR SHR

REG9 = REG9 SHR SHR SHR SHR

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REGB = 0C

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 76

EXECUTE PROGRAM 8

INC REG8

REG9 = F5

EXECUTE PROGRAM 8

INC REG8

REG9 = 79

EXECUTE PROGRAM 8

INC REG8

REG9 = EE

EXECUTE PROGRAM 8

INC REG8

REG9 = FF

EXECUTE PROGRAM 8

INC REG8

REG9 = 4F

EXECUTE PROGRAM 8

INC REG8

REG9 = F1

EXECUTE PROGRAM 8

INC REG8

REG9 = EE

EXECUTE PROGRAM 8

INC REG8

REG9 = FF

EXECUTE PROGRAM 8

INC REG8

REG9 = 32

EXECUTE PROGRAM 8

INC REG8

REGB = 6B

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 79

EXECUTE PROGRAM 8

INC REG8

REG9 = 32

EXECUTE PROGRAM 8

INC REG8

REGB = 6C

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

REG9 = REGC

INC REG8

EXECUTE PROGRAM 8

INC REG8

REG9 = 7C

EXECUTE PROGRAM 8

INC REG8

REG9 = 32

EXECUTE PROGRAM 8

INC REG8

REGB = 6D

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 7D

EXECUTE PROGRAM 8

INC REG8

REG9 = 32

EXECUTE PROGRAM 8

INC REG8

REGB = 6E

EXECUTE PROGRAM 10

EXECUTE PROGRAM 8

INC REG8

REG9 = REGC

EXECUTE PROGRAM 8

INC REG8

REG9 = 76

EXECUTE PROGRAM 8

INC REG8

REG9 = AA

EXECUTE PROGRAM 8

INC REG8

REG9 = BB

EXECUTE PROGRAM 8

INC REG8

REG9 = CC

EXECUTE PROGRAM 8

INC REG8

REG9 = DD

EXECUTE PROGRAM 8

RUN UUT @ REGA

DPY-WAIT 30 SEC.

DPY-+ THEN HIT CONT

STOP

REGB = 6B

1: LABEL 1

INC REGA

DEC REGB

IF REGB > 0 GOTO 1

READ @ REGA

REGD = REGE

INC REGA

READ @ REGA

REGD = REGD SHL SHL SHL SHL

REGD = REGD SHL SHL SHL SHL

REGD = REGD OR REGE

INC REGA

READ @ REGA

REGD = REGD SHL SHL SHL SHL

REGD = REGD SHL SHL SHL SHL

REGD = REGD OR REGE

INC REGA

READ @ REGA

REGD = REGD SHL SHL SHL SHL

REGD = REGD SHL SHL SHL SHL

REGD = REGD OR REGE

IF REGD = AABBCCDD GOTO 2

DPY-** RAM FAILURE **

DPY-+ HIT CONT

STOP

REGE = REGD AND FFFF

DPY-LOC FAILURE= $E

DPY-+ HIT CONT

STOP

REGE = REGD AND FF0000

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

IF REGE > F GOTO 4

DPY-DATA WRITTEN=0$E

GOTO 5

4: LABEL 4

DPY-DATA WRITTEN=$E

5: LABEL 5

DPY-+ HIT CONT

STOP

REGE = REGD AND FF000000

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

REGE = REGE SHR SHR SHR SHR

IF REGE > F GOTO 6

DPY-DATA WRITTEN= 0$E

GOTO 7

6: LABEL 6

DPY-DATA READ= $E

7: LABEL 7

GOTO 3

2: LABEL 2

DPY-** RAM TESTED O.K. **

3: LABEL 3

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!

! Program 4 trys to determine which address line the probe

! is placed on. It doesn't work flawlessly.

!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROGRAM 4 173 BYTES

SYNC ADDRESS

1: LABEL 1

DPY-PLACE PROBE - HIT CONT

STOP

REG1 = 1

REG2 = 0

2: LABEL 2

READ PROBE

READ @ REG1

READ PROBE

IF REG0 AND 1000000 > 0 GOTO 3

IF REG2 = F GOTO 4

SHL REG1

INC REG2

GOTO 2

3: LABEL 3

DPY-PROBE ON ADDRESS BIT @2

GOTO 5

4: LABEL 4

DPY-NOT AN ADDRESS LINE

5: LABEL 5

DPY-+-NEW PT?3

IF REG3 = 1 GOTO 1

DPY-COMPLETE

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!

! Program 5 has you probe Data lines sequentially

!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROGRAM 5 322 BYTES

SYNC DATA

A: LABEL A

REG1 = 0

REG2 = 96EC

1: LABEL 1

DPY-PROBE ON DATA BIT $1

DPY-+-PRESS CONT

STOP

RAMP @ 1000

READ PROBE

REG0 = REG0 SHR SHR SHR SHR

REG0 = REG0 SHR SHR SHR SHR

REG0 = REG0 AND FFFF

IF REG0 = REG2 GOTO 2

DPY-SIG INCORRECT-

DPY-+WAS $0 NOT $2

GOTO 3

2: LABEL 2

DPY-SIG CORRECT-$0

DPY-+-HIT CONT

STOP

INC REG1

IF REG1 > 1 GOTO 4

REG2 = 725B

GOTO 1

4: LABEL 4

IF REG1 > 2 GOTO 5

REG2 = E5ED

GOTO 1

5: LABEL 5

IF REG1 > 3 GOTO 6

REG2 = 5BE0

GOTO 1

6: LABEL 6

IF REG1 > 4 GOTO 7

REG2 = 7E25

GOTO 1

7: LABEL 7

IF REG1 > 5 GOTO 8

REG2 = 85EA

GOTO 1

8: LABEL 8

IF REG1 > 6 GOTO 9

REG2 = 77C7

GOTO 1

9: LABEL 9

IF REG1 > 7 GOTO A

REG2 = 6EBE

GOTO 1

3: LABEL 3

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!

! Program 6 creates a Data signature

!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROGRAM 6 145 BYTES

REG1 = 0

REG2 = 1100

1: LABEL 1

WRITE @ REG2 = REG1

INC REG1

INC REG2

IF REG1 > FF GOTO 2

GOTO 1

2: LABEL 2

DPY-** PROBE 0 **

DPY-+-HIT CONT

STOP

SYNC DATA

REG2 = 1100

3: LABEL 3

READ @ REG2

INC REG2

IF 1200 > REG2 GOTO 3

READ PROBE

REG0 = REG0 SHR SHR SHR SHR

REG0 = REG0 SHR SHR SHR SHR

REG0 = REG0 AND FFFF

DPY-** SIG=$0 **

PROGRAM 7 779 BYTES

DPY-WHERE IN RAM ?/8

REG7 = REG8

REG7 = REG7 SHR SHR SHR SHR

REG7 = REG7 SHR SHR SHR SHR

DPY-PROM START ?/6

DPY-PROM END ?/5

REG9 = 21

EXECUTE PROGRAM 8

INC REG8

REG9 = REG6

REG9 = REG6 AND FF

EXECUTE PROGRAM 8

INC REG8

REG9 = REG6

REG9 = REG9 SHR SHR SHR SHR

REG9 = REG9 SHR SHR SHR SHR

EXECUTE PROGRAM 8

INC REG8

REG9 = AF

EXECUTE PROGRAM 8

INC REG8

REG9 = 01

EXECUTE PROGRAM 8

INC REG8

REG9 = REG5

REG9 = REG9 AND FF

EXECUTE PROGRAM 8

INC REG8

REG9 = REG5

REG9 = REG9 SHR SHR SHR SHR

REG9 = REG9 SHR SHR SHR SHR

EXECUTE PROGRAM 8

INC REG8

REG9 = 11

EXECUTE PROGRAM 8

INC REG8

REG9 = 0

EXECUTE PROGRAM 8

INC REG8

EXECUTE PROGRAM 8

INC REG8

REG9 = 86

EXECUTE PROGRAM 8

INC REG8

REG9 = D2

EXECUTE PROGRAM 8

INC REG8

REG9 = 0F

EXECUTE PROGRAM 8

INC REG8

REG9 = REG7

EXECUTE PROGRAM 8

INC REG8

REG9 = 1C

EXECUTE PROGRAM 8

INC REG8

REG9 = 57

0. EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = 7D

EXECUTE PROGRAM 8

INC REG8

REG9 = A9

EXECUTE PROGRAM 8

INC REG8

REG9 = 7A

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REG9 = A

EXECUTE PROGRAM 8

INC REG8

REG9 = REG7

EXECUTE PROGRAM 8

INC REG8

REG9 = 57

EXECUTE PROGRAM 8

INC REG8

REG9 = 7C

EXECUTE PROGRAM 8

INC REG8

REG9 = A8

EXECUTE PROGRAM 8

INC REG8

REG9 = 7A

EXECUTE PROGRAM 8

INC REG8

REG9 = C2

EXECUTE PROGRAM 8

INC REG8

REG9 = A

EXECUTE PROGRAM 8

INC REG8

REG9 = REG7

EXECUTE PROGRAM 8

INC REG8

REG9 = 86

EXECUTE PROGRAM 8

INC REG8

REG9 = D2

EXECUTE PROGRAM 8

INC REG8

REG9 = 23

EXECUTE PROGRAM 8

INC REG8

REG9 = REG7

EXECUTE PROGRAM 8

INC REG8

REG9 = 1C

EXECUTE PROGRAM 8

INC REG8

REG9 = 32

EXECUTE PROGRAM 8

INC REG8

REG9 = 01

EXECUTE PROGRAM 8

INC REG8

INC REG7

REG9 = REG7

EXECUTE PROGRAM 8

INC REG8

REG9 = 7B

EXECUTE PROGRAM 8

INC REG8

REG9 = 32

EXECUTE PROGRAM 8

INC REG8

REG9 = 0

EXECUTE PROGRAM 8

INC REG8

REG9 = REG7

EXECUTE PROGRAM 8

INC REG8

REG9 = 76

EXECUTE PROGRAM 8

DEC REG7

REG7 = REG7 SHL SHL SHL SHL

REG7 = REG7 SHL SHL SHL SHL

RUN UUT @ REG7

DPY-HIT CONT

STOP

REG7 = REG7 SHR SHR SHR SHR

REG7 = REG7 SHR SHR SHR SHR

INC REG7

REG7 = REG7 SHL SHL SHL SHL

REG7 = REG7 SHL SHL SHL SHL

INC REG7

READ @ REG7

REGD = REGE

DEC REG7

READ @ REG7

REGE = REGE SHL SHL SHL SHL

REGE = REGE SHL SHL SHL SHL

REGE = REGE OR REGD

IF REGE > FFF GOTO 4

IF REGE > FF GOTO 3

IF REGE > F GOTO 2

DPY-CHECKSUM = 000$E

GOTO 5

2: LABEL 2

DPY-CHECKSUM = 00$E

GOTO 5

3: LABEL 3

DPY-CHECKSUM = 0$E

GOTO 5

4: LABEL 4

DPY-CHECKSUM = $E

5: LABEL 5

PROGRAM 8 9 BYTES

WRITE @ REG8 = REG9

PROGRAM 10 54 BYTES

REG9 = REGA

1: LABEL 1

INC REG9

DEC REGB

IF REGB > 0 GOTO 1

REGC = REG9 SHR SHR SHR SHR

REGC = REGC SHR SHR SHR SHR

REG9 = REG9 AND FF

2: LABEL 2

PROGRAM 12 179 BYTES

DPY-ENTER UUT MEM IN HEX /F

1: LABEL 1

REGF = REGF OR 800000

READ @ REGF

REG3 = REGF AND FFFFF

IF REGE > F GOTO 2

DPY-UUT MEM.$3=0$E

DPY-+ * HIT CONT *

GOTO 3

2: LABEL 2

DPY-UUT MEM.$3=$E

DPY-+ * HIT CONT *

3: LABEL 3

STOP

INC REGF

IF 8FFFFF >= REGF GOTO 1

DPY-ENTER NEW VALUE /F

GOTO 1

PROGRAM 14 197 BYTES

SYNC ADDRESS

1: LABEL 1

DPY-PLACE PROBE - HIT CONT

STOP

REG2 = 0

REG3 = 800000

REG4 = 1

2: LABEL 2

REG1 = REG3 OR REG4

READ PROBE

READ @ REG1

READ PROBE

IF REG0 AND 1000000 > 0 GOTO 3

IF REG2 = 13 GOTO 4

SHL REG4

INC REG2

GOTO 2

3: LABEL 3

DPY-PROBE ON ADDRESS BIT @2

GOTO 5

4: LABEL 4

DPY-** NOT ADDRESS LINE **

5: LABEL 5

DPY-+-NEW PT?3

IF REG3 = 1 GOTO 1

DPY- COMPLETE

PROGRAM 15 579 BYTES

REG8 = 100

REG9 = B8

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 8EFC

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = BED8

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 0

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = BB

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = B400

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 8A00

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 0304

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 46D8

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 8146

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = FE

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 7520

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = B8F4

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 0

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = D88E

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 1E89

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = 200

WRITE @ REG8 = REG9

INC REG8

INC REG8

REG9 = F4

WRITE @ REG8 = REG9

RUN UUT @ 00100

DPY-FOR DCO CHECKSUMS

DPY-+- HIT CONT

STOP

READ @ 00200

DPY-DCO ROM-A28 = $E

WRITE @ 00102 = 8EFE

RUN UUT @ 100

DPY-+ HIT CONT

STOP

READ @ 00200

DPY-DCO ROM-A29 = $E

WRITE @ 102 = 8EFC

WRITE @ 106 = 1

WRITE @ 114 = 1FE

RUN UUT @ 100

DPY-+ HIT CONT

STOP

READ @ 200

DPY-DCO ROM-A46 = $E

WRITE @ 102 = 8EFE

RUN UUT @ 100

DPY-+ HIT CONT

STOP

READ @ 200

DPY-DCO ROM-A47 = $E

STOP

DPY-CHECKSUM C0MPLETE.

STOP

STOP

STOP