Category : Assembly Language Source Code
Archive   : ZAD.ZIP
Filename : TRAFFIC.LST

 
Output of file : TRAFFIC.LST contained in archive : ZAD.ZIP

Page - 1 Page - 1
Assembly of TRAFFIC.SRC Created 12-10-1993 at 23:58:05

0708= 0001 ORG 1800
0708 00 0002 INIT: NOP
0003
0FEB= 0004 SCAN EQU 0FEBH
0005
1F1C= 0006 LED1 EQU 1F1CH
1F1D= 0007 LED2 EQU 1F1DH
1F1E= 0008 LED3 EQU 1F1EH
1F1F= 0009 LED4 EQU 1F1FH
0010
0011
1E00= 0012 STATE0 EQU 1E00H
0013 ;STATE1 EQU 1E02H BIT ASSIGN
MENTS
0014 ;STATE2 EQU 1E04H AT THESE A
DDRESSES
0015 ;STATE3 EQU 1E06H (SEVEN-SEG
MENT)
0016 ;STATE4 EQU 1E08H
0017 ;STATE5 EQU 1E0AH
0018
1E0C= 0019 NEXTSTATE0 EQU 1E0CH ; CAR/NO CAR TR. TABLE
0020
0021
0709 21001E 0022 LD HL, STATE0
070C 36FE 0023 LD (HL), 254 ; G FOR GREEN
070E 23 0024 INC HL
070F 3603 0025 LD (HL), 3 ; R FOR RED
0026
0711 23 0027 INC HL
0712 36F6 0028 LD (HL), 246 ; Y FOR YELLOW
0714 23 0029 INC HL
0715 3603 0030 LD (HL), 3 ; R FOR RED
0031
0717 23 0032 INC HL
0718 3685 0033 LD (HL), 133 ; L FOR LEFT
071A 23 0034 INC HL
071B 3603 0035 LD (HL), 3 ; R FOR RED
0036
071D 23 0037 INC HL
071E 36F6 0038 LD (HL), 246 ; Y FOR YELLOW
0720 23 0039 INC HL
0721 3603 0040 LD (HL), 3 ; R FOR RED
0041
0723 23 0042 INC HL
0724 3603 0043 LD (HL), 3 ; R FOR RED
0726 23 0044 INC HL
0727 36FE 0045 LD (HL), 254 ; G FOR GREEN
0046
0729 23 0047 INC HL
072A 3603 0048 LD (HL), 3 ; R FOR RED
072C 23 0049 INC HL
072D 36F6 0050 LD (HL), 246 ; Y FOR YELLOW
0051
0052
072F 210C1E 0053 LD HL, NEXTSTATE0 ; STATE 0 W/O CAR
0732 3602 0054 LD (HL), 02H
0734 23 0055 INC HL
0735 361E 0056 LD (HL), 1EH

Page - 2 Page - 2
Assembly of TRAFFIC.SRC Created 12-10-1993 at 23:58:05

0737 23 0057 INC HL ; STATE 0 WITH CAR
0738 3602 0058 LD (HL), 02H
073A 23 0059 INC HL
073B 361E 0060 LD (HL), 1EH
0061
073D 23 0062 INC HL ; STATE 1 W/O CAR
073E 3604 0063 LD (HL), 04H
0740 23 0064 INC HL
0741 361E 0065 LD (HL), 1EH
0743 23 0066 INC HL ; STATE 1 WITH CAR
0744 3604 0067 LD (HL), 04H
0746 23 0068 INC HL
0747 361E 0069 LD (HL), 1EH
0070
0749 23 0071 INC HL ; STATE 2 W/O CAR
074A 3606 0072 LD (HL), 06H
074C 23 0073 INC HL
074D 361E 0074 LD (HL), 1EH
074F 23 0075 INC HL ; STATE 2 WITH CAR
0750 3606 0076 LD (HL), 06H
0752 23 0077 INC HL
0753 361E 0078 LD (HL), 1EH
0079
0755 23 0080 INC HL ; STATE 3 W/O CAR
0756 3600 0081 LD (HL), 00H
0758 23 0082 INC HL
0759 361E 0083 LD (HL), 1EH
075B 23 0084 INC HL ; STATE 3 WITH CAR
075C 3608 0085 LD (HL), 08H
075E 23 0086 INC HL
075F 361E 0087 LD (HL), 1EH
0088
0761 23 0089 INC HL ; STATE 4 W/O CAR
0762 360A 0090 LD (HL), 0AH
0764 23 0091 INC HL
0765 361E 0092 LD (HL), 1EH
0767 23 0093 INC HL ; STATE 4 WITH CAR
0768 360A 0094 LD (HL), 0AH
076A 23 0095 INC HL
076B 361E 0096 LD (HL), 1EH
0097
076D 23 0098 INC HL ; STATE 5 W/O CAR
076E 3600 0099 LD (HL), 00H
0770 23 0100 INC HL
0771 361E 0101 LD (HL), 1EH
0773 23 0102 INC HL ; STATE 5 WITH CAR
0774 3600 0103 LD (HL), 00H
0776 23 0104 INC HL
0777 361E 0105 LD (HL), 1EH
0106
0779 211C1F 0107 LD HL, LED1 ;STATE0 LOADED
077C 36FE 0108 LD (HL), 254
077E 211E1F 0109 LD HL, LED3
0781 36FE 0110 LD (HL), 254 ;MANUALLY INTO SEGMENT
0783 211D1F 0111 LD HL, LED2
0786 3603 0112 LD (HL), 3 ;VECTORS PRIOR TO LOOP
0788 211F1F 0113 LD HL, LED4
078B 3603 0114 LD (HL), 3
0115

