home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / tesseract / !Tesseract / source / a / plotdata < prev    next >
Encoding:
Text File  |  1991-12-12  |  4.4 KB  |  106 lines
  1. ; > plotdata
  2.  
  3. a1  =   0
  4. a2  =   1
  5. a3  =   2
  6. a4  =   3
  7.  
  8. v1  =   4
  9. v2  =   5
  10. v3  =   6
  11. v4  =   7
  12. v5  =   8
  13. v6  =   9
  14.  
  15. sl  =   10
  16. fp  =   11
  17. ip  =   12
  18. sp  =   13
  19.  
  20. lr  =   14
  21. pc  =   15
  22.  
  23. .AREA   WA$$code,.CODE,.READONLY
  24.  
  25. plotdata::
  26.         ADD     a2, pc, #circdata-$-8
  27.         ADD     a1, a1, #239
  28.         ADD     a1, a1, #4096
  29.         MOV     ip, #0xFF
  30.         B       plotd_test
  31. plotd_loop:
  32.         AND     a3, ip, a4
  33.         MOV     a4, a4, ASR #8
  34.         STRB    a4, [a1, a3]!
  35.         AND     a3, ip, a4, ASR #8
  36.         MOV     a4, a4, ASR #16
  37.         STRB    a4, [a1, a3]!
  38. plotd_test:
  39.         LDR     a4, [a2], #4
  40.         CMPS    a4, #0
  41.         BNE     plotd_loop
  42.         MOVS    pc, lr
  43.  
  44. circdata:
  45.         .LONG   0x1101113c, 0x11011101, 0x11011101, 0x11011101
  46.         .LONG   0x11011101, 0x1C92C101, 0x11011101, 0x1C0b1101
  47.         .LONG   0x11011101, 0x118d1101, 0xC1011101, 0x11011112
  48.         .LONG   0x1188C101, 0x1C171101, 0xC1011101, 0x11011C84
  49.         .LONG   0x11011C1b, 0xC1011182, 0xC101111e, 0x11011C7e
  50.         .LONG   0x11011C21, 0xC101117c, 0xC1011124, 0x1C271179
  51.         .LONG   0x1177C101, 0xC1011C29, 0x1C2b1175, 0x1173C101
  52.         .LONG   0xC1011C2d, 0x1C2f1171, 0x116fC101, 0xC1011C31
  53.         .LONG   0x1C33116d, 0x1C6bC101, 0x1C6a1C35, 0x1136C101
  54.         .LONG   0xC138C169, 0x1C391167, 0x1C65C101, 0xC1651C3b
  55.         .LONG   0x1163C13c, 0xC1011C3d, 0x1C3f1C61, 0xC140C161
  56.         .LONG   0x1C411C5f, 0xC142C15f, 0x1C43115d, 0x1C5bC101
  57.         .LONG   0xC15b1C45, 0x1C59C146, 0xC1591C47, 0x1C57C148
  58.         .LONG   0xC1571C49, 0xC156C14a, 0x1C55C14a, 0xC1551C4b
  59.         .LONG   0x1C53C14c, 0xC1531C4d, 0x1C51C14e, 0x1C511C4f
  60.         .LONG   0xC1511C4f, 0x1C4fC150, 0xC14f1C51, 0xC14eC152
  61.         .LONG   0x1C4dC152, 0xC14d1C53, 0xC14cC154, 0x1C4bC154
  62.         .LONG   0xC14b1C55, 0xC14aC156, 0x1C49C156, 0x1C491C57
  63.         .LONG   0xC1491C57, 0xC148C158, 0x1C47C158, 0x1C471C59
  64.         .LONG   0xC1471C59, 0xC146C15a, 0x1C45C15a, 0x1C451C5b
  65.         .LONG   0xC1451C5b, 0xC144C15c, 0x1C43C15c, 0x1C431C5d
  66.         .LONG   0x1C431C5d, 0xC1431C5d, 0xC142C15e, 0xC142C15e
  67.         .LONG   0x1C41C15e, 0x1C411C5f, 0x1C411C5f, 0xC1411C5f
  68.         .LONG   0xC140C160, 0xC140C160, 0x1C3fC160, 0x1C3f1C61
  69.         .LONG   0x1C3f1C61, 0x1C3f1C61, 0xC13f1C61, 0xC13eC162
  70.         .LONG   0xC13eC162, 0xC13eC162, 0xC13eC162, 0x1C3dC162
  71.         .LONG   0x1C3d1C63, 0x1C3d1C63, 0x1C3d1C63, 0x1C3d1C63
  72.         .LONG   0x1C3d1C63, 0x1C3d1C63, 0xC13d1C63, 0xC13cC164
  73.         .LONG   0xC13cC164, 0xC13cC164, 0xC13cC164, 0xC13cC164
  74.         .LONG   0xC13cC164, 0xC13cC164, 0xC13cC164, 0xC13cC164
  75.         .LONG   0xC13cC164, 0xC13cC164, 0xC13cC164, 0xC13cC164
  76.         .LONG   0xC13cC164, 0xC13cC164, 0xC13cC164, 0xC13cC164
  77.         .LONG   0xC13cC164, 0xC13cC164, 0xC13cC164, 0x1C3cC164
  78.         .LONG   0x1C3d1C63, 0x1C3d1C63, 0x1C3d1C63, 0x1C3d1C63
  79.         .LONG   0x1C3d1C63, 0x1C3d1C63, 0xC13e1C63, 0xC13eC162
  80.         .LONG   0xC13eC162, 0xC13eC162, 0xC13eC162, 0x1C3eC162
  81.         .LONG   0x1C3f1C61, 0x1C3f1C61, 0x1C3f1C61, 0xC1401C61
  82.         .LONG   0xC140C160, 0xC140C160, 0x1C40C160, 0x1C411C5f
  83.         .LONG   0x1C411C5f, 0xC1421C5f, 0xC142C15e, 0xC142C15e
  84.         .LONG   0x1C42C15e, 0x1C431C5d, 0x1C431C5d, 0xC1441C5d
  85.         .LONG   0xC144C15c, 0x1C44C15c, 0x1C451C5b, 0xC1461C5b
  86.         .LONG   0xC146C15a, 0x1C46C15a, 0x1C471C59, 0xC1481C59
  87.         .LONG   0xC148C158, 0x1C48C158, 0x1C491C57, 0xC14a1C57
  88.         .LONG   0xC14aC156, 0x1C4aC156, 0xC14c1C55, 0xC14cC154
  89.         .LONG   0x1C4cC154, 0xC14e1C53, 0xC14eC152, 0x1C4eC152
  90.         .LONG   0xC1501C51, 0x1C50C150, 0x1C511C4f, 0xC1521C4f
  91.         .LONG   0x1C52C14e, 0xC1541C4d, 0x1C54C14c, 0xC1561C4b
  92.         .LONG   0xC156C14a, 0x1C56C14a, 0xC1581C49, 0x1C58C148
  93.         .LONG   0xC15a1C47, 0x1C5aC146, 0x115c1C45, 0xC1011C43
  94.         .LONG   0xC142C15d, 0x1C411C5e, 0xC140C160, 0x1C3f1C60
  95.         .LONG   0x1C3d1162, 0xC163C101, 0x1C64C13c, 0x11661C3b
  96.         .LONG   0xC1011C39, 0xC138C167, 0xC1011C68, 0x1C6a1136
  97.         .LONG   0x116c1C35, 0xC1011C33, 0x1C31116d, 0x116fC101
  98.         .LONG   0xC1011C2f, 0x1C2d1171, 0x1173C101, 0xC1011C2b
  99.         .LONG   0x1C291175, 0x1177C101, 0xC1011C27, 0xC1011179
  100.         .LONG   0xC1011124, 0x11011C7b, 0x11011C21, 0xC101117f
  101.         .LONG   0xC101111e, 0x11011C81, 0x11011C1b, 0x11011185
  102.         .LONG   0x11011C17, 0x1188C101, 0xC1011101, 0x11011112
  103.         .LONG   0x1C8cC101, 0x11011101, 0x1C0b1101, 0x11011101
  104.         .LONG   0x11931101, 0x11011101, 0x11011101, 0x11011101
  105.         .LONG   0x11011101, 0xC1011101, 0x00000000
  106.