Difference: ChaseLighting (7 vs. 8)

Revision 82018-12-07 - PeterSchmid

Line: 1 to 1
 
META TOPICPARENT name="WebHome"
%DASHBOARD{ section="banner"
Line: 59 to 59
  Install the cross assmbler into /usr/local/bin

Added:
>
>
pi@cosmac:~/elf/A18 $ make
 pi@cosmac:~/elf/A18 $ sudo install -m 557 a18 /usr/local/bin pi@cosmac:~/elf/A18 $
Line: 169 to 170
 

Added:
>
>

1802 Assembler Listing (knightrider.lst)

                        ;   TITL   "Chase Lighting (Knight Rider) for Elf Memebership Card"
                        ;      EJCT   60
                        
                              CPU   1802
                        
      NUMBER      EQU   0
                        
                        ;
                        ; Register Definitions:
                        ;
      R0      EQU   0
      R1      EQU   1
      R2      EQU   2
      R3      EQU   3
      R4      EQU   4
      R5      EQU   5
      R6      EQU   6
      R7      EQU   7
      R8      EQU   8
      R9      EQU   9
      R10      EQU   10
      R11      EQU   11
      R12      EQU   12
      R13      EQU   13
      R14      EQU   14
      R15      EQU   15
                        
                        ;
                        ; I/O Port Definitions:
                        ;
      P1      EQU   1
      P2      EQU   2
      P3      EQU   3
      P4      EQU   4
      P5      EQU   5
      P6      EQU   6
      P7      EQU   7   
                        
            ORG   0H
                              
   0000   c0:11000000       LBR    MOVE      ; the branch can be overwritten
   0001   00:00000000
   0002   03:00000011
                           
      MOVE
   0003   e3:11100011       SEX    R3      ; index register R3 for bit pattern point to 30H
   0004   90:10010000       GHI    R0      ; PC high byte is 0
   0005   b3:10110011       PHI    R3
   0006   f8:11111000       LDI    30H
   0007   30:00110000
   0008   a3:10100011       PLO    R3
                        
   0009   f8:11111000       LDI   00000001B   ; bit pattern to move in (0030H)
   000a   01:00000001
   000b   7b:01111011       SEQ         ; shift left
      LOOP
   000c   53:01010011       STR    R3      ; store pattern
   000d   64:01100100       OUT   P4      ; Rx = 0030H, INC Rx
   000e   f8:11111000       LDI    0FFH
   000f   ff:11111111
   0010   a2:10100010       PLO   R2
   0011   6c:01101100       INP   P4
   0012   b2:10110010       PHI    R2      ; R2 wait counter
   0013   23:00100011       DEC   R3
      WAIT
   0014   22:00100010       DEC    R2      ; wait loop about 0.5 s @ 20
   0015   92:10010010       GHI    R2
   0016   3a:00111010       BNZ    WAIT
   0017   14:00010100
                        
   0018   f0:11110000       LDX         ; get pattern
   0019   31:00110001       BQ    LEFT
   001a   23:00100011
      RIGHT
   001b   f6:11110110       SHR
   001c   3a:00111010       BNZ   LOOP
   001d   0c:00001100
   001e   f8:11111000       LDI    00000010B
   001f   02:00000010
   0020   7b:01111011       SEQ   
   0021   30:00110000       BR     LOOP
   0022   0c:00001100
      LEFT
   0023   fe:11111110       SHL
   0024   3a:00111010       BNZ   LOOP
   0025   0c:00001100
   0026   f8:11111000       LDI    01000000B
   0027   40:01000000
   0028   7a:01111010       REQ
   0029   30:00110000       BR   LOOP
   002a   0c:00001100
                        
            END
0023  LEFT          000c  LOOP          0003  MOVE          0000  NUMBER    
0001  P1            0002  P2            0003  P3            0004  P4        
0005  P5            0006  P6            0007  P7            0000  R0        
0001  R1            000a  R10           000b  R11           000c  R12       
000d  R13           000e  R14           000f  R15           0002  R2        
0003  R3            0004  R4            0005  R5            0006  R6        
0007  R7            0008  R8            0009  R9            001b  RIGHT     
0014  WAIT          

 

-- Peter Schmid - 2017-11-18

Line: 180 to 290
 
META FILEATTACHMENT attachment="chase.bin" attr="" comment="" date="1513525694" name="chase.bin" path="chase.bin" size="45" user="PeterSchmid" version="1"
META FILEATTACHMENT attachment="chase.hex" attr="" comment="" date="1513525694" name="chase.hex" path="chase.hex" size="126" user="PeterSchmid" version="1"
META FILEATTACHMENT attachment="chase.lst" attr="" comment="" date="1513525694" name="chase.lst" path="chase.lst" size="3318" user="PeterSchmid" version="1"
Added:
>
>
META FILEATTACHMENT attachment="knightrider.bin" attr="" comment="" date="1544196501" name="knightrider.bin" path="knightrider.bin" size="43" user="PeterSchmid" version="1"
META FILEATTACHMENT attachment="knightrider.hex" attr="" comment="" date="1544196501" name="knightrider.hex" path="knightrider.hex" size="122" user="PeterSchmid" version="1"
META FILEATTACHMENT attachment="knightrider.lst" attr="" comment="" date="1544196501" name="knightrider.lst" path="knightrider.lst" size="3166" user="PeterSchmid" version="1"
META FILEATTACHMENT attachment="knightrider.asm" attr="" comment="" date="1544196578" name="knightrider.asm" path="knightrider.asm" size="1016" user="PeterSchmid" version="1"
 
META TOPICMOVED by="PeterSchmid" date="1513445593" from="Cosmac.MemebershipCard" to="Cosmac.ChaseLighting"
 
This site is powered by the TWiki collaboration platform Powered by PerlCopyright © 2008-2024 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback