Source code for TITLEM.100

F100          00100         ORG     0F100H
4231          00110 CLS     EQU     4231H
F100 C5       00120 PLOT    PUSH    BC
F101 D5       00130         PUSH    DE
F102 CD4C74   00140         CALL    744CH
F105 D1       00150         POP     DE
F106 C1       00160         POP     BC
F107 C9       00170         RET
F108 2139F6   00180 SETCUR  LD      HL,0F639H
F10B 73       00190         LD      (HL),E
F10C 213AF6   00200         LD      HL,0F63AH
F10F 72       00210         LD      (HL),D
F110 C9       00220         RET
F111 C5       00230 PRINT   PUSH    BC
F112 D5       00240         PUSH    DE
F113 CD444B   00250         CALL    4B44H
F116 D1       00260         POP     DE
F117 C1       00270         POP     BC
F118 C9       00280         RET
F119 CD3142   00290 ENTRY   CALL    CLS
F11C 06F0     00300         LD      B,240
F11E 1600     00310         LD      D,0
F120 15       00320         DEC     D
F121 14       00330 LOOP1   INC     D
F122 1E00     00340         LD      E,0
F124 CD00F1   00350         CALL    PLOT
F127 1E3F     00360         LD      E,63
F129 CD00F1   00370         CALL    PLOT
F12C 05       00380         DEC     B
F12D C221F1   00390         JP      NZ,LOOP1
F130 06DC     00400         LD      B,220
F132 160A     00410         LD      D,10
F134 15       00420         DEC     D
F135 14       00430 LOOP2   INC     D
F136 1E0A     00440         LD      E,10
F138 0E0A     00450         LD      C,10
F13A CD00F1   00460 LOOP3   CALL    PLOT
F13D 1C       00470         INC     E
F13E 0D       00480         DEC     C
F13F C23AF1   00490         JP      NZ,LOOP3
F142 0E0A     00500         LD      C,10
F144 1E2B     00510         LD      E,43
F146 CD00F1   00520 LOOP4   CALL    PLOT
F149 1C       00530         INC     E
F14A 0D       00540         DEC     C
F14B C246F1   00550         JP      NZ,LOOP4
F14E 05       00560         DEC     B
F14F C235F1   00570         JP      NZ,LOOP2
F152 063E     00580         LD      B,62
F154 1E01     00590         LD      E,1
F156 1D       00600         DEC     E
F157 1C       00610 LOOP5   INC     E
F158 1600     00620         LD      D,0
F15A CD00F1   00630         CALL    PLOT
F15D 16EF     00640         LD      D,239
F15F CD00F1   00650         CALL    PLOT
F162 05       00660         DEC     B
F163 C257F1   00670         JP      NZ,LOOP5
F166 0617     00680         LD      B,23
F168 1E14     00690         LD      E,20
F16A 1D       00700         DEC     E
F16B 1C       00710 LOOP6   INC     E
F16C 160A     00720         LD      D,10
F16E 0E0A     00730         LD      C,10
F170 CD00F1   00740 LOOP7   CALL    PLOT
F173 14       00750         INC     D
F174 0D       00760         DEC     C
F175 C270F1   00770         JP      NZ,LOOP7
F178 0E0A     00780         LD      C,10
F17A 16DC     00790         LD      D,220
F17C CD00F1   00800 LOOP8   CALL    PLOT
F17F 14       00810         INC     D
F180 0D       00820         DEC     C
F181 C27CF1   00830         JP      NZ,LOOP8
F184 05       00840         DEC     B
F185 C26BF1   00850         JP      NZ,LOOP6
F188 0657     00860         LD      B,87
F18A 1E24     00870         LD      E,36
F18C 164E     00880         LD      D,78
F18E 15       00890         DEC     D
F18F 14       00900 LOOP9   INC     D
F190 CD00F1   00910         CALL    PLOT
F193 05       00920         DEC     B
F194 C28FF1   00930         JP      NZ,LOOP9
F197 160E     00940         LD      D,14
F199 1E04     00950         LD      E,4
F19B CD08F1   00960         CALL    SETCUR
F19E 060F     00970         LD      B,15
F1A0 21ADF1   00980         LD      HL,MESS
F1A3 7E       00990 LOOPA   LD      A,(HL)
F1A4 CD11F1   01000         CALL    PRINT
F1A7 23       01010         INC     HL
F1A8 05       01020         DEC     B
F1A9 C2A3F1   01030         JP      NZ,LOOPA
F1AC C9       01040         RET
F1AD          01050 MESS    DEFM    'Bob'''s Computer!'
     42 6F 62 27 73 20 43 6F 6D 70 75 74 65 72 21
F119          01060         END     ENTRY
00000 TOTAL ERRORS
33005  TEXT AREA BYTES LEFT 


CLS    4231 00110   00290 
ENTRY  F119 00290   01060 
LOOP1  F121 00330   00390 
LOOP2  F135 00430   00570 
LOOP3  F13A 00460   00490 
LOOP4  F146 00520   00550 
LOOP5  F157 00610   00670 
LOOP6  F16B 00710   00850 
LOOP7  F170 00740   00770 
LOOP8  F17C 00800   00830 
LOOP9  F18F 00900   00930 
LOOPA  F1A3 00990   01030 
MESS   F1AD 01050   00980 
PLOT   F100 00120   00350 00370 00460 00520 00630 00650 00740 
                    00800 00910 
PRINT  F111 00230   01000 
SETCUR F108 00180   00960 