Page - 3 Page - 3
Assembly of TRAFFIC.SRC Created 12-10-1993 at 23:58:05

078D 21001E 0116 LD HL, STATE0 ; INITIAL CONDIONS
0790 3E00 0117 LD A, 0H ; FOR PROGRAM LOOP
0118
0119
0120
0121
0792 CDEB0F 0122 LOOP1: CALL SCAN
0795 FE06 0123 CP 06H ; ZERO?
0797 CACE07 0124 JP Z, ZERO
079A FE05 0125 CP 05H ; ONE?
079C CAD307 0126 JP Z, ONE
079F FE22 0127 CP 22H ; CHANGE,ACTUALLY "NEXT"
07A1 CAA707 0128 JP Z, CH_LITE
07A4 C39207 0129 BRK0: JP LOOP1
0130
07A7 C3DD07 0131 CH_LITE: JP MOVEPTR ; INCREMENTS HL TO TR. TABL
E
07AA FE01 0132 BRK1: CP 1
07AC CAD807 0133 JP Z,CAR
07AF 5E 0134 BRK2: LD E, (HL) ;LOADS ADDRESS OF NEXT
07B0 23 0135 INC HL ; STATE INTO DE
07B1 56 0136 LD D, (HL)
07B2 62 0137 LD H, D ;COPIES DE INTO HL
07B3 6B 0138 LD L, E
07B4 7E 0139 LD A, (HL) ;LOADS LED CODE INTO A
07B5 211C1F 0140 LD HL, LED1
07B8 77 0141 LD (HL), A ; AND INTO LEDS 1 & 3
07B9 211E1F 0142 LD HL, LED3
07BC 77 0143 LD (HL), A
07BD 62 0144 LD H, D
07BE 6B 0145 LD L, E
07BF 23 0146 INC HL
07C0 7E 0147 LD A, (HL) ; LOADS SECOND LED CODE
07C1 211D1F 0148 LD HL, LED2
07C4 77 0149 LD (HL), A ; INTO LEDS 2 & 4
07C5 211F1F 0150 LD HL, LED4
07C8 77 0151 LD (HL), A
07C9 3E00 0152 LD A, 0 ;RESETS A FOR CAR VARIABLE
07CB C39207 0153 JP LOOP1
0154
0155
07CE 3E00 0156 ZERO: LD A, 0 ; STORE INPUT
07D0 C39207 0157 JP LOOP1
07D3 3E01 0158 ONE: LD A, 1 ; STORE INPUT
07D5 C39207 0159 JP LOOP1
07D8 23 0160 CAR: INC HL
07D9 23 0161 INC HL
07DA C3AF07 0162 JP BRK2
07DD 060C 0163 MOVEPTR: LD B, 12
07DF 23 0164 INC HL
07E0 05 0165 DEC B
07E1 C2DD07 0166 JP NZ, MOVEPTR
07E4 C3AA07 0167 JP BRK1

Page - 4 Page - 4
Assembly of TRAFFIC.SRC Created 12-10-1993 at 23:58:05

------- SYMBOL TABLE -------

BRK0 07A4 BRK1 07AA BRK2 07AF CAR 07D8
CH_LIT 07A7 INIT 0708 LED1 1F1C LED2 1F1D
LED3 1F1E LED4 1F1F LOOP1 0792 MOVEPT 07DD
NEXTST 1E0C ONE 07D3 SCAN 0FEB STATE0 1E00
ZERO 07CE

There were 0 assembly errors.
N

  3 Responses to “Category : Assembly Language Source Code
Archive   : ZAD.ZIP
Filename : TRAFFIC.LST

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/