home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / PROG950307.ARC / A / RANDOM.MOD < prev    next >
Encoding:
Text File  |  2019-04-13  |  1.6 KB  |  76 lines
  1.            '─╘╩ ╥ANDOM ╘EXT ═ODULE
  2.            'BY ┴NDREW ┬ERNHARDT
  3.            'AS OF 910605
  4.  
  5.            ORG 40961
  6.  
  7.            HDR "A/DICT"
  8.            NAM "RANDOM.MOD"
  9.  
  10.            JSR "CLRCHN"
  11.            LDX 2
  12.            JSR "CHKIN"
  13.            LDX 2
  14.            JSR "CHKOUT"
  15.            LDA ("TODTEN")
  16.            EOR ("TODSEC")
  17.            EOR ("TODMIN")
  18.            EOR (53266)
  19.            STA ("ZTMP2H")
  20.            LDA L"TEXT"
  21.            STA ("ZTMP3L")
  22.            LDA H"TEXT"
  23.            STA ("ZTMP3H")
  24.            LDY 0
  25.            STY ("ZTMP2L")
  26.            INY
  27. "RAN1"     LDA ["ZTMP3L"],Y
  28.            BEQ "RAN3"
  29.            INC ("ZTMP3L")
  30.            BNE "RAN2"
  31.            INC ("ZTMP3H")
  32. "RAN2"     CMP $^
  33.            BNE "RAN1"
  34.            DEY
  35.            LDA 0
  36.            STA ["ZTMP3L"],Y
  37.            INY
  38.            INC ("ZTMP2L")
  39.            BNE "RAN1"
  40. "RAN3"     JSR "RANDOM"
  41.            BMI "RAN3"
  42.            CMP ("ZTMP2L")
  43.            BCS "RAN3"
  44.            INC ("ZTMP2H")  ' +++++
  45.            LDA L"TEXT"
  46.            STA ("ZTMP3L")
  47.            LDA H"TEXT"
  48.            STA ("ZTMP3H")
  49.            LDY 1
  50. "RAN4"     LDA ["ZTMP3L"],Y
  51.            INC ("ZTMP3L")
  52.            BNE "RAN5"
  53.            INC ("ZTMP3H")
  54. "RAN5"     CMP 0
  55.            BNE "RAN4"
  56.            DEC ("ZTMP2H")
  57.            BNE "RAN4"
  58.            INC ("ZTMP3L")
  59.            BNE "RAN6"
  60.            INC ("ZTMP3H")
  61. "RAN6"     LDX 12
  62.            JMP 47950
  63.  
  64. "RANDOM"   LDA 0
  65.            LDX 77
  66. "RANDOM1"  CLC
  67.            ADC ("ZTMP2H")
  68.            DEX
  69.            BNE "RANDOM1"
  70.            CLC
  71.            ADC 55
  72.            STA ("ZTMP2H")
  73.            RTS
  74.  
  75. "TEXT"     DF &0D
  76.